A continuacion observaras la forma del termino

monopolar del potencial electrico visto desde 2

dimensiones.

Clear@φD;

Clear@xD;

Clear@yD;

ε0 = 8.854 ∗ 10−12

;

qe = 1.602 ∗ 10−19

;

Q = qe;

φ@x_, y_, z_D =

1

4 π ∗ ε0

Q

x2+ y2

+ z2

;

z = 0;

graf1 = ContourPlot@φ@x, y, zD, 8x, −1, 1<, 8y, −1, 1<,

PlotPoints → 40, Contours → 10, Axes → True, AxesLabel → 8X, Y<DClear@

zD;

-1.0 -0.5 0.0 0.5 1.0

-1.0

-0.5

0.0

0.5

1.0

X

Y

A continuacion observara la forma del campo electrico

debido al termino monopolar visto desde 2

dimensiones.

z = 0;

graf2 = StreamPlotAEvaluateA9−∂x φ@x, y, zD, −∂y φ@x, y, zD=E,

8x, −2, 2<, 8y, −2, 2<, Axes → True, AxesLabel → 8X, Y<EClear@

zD;

-2 -1 0 1 2

-2

-1

0

1

2

X

Y

A continuacion observara la forma del termino monopo-

lar del potencial y el campo electrico visto desde 2

dimensiones.

2 Monopolo.nb

Show@graf1, graf2D

-1.0 -0.5 0.0 0.5 1.0

-1.0

-0.5

0.0

0.5

1.0

X

Y

A continuacion observara la forma del campo electrico

debido al termino monopolar del potencial electrico

visto desde 3 dimensiones.

Clear@"x∗", "y∗", "z∗"D;

Needs@"VectorAnalysis`"D

Monopolo.nb 3

VectorPlot3DAEvaluateA9−∂x φ@x, y, zD, −∂y φ@x, y, zD, −∂z φ@x, y, zD=E,

8x, −1.5, 1.5<, 8y, −1.5, 1.5<, 8z, −1.5, 1.5<,

ImageSize → 8600, 600<, Axes → True, AxesLabel → 8X, Y, Z<E

-1

0

1

X

-1

0

1

Y

-1

0

1

Z

4 Monopolo.nb