Forza sui punti dell’asse x esercitata sulla carica q0 dalle cariche q1 e q2 poste, rispettivamente, in (-1,0) e (1,0)

xmax=4;     (* massima ascissa visualizzabile *)
Fmaxx=8;     (* massimo valore di F visualizzabile *)


Manipulate[
Row[
{
Show[
Plot[Sign [x+1]q0 q1/(x+1)^2+Sign [x-1]q0 q2/(x-1)^2,{x,-xmax,xmax}, PlotRange->{-Fmaxx,Fmaxx},ImageSize->400,AxesLabel->{"","Fx"}],
Graphics[{Red,Line[{{-1,Fmaxx},{-1,-Fmaxx}}]}],
Graphics[{Red,Line[{{1,Fmaxx},{1,-Fmaxx}}]}]
],
Show[
Plot[0,{x,-xmax,xmax}, PlotRange->{-Fmaxx,Fmaxx},ImageSize->400,AxesLabel->{"","Fy"}],
Graphics[{Red,Line[{{-1,Fmaxx},{-1,-Fmaxx}}]}],
Graphics[{Red,Line[{{1,Fmaxx},{1,-Fmaxx}}]}]
]
}]
,{{q0,1},-1,1,Appearance->"Open"},{{q1,0},-1,1,Appearance->"Open"},{{q2,0},-1,1,Appearance->"Open"}]

Forza sui punti dell’asse y esercitata sulla carica q0 dalle cariche q1 e q2 poste, rispettivamente, in (-1,0) e (1,0)

ymax=4;     (* massima ordinata visualizzabile *)
Fmaxy=2;     (* massimo valore di F visualizzabile *)

Manipulate[
Row[
{
Plot[q0 (q1-q2)/(y^2+1)^(3/2),{y,-ymax,ymax}, PlotRange->{-Fmaxy,Fmaxy},ImageSize->400,AxesLabel->{"","Fx"}],
Plot[q0 (q1+q2)y/(y^2+1)^(3/2),{y,-ymax,ymax}, PlotRange->{-Fmaxy,Fmaxy},ImageSize->400,AxesLabel->{"","Fy"}]
}]
,{{q0,1},-1,1,Appearance->"Open"},{{q1,0},-1,1,Appearance->"Open"},{{q2,0},-1,1,Appearance->"Open"}]

Campo generato dalle cariche q1 e q2 [poste, rispettivamente, in (-1,0) e (1,0)] sui punti dell’asse x

xmax=4;     (* massima ascissa visualizzabile *)
Emaxx=8;     (* massimo valore di E visualizzabile *)


Manipulate[
Row[
{
Show[
Plot[Sign [x+1] q1/(x+1)^2+Sign [x-1] q2/(x-1)^2,{x,-xmax,xmax}, PlotRange->{-Emaxx,Emaxx},ImageSize->400,AxesLabel->{"","Ex"}],
Graphics[{Red,Line[{{-1,Emaxx},{-1,-Emaxx}}]}],
Graphics[{Red,Line[{{1,Emaxx},{1,-Emaxx}}]}]
],
Show[
Plot[0,{x,-xmax,xmax}, PlotRange->{-Emaxx,Emaxx},ImageSize->400,AxesLabel->{"","Ey"}],
Graphics[{Red,Line[{{-1,Emaxx},{-1,-Emaxx}}]}],
Graphics[{Red,Line[{{1,Emaxx},{1,-Emaxx}}]}]
]
}]
,{{q1,0},-1,1,Appearance->"Open"},{{q2,0},-1,1,Appearance->"Open"}]

Campo generato dalle cariche q1 e q2 [poste, rispettivamente, in (-1,0) e (1,0)] sui punti dell’asse y

ymax=4;     (* massima ordinata visualizzabile *)
Emaxy=2;     (* massimo valore di E visualizzabile *)

Manipulate[
Row[
{
Plot[(q1-q2)/(y^2+1)^(3/2),{y,-ymax,ymax}, PlotRange->{-Emaxy,Emaxy},ImageSize->400,AxesLabel->{"","Ex"}],
Plot[(q1+q2)y/(y^2+1)^(3/2),{y,-ymax,ymax}, PlotRange->{-Emaxy,Emaxy},ImageSize->400,AxesLabel->{"","Ey"}]
}]
,{{q1,0},-1,1,Appearance->"Open"},{{q2,0},-1,1,Appearance->"Open"}]

Potenziale dovuto alle cariche q1 e q2 [poste, rispettivamente, in (-1,0) e (1,0)], calcolato sul piano xy

xmax=4;     (* massima ascissa visualizzabile *)
Vmax=5;     (* massimo valore di V visualizzabile *)

Manipulate[
Plot3D[q1/Sqrt[(x+1)^2+y^2]+q2/Sqrt[(x-1)^2+y^2],{x,-xmax,xmax},{y,-xmax,xmax},PlotRange->{-Vmax,Vmax},PlotPoints->50]
,{{q1,0},-1,1,Appearance->"Open"},{{q2,0},-1,1,Appearance->"Open"}]

Potenziale dovuto alle cariche q1 e q2 [poste, rispettivamente, in (-1,0) e (1,0)], calcolato sui punti dell’asse x e dell’asse y

xmax=4;     (* massima ascissa visualizzabile *)
Vmax=8;     (* massimo valore di V visualizzabile *)


Manipulate[
Row[
{
Show[
Plot[q1/Abs[x+1]+q2/Abs[x-1],{x,-xmax,xmax}, PlotRange->{-Vmax,Vmax},ImageSize->400,AxesLabel->{"","V(x,0)"}],
Graphics[{Red,Line[{{-1,Vmax},{-1,-Vmax}}]}],
Graphics[{Red,Line[{{1,Vmax},{1,-Vmax}}]}]
],
Show[
Plot[(q1+q2)/Sqrt[y^2+1],{y,-xmax,xmax}, PlotRange->{-2,2},ImageSize->400,AxesLabel->{"","V(0,y)"}]
]
}]
,{{q1,0},-1,1,Appearance->"Open"},{{q2,0},-1,1,Appearance->"Open"}]