- #1
GriffinHeart
- 3
- 0
I'm trying to calculate several stuff about the electric field generated by 2 "plaques"
My main problem being that in mathematica it calculates fast for a point of the electric field generated in the Y component, but if i try to make the median of all the points in the plaque it takes way to much time.
And after that i'll have to plot for all the points.
And the output, without Eymedio[0]
so calculating Ey[0,0,0] is fast, but when i try to calculate the "median" it takes like huge time.
Anything obvious I'm doing wrong with mathematica? i think the formulas are all correct.
Thanks for help
My main problem being that in mathematica it calculates fast for a point of the electric field generated in the Y component, but if i try to make the median of all the points in the plaque it takes way to much time.
And after that i'll have to plot for all the points.
PHP:
ax := 0.09
az := 0.03
d := 0.052
V := 3000
E0 := 8.85 * 10^(-12)
Ke := 8.9 * 10^9
Ey1[x_, y_, 0] :=
Ke * E0 * (V/d) *
Integrate[((y + d/2) / (((x - x0)^2 + (y + d/2)^2 + z0^2)^(3/2))),
{x0, -ax/2, ax/2}, {z0, -az/2, az/2}]
Ey2[x_, y_, 0] :=
Ke * E0 * (V/d) *
Integrate[-((y - d/2) / (((x - x0)^2 + (y - d/2)^2 + z0^2)^(3/2))),
{x0, -ax/2, ax/2}, {z0, -az/2, az/2}]
Ey[x_, y_, 0] := Ey1[x, y, 0] + Ey2[x, y, 0]
Eymedio[y_] := (1/ax) * Integrate[Ey[x, y, 0], {x, -ax/2, ax/2}]
Ey1[0, 0, 0]
Ey2[0, 0, 0]
Ey[0, 0, 0]
Eymedio[0]
And the output, without Eymedio[0]
PHP:
8133.58
8133.58
16267.2
so calculating Ey[0,0,0] is fast, but when i try to calculate the "median" it takes like huge time.
Anything obvious I'm doing wrong with mathematica? i think the formulas are all correct.
Thanks for help