GraphingCalculator 4;
Window 58 3 861 1432;
PaneDivider 413;
SignificantDigits 14;
FontSizes 14;
BackgroundType 0;
BackgroundColor 255 255 255;
StackPanes 1;
SliderControlValue 18;
UseAntialiasing 0;
2D.BottomLeft -3.265625 -6.140625;
2D.Axes 0;
2D.GraphPaper 0;
Text "Point charges – fields and potentials

Slow!
";
Color 3;
Expr a=0+3.71875*i;
Color 4;
Expr b=1.390625+2.078125*i;
Color 5;
Expr c=-1.28125+1.21875*i;
Text "d regulates the singularity";
Color 2;
Expr d=0.01;
Color 6;
MathPaneSlider 21;
Expr Q_1=slider([-5,5,40]);
Color 7;
MathPaneSlider 20;
Expr Q_2=slider([-5,5,40]);
Color 8;
MathPaneSlider 20;
Expr Q_3=slider([-5,5,40]);
Color 2;
Expr function(V,x,y)=Q_1/sqrt([x-Re([a])]^2+[y-Im([a])]^2+d)+Q_2/sqrt([x-Re([b])]^2+[y-Im([b])]^2+d)+Q_3/sqrt([x-Re([c])]^2+[y-Im([c])]^2+d);
Color 17;
Expr function(V,x,y)-k/10=0,in(k,set(-(10*ldots*10)));
Color 17;
XYType 2;
Expr z=function(V,x,y);
Expr E_1=-function(oppartial(x),function(V,x,y)),E_2=-function(oppartial(y),function(V,x,y));
Text "Field vectors:";
Color 17;
Expr vector(d*x,d*y)=vector(E_1,E_2);
Text "Field lines (hold opt to see ""total derivative"" in Math menu):";
Color 17;
Grain 0.7666666666666667;
Expr function(optotal(t),vector(x,y))=vector(E_1,E_2);
Text "

Author: David A. Craig <<http://web.lemoyne.edu/~craigda/>";