
5.5. CONFORMAL MAPPING 211
>
w2a:=evalc(w) assuming y>0; w2b:=evalc(w) assuming y<0;
w2a :=
2
x
2
+ y
2
+2x
2
+
1
2
I
2
x
2
+ y
2
− 2 x
w2b :=
2
x
2
+ y
2
+2x
2
−
1
2
I
2
x
2
+ y
2
− 2 x
w2a shows the form of ω for y>0, while w2b applies when y<0. The potential
u relevant to our problem is obtained by removing the imaginary part from w2a.
>
u:=remove(has,w2a,I);
u :=
2
x
2
+ y
2
+2x
2
The electric field lines for y>0andy<0 are obtained in v2a and v2b by
selecting the imaginary parts of w2a and w2b, respectively, and dividing by i.
>
v2a:=select(has,w2a,I)/I: v2b:=select(has,w2b,I)/I:
The electric field vector
E = −∇u is calculated in Cartesian coordinates.
>
E:=-Gradient(u,’cartesian’[x,y]);
E := −
2 x
x
2
+ y
2
+2
4
2
x
2
+ y
2
+2x
e
x
−
y
2
2
x
2
+ y
2
+2x
x
2
+ y
2
e
y
Now, let’s plot the results. A thick blue line is plotted between (−2, 0) and
(0, 0) to represent a portion of the semi-infinite plate.
>
gr1:=plot([[-2,0],[0,0]],style=line,color=blue,thickness=4):
The fieldplot command is used to plot the electric field vector
E, the vectors
being represented by thick red arrows.
>
gr2:=fieldplot([E[1],E[2]],x=-2..2,y=-2..2,arrows=THICK,
grid=[10,10],color=red):
A functional operator G is formed to produce a contour plot of any input function
V ,thecolorC of the curves to be specified. The range is taken to be x = −2
to2andy = −2 to 2. The contours are chosen to be V =0, 0.2, 0.4, ..., 2.
>
G:=(V,C)->contourplot(V,x=-2..2,y=-2..2,contours=
[seq(0.2*n,n=0..10)],grid=[60,60],color=C):
Using G, the equipotentials (u =const.) and electric field lines are plotted
together, along with the plate, using the display command.
>
display({gr1,G(u,green),G(v2a,red),G(v2b,red)});
On the computer screen, the equipotentials are colored green and the electric
field lines red. The corresponding black and white version is shown on the left
of Figure 5.9.
The semi-infinite plate is represented by the thick horizontal line between
x=−2 and 0. The equipotentials are the family of parabolas opening to the left,
the closest one to the plate being for φ =0.2, the next furthest one for φ =0.4,