GraphingCalculator 4;
Window 56 2 859 1333;
PaneDivider 369;
FontSizes 14;
BackgroundType 0;
BackgroundColor 255 255 255;
StackPanes 1;
3D.X -16 16;
3D.Y -16 16;
3D.Z -16 16;
3D.Axes 0;
3D.Depth 0.8030909743000001;
3D.View 0.3183575106442044 0.9322046765398738 -0.1721712417800949 -0.8149624134699984 0.3619118148341962 0.4526103213107875 0.4842362647407178 -0.003778804453074377 0.8749291174657201;
3D.Speed 0;
Text "Electrostatic potential due to a collection of four point charges in a plane.

d regulates the singularity";
Color 6;
Expr d=0.03;
Color 2;
Expr function(V,x,a,y,b,q)=q/sqrt([x-a]^2+[y-b]^2+d);
Color 2;
MathPaneSlider 28;
Expr q_1=slider([-4,4,40]);
Color 3;
MathPaneSlider 20;
Expr q_2=slider([-4,4,40]);
Color 4;
MathPaneSlider 20;
Expr q_3=slider([-4,4,40]);
Color 5;
MathPaneSlider 20;
Expr q_4=slider([-4,4,40]);
MathPaneSlider 99;
Expr a=slider([-10,10]);
Color 3;
MathPaneSlider 99;
Expr b=slider([-10,10]);
Color 4;
MathPaneSlider 99;
Expr c=slider([-10,10]);
Color 5;
MathPaneSlider 99;
Expr d=slider([-10,10]);
Color 6;
MathPaneSlider 100;
Expr f=slider([-10,10]);
Color 7;
MathPaneSlider 100;
Expr g=slider([-10,10]);
Color 8;
MathPaneSlider 100;
Expr h=slider([-10,10]);
MathPaneSlider 100;
Expr j=slider([-10,10]);
Color 10;
Grain 1;
Expr function(V,x,a,y,b,q_1)+function(V,x,c,y,d,q_2)+function(V,x,f,y,g,q_3)+function(V,x,h,y,j,q_4);
Text "

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