In[]:=
Clear["Global`*"]​​​​lineLoad=F1+I*F2;​​poissonR=ν;​​modulusE=;​​​​(*ComplexPotentialFunctions*)​​Ω=-((lineLoad/(8*Pi*(1-poissonR))))*Log[z]​​ω=(((lineLoad*(3-(4*poissonR)))/(8*Pi*(1-poissonR))))*Log[z]​​​​​​displacement=((1+poissonR)/modulusE)*ComplexExpand[((3-4*poissonR)*Ω)-(z*Conjugate[D[Ω,z]])-(Conjugate[ω])]//FullSimplify​​u1=ComplexExpand[Re[displacement]]/.zr*(E^(I*θ))//FullSimplify​​u2=ComplexExpand[Im[displacement]]/.zr*(E^(I*θ))//FullSimplify​​
Out[]=
-
(F1+F2)Log[z]
8π(1-ν)
Out[]=
(F1+F2)(3-4ν)Log[z]
8π(1-ν)
Out[]=
-
(1+ν)(F1-F2+F2(6-8ν)Arg[z]+F1(-3+4ν)Log[
2
z
])
8π(-1+ν)
Out[]=
-
(1+ν)F1+F2(6-8ν)Arg[
θ

r]+F1(-3+4ν)Log[
2θ

2
r
]
8π(-1+ν)
Out[]=
-
F2+F2ν
8π-8πν
​