M7R0
I,EquiSurface=6"%&falseGE\[l"%.equipotentialGt+6,'%*variablesG%%listG'%*potenti
alG%*algebraicG'%*intervalsGF,'%(surfnumG%(integerG>'%-background2dG%'symbolG%&
whiteG>'%&planeGF,7#/%"xG""!>'%(style3dGF8%,transparentG>'%)surfacesG%(booleanG
%%trueG>'%*withlinesGFHFI>'%*withtitleGFHF%6M%"RG%"XG%"YG%"ZG%"UG%#x1G%#x2G%#y1
G%#y2G%#z1G%#z2G%#dxG%#dyG%#dzG%"iG%"jG%"kG%"mG%#RRG%#UUG%&U_maxG%&U_minG%#dUG%
#UmG%#SmG%&gradUG%#q1G%#q2G%#q3G%&initsG%-interval_maxG%-output_graphG%'title_G
%#t1G%#t2G%"TG%#T1G%#T2G%$t1_G%$t2_G%)style3d_G%'back2dG%)lineclr_GF$F$C6>8C7">
8(f*6#FQF$6$%)operatorG%&arrowGF$-%%subsG6$<%/&T$6#"""&9$Fhq/&Fgq6#""#&F[rF^r/&
Fgq6#""$&F[rFcrT&F$F$6&F+F[rF.9%>8)&&9&FhqFhq>8*&F\sF^r>8+&&F]sF^rFhq>8,&FdsF^r
>8-&&F]sFcrFhq>8.&F[tF^r>8/*&,&F_sFiqFjr!""Fiq9'Fct>80*&,&FfsFiqFbsFctFiqFdtFct
>81*&,&F]tFiqFisFctFiqFdtFct>86f*6%FinFjnF[oF$F^qF$7%,&T#Fiq*&F[rFiqT%FiqFiq,&T
'Fiq*&FhrFiqT)FiqFiq,&T+Fiq*&F]sFiqT-FiqFiqF$F$6.FVFjrFfnF`tFXFbsFgnFftFZFisFhn
Fjt>87f*F`uF$F^qF$-Feu6#-Fcu6%,&F[rFiq#FiqF_rFiq,&FhrFiqFgvFiq,&F]sFiqFgvFiqF$F
$6&F]oF^uFUF[q>88-%$maxG6#7#-%$seqG6$-Fbw6$-Fbw6$-F`v6%828384/Fjw;F@,&FdtFiqFct
Fiq/F[xF^x/F\xF^x>89-%$minGF_w>8:-%&evalfG6#*&,&F\wFiqFcxFctFiqFdtFct>8;f*6#F\o
F$F^qF$FbuF$F$6&F`oFcxFaoFgx>8DQ!F$@%9+C'@$9->Fcy-%(typesetG6*Q#U(F$FjqQ",F$F`r
F_zFerQ#)=F$Fhr@)/9*%'pointsG>8L6'/%&styleG%&pointG/%*thicknessGF@/F8Fjz/%+symb
olsizeG"#7/%*numpointsG"%+]/Fcz%(contourG>Ffz6%/FizFe[l/F\[lFiq/Fb[l"&++$/Fcz%*
wareframeG>Ffz6$/Fiz%*WIREFRAMEG/Fb[l"%+?>Ffz6$/Fiz%,patchnogridG/%-transparenc
yG$"")Fct>8<f*F`yF$F^qF$-&%&plotsG6#%/implicitplot3dG6*/-F[v6#7%FeuFguFiu-Fcu6#
F[r/Feu;F]vT//Fgu;T1T3/Fiu;T5T7/%%gridG7%"#;Fi^lFi^l/%&colorG-%&COLORG6&%$RGBG*
&F[rFiqT:FctF@,&FiqFiqF`_lFctT;/%&titleGT=F$F$6>FboF^yFR8%FS8&FT8'FUF[qFVFjrFWF
_sFXFbsFYFfsFZFisFenF]tF3FdtFcpFfzF[pFcy>Fhp7$-%#opG6#Fhp-Fbw6$-F]]l6#85/Fd`lF^
x@$9,C+>8=-&%'linalgG6#%%gradG6$-F[q6#7%Fh_lFi_lFj_lFcal>8>/-%%diffG6$-F?6#%"tG
F\bl-Fbq6$<%/Fh_lFjal/Fi_l-%"yGF[bl/Fj_l-%"zGF[bl-%%evalG6#&Fj`lFhq>8?/-Fhal6$F
bblF\bl-Fbq6$F_bl-Fhbl6#&Fj`lF^r>8@/-Fhal6$FeblF\bl-Fbq6$F_bl-Fhbl6#&Fj`lFcr>8A
7#-Fbw6$-Fbw6$-Fbw6$7&F@,&FjrFiq*&FjwFiqFbtFiq#Fiq""%,&FbsFiq*&F[xFiqFhtFiqF[el
,&FisFiq*&F\xFiqF\uFiqF[el/F\x;F@F\el/F[xFbel/FjwFbel>8B-%$absG6#,$-F^w6%FbtFht
F\uFgv-%*interfaceG6#/%*warnlevelGF@>Fhp7$F]`l-&%(DEtoolsG6#%)DEplot3dG6-<%Feal
F\clFfcl<%FjalFbblFebl/F\bl;,$Ffel!#5,$Ffel"#5/F?;FjrF_s/Fcbl;FbsFfs/Ffbl;FisF]
tF`dl/%)stepsizeG$FiqFct/%*linecolorG-F]_l6&F__l$F_rFctF_hlF_hlFi[l/Fe_lFcy-F^f
l6#/FaflFdrC'@)/-%$lhsG6#&9)FhqF?C+>8GFh_l>8EFcbl>8HFi_l>8FFfbl>8IFj_l>&8JFhqFb
s>&FiilF^rFfs>&8KFhqFis>&F^jlF^rF]t/FghlFcblC+>F^ilFi_l>F`ilF?>FbilFh_l>FdilFfb
l>FfilFj_l>FhilFjr>F[jlF_s>F]jlFis>F`jlF]t/FghlFfblC+>F^ilFj_l>F`ilF?>FbilFh_l>
FdilFcbl>FfilFi_l>FhilFjr>F[jlF_s>F]jlFbs>F`jlFfs-%&printG6#Q+Wrong~caseF$@%/9(
%&blackGC$>8M6%/%%axisG7#/F[_lF9/%+backgroundGF^\m/F\[lF_r>8N-F]_l6&F__l$F\elFc
tF^]mF^]mC$>Fa\m6$/Fd\m7#/F[_lF^\m/Fh\mF9>F[]mF]hl@$Fiy>Fcy-F\z6,F^zFjqF_zF`rF_
zFerF`zFhrQH|+~|\x|\s|[x|`v|\x|bs|[x|`v|[x|hv|[x|cv|[x|`v~|[x|]v~|[x|jv|[x|fv|[
x|iv|\x|\s|[x|ev|[x|iv|\x|\s|\x|]s|[x|cv~F$Fjhl>Fhp7$F]`l-&Fa]l6#%-implicitplot
G6)7#-Fbw6$-Fbq6$/F^il-%$rhsGFihl/Faal-F^yFc`lFe`l/Fbil;FhilF[jl/Ffil;F]jlF`jl/
%(scalingG%,constrainedGFb\lFa\mF`hl@$Fg`lC*>Fj`l-F\al6$-Fbq6$Fh^mFaal7$FbilFfi
l>Feal/-Fhal6$-F`ilF[blF\bl-Fbq6$<$/FbilF``m/Ffil-FdilF[blFgbl>F\cl/-Fhal6$Ff`m
F\bl-Fbq6$Fc`mFbcl>F`dl7#-Fbw6$-Fbw6$7%F@,&FhilFiq*&FjwFiq,&F[jlFiqFhilFctFiqF[
el,&F]jlFiq*&F[xFiq,&F`jlFiqF]jlFctFiqF[elFcelFdel>Ffel-Fhel6#,$-F^w6$FfamFiamF
gvF]fl>Fhp7$F]`l-&Fffl6#%'DEplotG6-<$FealF\cl<$F``mFf`mF\gl/F`ilF^_m/FdilF`_mF`
dl/%'arrowsG%%noneGFhglFi[l/F\hlF[]mF`hlFahl-&Fa]l6#%(displayG6$Fhp/Fb_m%,CONST
RAINEDGF$F$F$6#F\elF$
