comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 06:05:29 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions
cp2k/tools/maple2f90/tpss.mw
Ole Schütt 792121551a Add directory tools/maple2f90 
svn-origin-rev: 14256
2014-09-08 09:02:21 +00:00

2217 lines
No EOL
265 KiB
XML
Raw Permalink Blame History

<?xml version="1.0" encoding="UTF-8"?>
<Worksheet><Version major="6" minor="1"/><View-Properties><Zoom percentage="100"/></View-Properties><Styles><Layout alignment="left" bullet="none" name="Warning"/><Layout alignment="left" bullet="none" name="Heading 2" spaceabove="8.0" spacebelow="2.0"/><Layout alignment="left" bullet="none" name="Heading 1" spaceabove="8.0" spacebelow="4.0"/><Layout alignment="left" bullet="none" firstindent="0.0" leftmargin="0.0" linebreak="space" name="Normal" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="centred" bullet="none" name="Maple Plot"/><Layout alignment="left" bullet="none" linebreak="any" name="Line Printed Output"/><Layout alignment="centred" bullet="none" linespacing="0.5" name="Maple Output"/><Font background="[0,0,0]" bold="true" executable="true" family="Monospaced" foreground="[255,0,0]" name="Maple Input" opaque="false" size="12"/><Font background="[0,0,0]" bold="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="Text" opaque="false" size="12" underline="false"/><Font background="[0,0,0]" family="Monospaced" foreground="[0,0,255]" name="Warning" opaque="false" readonly="true" size="12"/><Font background="[0,0,0]" family="Monospaced" foreground="[0,0,255]" name="Line Printed Output" opaque="false" readonly="true" size="12"/><Font background="[0,0,0]" bold="true" family="Serif" name="Heading 2" opaque="false" size="16"/><Font background="[0,0,0]" bold="true" family="Serif" name="Heading 1" opaque="false" size="18"/><Font background="[0,0,0]" family="Times New Roman" foreground="[0,0,255]" name="2D Output" opaque="false" readonly="true" size="12"/></Styles><Group><Input><Text-field layout="Normal" style="Text">The original Tpss code is copyrighted, I belive that suche things hinder the advance of science, so here is (I think) a nice way to generate code that calculates the TPSS functional that can be used by anyone following the GPL 2 <Font executable="false">(http://www.gnu.org/copyleft/gpl.html) </Font>or higher license.</Text-field><Text-field layout="Normal" style="Text">"Progress in science through free software" ;)</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">Fawzi Mohamed</Text-field></Input></Group><Section><Title><Text-field layout="Heading 1" style="Heading 1"> TPSS</Text-field></Title><Group><Input><Text-field layout="Normal" style="Text">Reference: Perdew,Tao, Staroverov, Scuseria, J.Chem Phys vol 120, p 6898 (2004)</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">restart;</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">sost:=eqs -&gt; subs(seq(eqs[nops(eqs)-i],i=1..(nops(eqs)-1)),rhs(eqs[nops(eqs)])):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk:=eqs -&gt; indets(sost(eqs),symbol):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">loc:=eqs -&gt; indets(eqs,symbol) minus unk(eqs):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">e:='e': m:='m': h_bar:='h_bar': a_0:='a_0':myIF:='myIF':</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">e:=1: m:=1: h_bar:=1: a_0:=h_bar^2 /(m*e^2):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">indice:=proc(el,l) local i,ii,elAtt,el_s;
i:=-1; ii:=0; el_s:=convert(el,string);
for elAtt in l do
ii:=ii+1;
if evalb(el_s=convert(elAtt,string)) then
i:=ii;
end if;
end do;
i;
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">indiceDef:=proc(el,l) local i,ii,elAtt;
i:=-1; ii:=0;
for elAtt in l do
ii:=ii+1;
if evalb(el=lhs(elAtt)) then
i:=ii;
end if;
end do;
i;
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">definizioni:= eqs -&gt; map(eq -&gt; if type(eq,equation) then lhs(eq); else 0; end if ,eqs):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">sameNameSameDef:=proc(eqs1,eqs2) local commonDef,res,d;
commonDef:=convert(definizioni(eqs1),set)intersect convert(definizioni(eqs2),set);
res:=true;
for d in commonDef do
if not evalb(subs(eqs1,d)=subs(eqs2,d)) then;
print("def different for "||d);
res:=false;
end if;
end do;
res;
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"># check same name -&gt; same def apart from eqs at the indexes returned by the function eqs_to_rm
checkCompatible:=proc (eqss,eqs_to_rm) local i,j,im_indx,eqd1,eqd2,res,ii,attComp;
res:=true;
for i from 1 to nops(eqss)-1 do
im_indx:=eqs_to_rm(eqss[i]);
#print("removed",map(lhs,[eqss[i][im_indx[ii]]$ii=1..nops(im_indx)]));
eqd1:=subsop('im_indx[ii]=NULL'$ii=1..nops(im_indx),eqss[i]):
for j from i+1 to nops(eqss) do
#print("doing (",i,j,")");
im_indx:=eqs_to_rm(eqss[j]);
#print("removed",map(lhs,[eqss[j][im_indx[ii]]$ii=1..nops(im_indx)]));
eqd2:=subsop('im_indx[ii]=NULL'$ii=1..nops(im_indx),eqss[j]):
attComp:=sameNameSameDef(eqd1,eqd2);
res:=attComp and res;
if not attComp then
print("incompatibility between",i,j);
end if;
end do;
end do;
res;
end proc: </Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef:=proc(symb,eqs) local eq;
for eq in eqs do
if(lhs(eq)=symb) then
return eq;
end if;
end do;
0;
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqUses:=(eq1,eq2)-&gt;evalb(lhs(eq2) in indets(rhs(eq1),symbol)):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">enforceDependencies:=proc(eqs) local dep,eq1,eq2,i,j,ii,eqns;
dep:=true;
eqns:=eqs;
ii:=0;
i:=1;
while (i&lt;=(nops(eqs)-1) and ii&lt;10000) do
dep:=false;
j:=i+1;
while (j&lt;=nops(eqs) and ii&lt;10000) do
if eqUses(eqns[i],eqns[j]) then
ii:=ii+1;
eqns:=subsop(i=NULL,j=(eqns[j],eqns[i]),eqns);
dep:=true;
else
j:=j+1;
end if;
end do;
if not dep then i:=i+1; end if;
end do;
eqns;
end proc: </Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">combineDefs:=proc(ord) local def,defs,allDefs;
allDefs:=[]:
for defs in ord do
for def in defs do
if not def in allDefs then
allDefs:=[op(allDefs),def];
end if;
end do;
end do;
allDefs;
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">combineEqs:=proc(allDefs,eqss,ord) local def,eqs,eqsDeriv,found,d,i,ii;
eqsDeriv:=[];
for def in allDefs do
found:=false;
for ii from 1 to nops(eqss) do
d:=ord[ii];
i:=indice(def,d);
if i&gt;0 then
eqs:=eqss[ii];
if not (lhs(eqs[i])=def) then print("errore eq",def); end if;
eqsDeriv:=[op(eqsDeriv),eqs[i]];
found:=true;
break;
end if;
end do;
if not found then print("error unknown def",def); end if;
end do;
eqsDeriv;
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">sostConst:=proc(eqs) local sAtt,sToDo,result;
sToDo:=[];
result:=[];
for sAtt in eqs do
sAtt:=subs(op(sToDo),sAtt);
if type(rhs(sAtt),numeric) then sToDo:=[op(sToDo),sAtt]; end if;
if rhs(sAtt)&lt;&gt;0 then result:=[op(result),sAtt]; end if;
end do;
result;
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">calcDerivs:=proc(eqs,arg_names) local cs,r,d,eq,eq2,eq3,i;
cs:=CompSeq(locals=loc(eqs),globals=convert(unk(eqs),set)minus convert(arg_names,set),
params=arg_names,eqs);
r:=convert(cs,procedure);
d:=[seq(D[i](r),i=1..nops(arg_names))];
eq:=map(f-&gt;op(-1,convert(f,CompSeq)),d);
# ensure that the variables are bound in the global namespace
eq2:=map(f-&gt;evalindets(f,symbol,g-&gt;convert(convert(g,string),symbol)),eq);
eq3:=[seq(subs(result=deriv_||(arg_names[i]),eq2[i]),i=1..nops(arg_names))];
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">fCostanti:=proc(costanti,eqs) local cs,pr, pEq;
pEq:=map(x-&gt;getDef(x,eqs),costanti);
print(pEq);
print(Fortran(convert(CompSeq(globals=costanti,pEq),procedure)));
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">rmDefs:=proc(lNames,eqs) local my_eqs,nm,i;
my_eqs:=eqs;
for nm in lNames do
i:=indiceDef(nm,my_eqs);
if (i&gt;0) then
my_eqs:=subsop(i=NULL,my_eqs);
else
my_eqs;
end if;
end do;
my_eqs;
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">with(CodeGeneration);</Text-field></Input><Output><Text-field layout="Warning" style="Warning">Warning, the protected name Matlab has been redefined and unprotected</Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM3LEkiQ0c2IkkoRm9ydHJhbkdGJUkxSW50ZXJtZWRpYXRlQ29kZUdGJUklSmF2YUdGJUkzTGFuZ3VhZ2VEZWZpbml0aW9uR0YlSSdNYXRsYWJHNiRJKnByb3RlY3RlZEdGLEkoX3N5c2xpYkdGJUkmTmFtZXNHRiVJJVNhdmVHRiVJKlRyYW5zbGF0ZUdGJUksVmlzdWFsQmFzaWNHRiU=</Equation></Text-field></Output></Group><Section><Title><Text-field layout="Heading 2" style="Heading 2">costanti</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">costanti:=[kappa, beta,mu,gamma_var,b,c,e_var, d, f_ii_0,
p_1,A_1,alpha_1_1,beta_1_1,beta_2_1,beta_3_1,beta_4_1,
p_2,A_2,alpha_1_2,beta_1_2,beta_2_2,beta_3_2,beta_4_2,
p_3,A_3,alpha_1_3,beta_1_3,beta_2_3,beta_3_3,beta_4_3,scale_ec,scale_ex]:</Text-field></Input></Group></Section><Section><Title><Text-field layout="Heading 2" style="Heading 2">exchange</Text-field></Title><Group><Input><Text-field layout="Normal" style="Text">exhange energy (LDA)</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqx1:=ex_lda=rho*ex_unif*Fx;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXgxRzYiL0knZXhfbGRhR0YlKihJJHJob0dGJSIiIkkoZXhfdW5pZkdGJUYqSSNGeEdGJUYq</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">Uniform gas exchange:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqx2:=ex_unif=-3/(4*Pi)*(3*Pi^2*rho)^(1/3);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXgyRzYiL0koZXhfdW5pZkdGJSwkKihJI1BpR0kqcHJvdGVjdGVkR0YrISIiIiIkIyIiIkYtKiZGKiIiI0kkcmhvR0YlRi9GLiMhIiQiIiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">The enhancement factor Fx is function of just p an z;</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqx3:=p=norm_drho^2/(4*(3*Pi^2)^(2/3)*rho^(8/3));
eqx4:=s=(3/Pi)^(2/3)/6*norm_drho/rho^(4/3);
eqx5:=z=tau_w/tau;
eqx6:=tau_w=norm_drho^2/(8*rho);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXgzRzYiL0kicEdGJSwkKipJKm5vcm1fZHJob0dGJSIiIyIiJCMiIiJGLCokSSNQaUdJKnByb3RlY3RlZEdGMUYrIyEiI0YsSSRyaG9HRiUjISIpRiwjRi4iIzc=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXg0RzYiL0kic0dGJSwkKioiIiQjIiIjRioqJEkjUGlHSSpwcm90ZWN0ZWRHRi8hIiJGK0kqbm9ybV9kcmhvR0YlIiIiSSRyaG9HRiUjISIlRiojRjIiIic=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXg1RzYiL0kiekdGJSomSSZ0YXVfd0dGJSIiIkkkdGF1R0YlISIi</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXg2RzYiL0kmdGF1X3dHRiUsJComSSpub3JtX2RyaG9HRiUiIiNJJHJob0dGJSEiIiMiIiIiIik=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalb(simplify(subs(eqx3,eqx4,s^2=p),symbolic));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqx7:=tildeq_b=(9/20)*(alpha-1)/(1+b*alpha*(alpha-1))^(1/2)+2*p/3;
eqx8:=alpha=(5*p/3)*(z ^(-1)-1); # =(tau-tau_w)/tau_unif</Text-field></Input><Input><Text-field prompt="&gt; " style="Maple Input"/></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXg3RzYiL0kpdGlsZGVxX2JHRiUsJiomLCZJJmFscGhhR0YlIiIiISIiRixGLCwmRixGLCooSSJiR0YlRixGK0YsRipGLEYsI0YtIiIjIyIiKiIjP0kicEdGJSNGMiIiJA==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXg4RzYiL0kmYWxwaGFHRiUsJComSSJwR0YlIiIiLCYqJEkiekdGJSEiIkYrRi9GK0YrIyIiJiIiJA==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">Fx can be written as</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqx9:=Fx=1+kappa-kappa/(1+x/kappa);
eqk1:=kappa=0.804;
eqk2:=mu=0.21951; #eqk2:=mu=beta*(Pi^2/3); in pbe, in tpss paper they use this approximation...</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcXg5RzYiL0kjRnhHRiUsKCIiIkYpSSZrYXBwYUdGJUYpKiZGKkYpLCZGKUYpKiZJInhHRiVGKUYqISIiRilGL0Yv</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWsxRzYiL0kma2FwcGFHRiUkIiQvKSEiJA==</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWsyRzYiL0kjbXVHRiUkIiZePiMhIiY=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">and x</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqx10:=x=((10/81+c*z^2/(1+z^2)^2)*p+146/2025*tildeq_b^2-73/405*tildeq_b*sqrt(1/2*(3/5*z)^2+1/2*p^2)+1/kappa*(10/81)^2*p^2+
2*sqrt(e_var)*10/81*(3/5*z)^2+e_var*mu*p^3)/(1+sqrt(e_var)*p)^2;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXgxMEc2Ii9JInhHRiUqJiwuKiYsJiMiIzUiIyIpIiIiKihJImNHRiVGL0kiekdGJSIiIywmRi9GLyokRjJGM0YvISIjRi9GL0kicEdGJUYvRi8qJEkpdGlsZGVxX2JHRiVGMyMiJFkiIiVEPyomRjlGLywmRjUiIz0qJEY3RjMiI10jRi9GMyMhI3QiJV1TKiZJJmthcHBhR0YlISIiRjdGMyMiJCsiIiVobComSSZlX3ZhckdGJUZCRjJGMyMiIiUiI1gqKEZNRi9JI211R0YlRi9GNyIiJEYvRi8sJkYvRi8qJkZNRkJGN0YvRi9GNg==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqk3:=b=0.4;
eqk4:=c=1.59096;
eqk5:=e_var=1.537;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWszRzYiL0kiYkdGJSQiIiUhIiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWs0RzYiL0kiY0dGJSQiJyc0ZiIhIiY=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWs1RzYiL0kmZV92YXJHRiUkIiVQOiEiJA==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_ex_lda := [eqk1,eqk2,eqk3,eqk4,eqk5,eqx3, eqx6, eqx5, eqx8, eqx7, eqx10, eqx9,eqx2,eqx1];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SStlcXNfZXhfbGRhRzYiNzAvSSZrYXBwYUdGJSQiJC8pISIkL0kjbXVHRiUkIiZePiMhIiYvSSJiR0YlJCIiJSEiIi9JImNHRiUkIicnNGYiRjAvSSZlX3ZhckdGJSQiJVA6RisvSSJwR0YlLCQqKkkqbm9ybV9kcmhvR0YlIiIjIiIkIyIiIkZEKiRJI1BpR0kqcHJvdGVjdGVkR0ZJRkMjISIjRkRJJHJob0dGJSMhIilGRCNGRiIjNy9JJnRhdV93R0YlLCQqJkZCRkNGTEY1I0ZGIiIpL0kiekdGJSomRlJGRkkkdGF1R0YlRjUvSSZhbHBoYUdGJSwkKiZGP0ZGLCYqJEZYRjVGRkY1RkZGRiMiIiZGRC9JKXRpbGRlcV9iR0YlLCYqJiwmRmZuRkZGNUZGRkYsJkZGRkYqKEYyRkZGZm5GRkZhb0ZGRkYjRjVGQyMiIioiIz9GPyNGQ0ZEL0kieEdGJSomLC4qJiwmIyIjNSIjIilGRiooRjdGRkZYRkMsJkZGRkYqJEZYRkNGRkZLRkZGRkY/RkZGRiokRl5vRkMjIiRZIiIlRD8qJkZeb0ZGLCZGZHAiIz0qJEY/RkMiI10jRkZGQyMhI3QiJV1TKiZGKEY1Rj9GQyMiJCsiIiVobComRjtGXnFGWEZDI0Y0IiNYKihGO0ZGRi1GRkY/RkRGRkZGLCZGRkZGKiZGO0ZecUY/RkZGRkZLL0kjRnhHRiUsKEZGRkZGKEZGKiZGKEZGLCZGRkZGKiZGam9GRkYoRjVGRkY1RjUvSShleF91bmlmR0YlLCQqKEZIRjVGREZFKiZGSEZDRkxGRkZFI0YrRjQvSSdleF9sZGFHRiUqKEZMRkZGY3JGRkZdckZG</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_ex_lda);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8JkkjUGlHSSpwcm90ZWN0ZWRHRiVJJHRhdUc2IkkkcmhvR0YnSSpub3JtX2RyaG9HRic=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">loc(eqs_ex_lda);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8MEkieEc2IkkjbXVHRiVJImJHRiVJImNHRiVJI0Z4R0YlSSJwR0YlSSJ6R0YlSSZrYXBwYUdGJUkmZV92YXJHRiVJJ2V4X2xkYUdGJUkoZXhfdW5pZkdGJUkmdGF1X3dHRiVJKXRpbGRlcV9iR0YlSSZhbHBoYUdGJQ==</Equation></Text-field></Output></Group></Section><Section><Title><Text-field layout="Heading 2" style="Heading 2">correlation</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqc1:=ec=rho*epsilon_cRevPKZB*(1+d*epsilon_cRevPKZB*(tau_w/tau)^3);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWMxRzYiL0kjZWNHRiUqKEkkcmhvR0YlIiIiSTFlcHNpbG9uX2NSZXZQS1pCR0YlRiosJkYqRioqKkkiZEdGJUYqRitGKkkmdGF1X3dHRiUiIiRJJHRhdUdGJSEiJEYqRio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqc2_1:=ma=max(epsilon_cGGA_1_0,epsilon_cGGA);
eqc2_2:=mb=max(epsilon_cGGA_0_1,epsilon_cGGA);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcWMyXzFHNiIvSSNtYUdGJS1JJG1heEdJKnByb3RlY3RlZEdGKjYkSTFlcHNpbG9uX2NHR0FfMV8wR0YlSS1lcHNpbG9uX2NHR0FHRiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcWMyXzJHNiIvSSNtYkdGJS1JJG1heEdJKnByb3RlY3RlZEdGKjYkSTFlcHNpbG9uX2NHR0FfMF8xR0YlSS1lcHNpbG9uX2NHR0FHRiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqc2_3:=epsilon_cRevPKZB=epsilon_cGGA*(1+C_chi_eps*(tau_w/tau)^2)-(1+C_chi_eps)*(tau_w/tau)^2*(rhoa/rho*ma+rhob/rho*mb);
eqc2:=collect(eqc2_3,tau);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcWMyXzNHNiIvSTFlcHNpbG9uX2NSZXZQS1pCR0YlLCYqJkktZXBzaWxvbl9jR0dBR0YlIiIiLCZGK0YrKihJKkNfY2hpX2Vwc0dGJUYrSSZ0YXVfd0dGJSIiI0kkdGF1R0YlISIjRitGK0YrKiosJkYrRitGLkYrRitGL0YwRjFGMiwmKihJJXJob2FHRiVGK0kkcmhvR0YlISIiSSNtYUdGJUYrRisqKEklcmhvYkdGJUYrRjhGOUkjbWJHRiVGK0YrRitGOQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWMyRzYiL0kxZXBzaWxvbl9jUmV2UEtaQkdGJSwmSS1lcHNpbG9uX2NHR0FHRiUiIiIqJiwmKihGKUYqSSpDX2NoaV9lcHNHRiVGKkkmdGF1X3dHRiUiIiNGKiooLCZGKkYqRi5GKkYqRi9GMCwmKihJJXJob2FHRiVGKkkkcmhvR0YlISIiSSNtYUdGJUYqRioqKEklcmhvYkdGJUYqRjZGN0kjbWJHRiVGKkYqRipGN0YqSSR0YXVHRiUhIiNGKg==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqc3:=chi=(rhoa-rhob)/rho;
eqc4:=eps=norm_dchi/(2*(3*Pi^2*rho)^(1/3));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWMzRzYiL0kkY2hpR0YlKiYsJkklcmhvYUdGJSIiIkklcmhvYkdGJSEiIkYrSSRyaG9HRiVGLQ==</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWM0RzYiL0kkZXBzR0YlLCQqKEkqbm9ybV9kY2hpR0YlIiIiIiIkIyIiI0YsKiZJI1BpR0kqcHJvdGVjdGVkR0YxRi5JJHJob0dGJUYrIyEiIkYsI0YrIiIn</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqc5:=C_chi=0.53+0.87*chi^2+0.5*chi^4+2.26*chi^6;
eqc6:=C_chi_eps=C_chi/(1+eps^2*((1+chi)^(-4/3)+(1-chi)^(-4/3))/2)^4;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWM1RzYiL0kmQ19jaGlHRiUsKiQiI2AhIiMiIiIqJEkkY2hpR0YlIiIjJCIjKClGKyokRi4iIiUkIiImISIiKiRGLiIiJyQiJEUjRis=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWM2RzYiL0kqQ19jaGlfZXBzR0YlKiZJJkNfY2hpR0YlIiIiLCZGKkYqKiZJJGVwc0dGJSIiIywmKiQsJkYqRipJJGNoaUdGJUYqIyEiJSIiJEYqKiQsJkYqRipGMiEiIkYzRipGKiNGKkYuRjQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqc7:=rs=(3/(4*Pi*rho))^(1/3);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWM3RzYiL0kjcnNHRiUsJCooIiIkIyIiIkYqIiIlIyIiI0YqKiZJI1BpR0kqcHJvdGVjdGVkR0YyISIiSSRyaG9HRiVGM0YrI0YsRi0=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqc8:=d=2.8;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWM4RzYiL0kiZEdGJSQiI0chIiI=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqc9:=norm_dchi=2*sqrt((norm_drhoa*rhob)^2+(norm_drhob*rhoa)^2
-(norm_drho^2-norm_drhoa^2-norm_drhob^2)*rhoa*rhob)/rho^2;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcWM5RzYiL0kqbm9ybV9kY2hpR0YlLCQqJiwsKiZJK25vcm1fZHJob2FHRiUiIiNJJXJob2JHRiVGLSIiIiomSStub3JtX2RyaG9iR0YlRi1JJXJob2FHRiVGLUYvKihGMkYvRi5GL0kqbm9ybV9kcmhvR0YlRi0hIiIqKEYyRi9GLkYvRixGLUYvKihGMkYvRi5GL0YxRi1GLyNGL0YtSSRyaG9HRiUhIiNGLQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_c1:=[eqc8,eqc3,eqc9,eqc4,eqc5,eqx6,eqc6,eqc2_1,eqc2_2,eqc2,eqc1];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXNfYzFHNiI3LS9JImRHRiUkIiNHISIiL0kkY2hpR0YlKiYsJkklcmhvYUdGJSIiIkklcmhvYkdGJUYrRjFJJHJob0dGJUYrL0kqbm9ybV9kY2hpR0YlLCQqJiwsKiZJK25vcm1fZHJob2FHRiUiIiNGMkY7RjEqJkkrbm9ybV9kcmhvYkdGJUY7RjBGO0YxKihGMEYxRjJGMUkqbm9ybV9kcmhvR0YlRjtGKyooRjBGMUYyRjFGOkY7RjEqKEYwRjFGMkYxRj1GO0YxI0YxRjtGMyEiI0Y7L0kkZXBzR0YlLCQqKEY1RjEiIiQjRjtGSComSSNQaUdJKnByb3RlY3RlZEdGTEY7RjNGMSNGK0ZII0YxIiInL0kmQ19jaGlHRiUsKiQiI2BGQ0YxKiRGLUY7JCIjKClGQyokRi0iIiUkIiImRisqJEYtRk8kIiRFI0ZDL0kmdGF1X3dHRiUsJComRj9GO0YzRisjRjEiIikvSSpDX2NoaV9lcHNHRiUqJkZRRjEsJkYxRjEqJkZFRjssJiokLCZGMUYxRi1GMSMhIiVGSEYxKiQsJkYxRjFGLUYrRmdvRjFGMUZCRmhvL0kjbWFHRiUtSSRtYXhHRkw2JEkxZXBzaWxvbl9jR0dBXzFfMEdGJUktZXBzaWxvbl9jR0dBR0YlL0kjbWJHRiUtRl5wNiRJMWVwc2lsb25fY0dHQV8wXzFHRiVGYXAvSTFlcHNpbG9uX2NSZXZQS1pCR0YlLCZGYXBGMSomLCYqKEZhcEYxRmBvRjFGam5GO0YxKigsJkYxRjFGYG9GMUYxRmpuRjssJiooRjBGMUYzRitGXHBGMUYxKihGMkYxRjNGK0ZjcEYxRjFGMUYrRjFJJHRhdUdGJUZDRjEvSSNlY0dGJSooRjNGMUZocEYxLCZGMUYxKipGKEYxRmhwRjFGam5GSEZicSEiJEYxRjE=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_c1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8LUkjUGlHSSpwcm90ZWN0ZWRHRiVJJHRhdUc2IkkkcmhvR0YnSSpub3JtX2RyaG9HRidJMWVwc2lsb25fY0dHQV8xXzBHRidJMWVwc2lsb25fY0dHQV8wXzFHRidJK25vcm1fZHJob2FHRidJK25vcm1fZHJob2JHRidJLWVwc2lsb25fY0dHQUdGJ0klcmhvYUdGJ0klcmhvYkdGJw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">PBE (alias epsilon_cGGA) from Perdew, Burke, Ernzehof, PRL, vol 77, p 3865 (1996) It has some corrections and discussions.</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqpbe1:=t=norm_drho/(2*phi*k_s*rho);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXBiZTFHNiIvSSJ0R0YlLCQqKkkqbm9ybV9kcmhvR0YlIiIiSSRwaGlHRiUhIiJJJGtfc0dGJUYtSSRyaG9HRiVGLSNGKyIiIw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqpbe2:=phi=((1+chi)^(2/3)+(1-chi)^(2/3))/2;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXBiZTJHNiIvSSRwaGlHRiUsJiokLCYiIiJGK0kkY2hpR0YlRisjIiIjIiIkI0YrRi4qJCwmRitGK0YsISIiRi1GMA==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqpbe3:=k_s=sqrt(4*k_f/(Pi*a_0));
#eqpbe4:=a_0=h_bar^2 /(m*e^2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXBiZTNHNiIvSSRrX3NHRiUsJCokKiZJJGtfZkdGJSIiIkkjUGlHSSpwcm90ZWN0ZWRHRi4hIiIjRiwiIiNGMQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqpbe5:=H=(e^2/a_0)*gamma_var*phi^3*ln(1+beta/gamma_var*t^2*(1+A*t^2)/(1+A*t^2+A^2*t^4));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXBiZTVHNiIvSSJIR0YlKihJKmdhbW1hX3ZhckdGJSIiIkkkcGhpR0YlIiIkLUkjbG5HNiRJKnByb3RlY3RlZEdGMEkoX3N5c2xpYkdGJTYjLCZGKkYqKixJJWJldGFHRiVGKkYpISIiSSJ0R0YlIiIjLCZGKkYqKiZJIkFHRiVGKkY3RjhGKkYqLChGKkYqRjpGKiomRjtGOEY3IiIlRipGNkYqRio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqpbe6:=A=beta/gamma_var*(exp(-epsilon_c_unif/(gamma_var*phi^3*e^2/a_0))-1)^(-1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXBiZTZHNiIvSSJBR0YlKihJJWJldGFHRiUiIiJJKmdhbW1hX3ZhckdGJSEiIiwmLUkkZXhwRzYkSSpwcm90ZWN0ZWRHRjFJKF9zeXNsaWJHRiU2IywkKihJL2Vwc2lsb25fY191bmlmR0YlRipGK0YsSSRwaGlHRiUhIiRGLEYqRixGKkYs</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqpbe7:=epsilon_cGGA=epsilon_c_unif+H;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXBiZTdHNiIvSS1lcHNpbG9uX2NHR0FHRiUsJkkvZXBzaWxvbl9jX3VuaWZHRiUiIiJJIkhHRiVGKg==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqpbe8:=beta=0.066725;
eqpbe9:=gamma_var=(1-ln(2))/Pi^2;evalf(rhs(eqpbe9));
</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXBiZThHNiIvSSViZXRhR0YlJCImRG4nISIn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXBiZTlHNiIvSSpnYW1tYV92YXJHRiUqJiwmIiIiRiotSSNsbkc2JEkqcHJvdGVjdGVkR0YuSShfc3lzbGliR0YlNiMiIiMhIiJGKkkjUGlHRi4hIiM=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMkIisnM3AhNEohIzY=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqpbe10:=k_f=(3*Pi^2*rho)^(1/3);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SShlcXBiZTEwRzYiL0kka19mR0YlKiYiIiQjIiIiRikqJkkjUGlHSSpwcm90ZWN0ZWRHRi4iIiNJJHJob0dGJUYrRio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_pbec1 := [eqpbe8,eqpbe9,eqc3, eqpbe2, eqpbe10, eqpbe3, eqpbe1, eqpbe6, eqpbe5,eqpbe7];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSplcXNfcGJlYzFHNiI3LC9JJWJldGFHRiUkIiZEbichIicvSSpnYW1tYV92YXJHRiUqJiwmIiIiRjAtSSNsbkc2JEkqcHJvdGVjdGVkR0Y0SShfc3lzbGliR0YlNiMiIiMhIiJGMEkjUGlHRjQhIiMvSSRjaGlHRiUqJiwmSSVyaG9hR0YlRjBJJXJob2JHRiVGOEYwSSRyaG9HRiVGOC9JJHBoaUdGJSwmKiQsJkYwRjBGPEYwI0Y3IiIkI0YwRjcqJCwmRjBGMEY8RjhGR0ZJL0kka19mR0YlKiZGSCNGMEZIKiZGOUY3RkFGMEZPL0kka19zR0YlLCQqJComRk1GMEY5RjhGSUY3L0kidEdGJSwkKipJKm5vcm1fZHJob0dGJUYwRkNGOEZSRjhGQUY4RkkvSSJBR0YlKihGKEYwRi1GOCwmLUkkZXhwR0YzNiMsJCooSS9lcHNpbG9uX2NfdW5pZkdGJUYwRi1GOEZDISIkRjhGMEY4RjBGOC9JIkhHRiUqKEYtRjBGQ0ZILUYyNiMsJkYwRjAqLEYoRjBGLUY4RldGNywmRjBGMComRmZuRjBGV0Y3RjBGMCwoRjBGMEZob0YwKiZGZm5GN0ZXIiIlRjBGOEYwRjAvSS1lcHNpbG9uX2NHR0FHRiUsJkZeb0YwRmFvRjA=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_pbec1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8KEkjUGlHSSpwcm90ZWN0ZWRHRiVJL2Vwc2lsb25fY191bmlmRzYiSSRyaG9HRidJKm5vcm1fZHJob0dGJ0klcmhvYUdGJ0klcmhvYkdGJw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">Uniform gas correlation from Perdew,Wang; PRB vol 45, p 13244, 1992</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">equc1:=epsilon_c_unif=e_c_u_0+alpha_c*f/f_ii_0*(1-chi^4)+(e_c_u_1-e_c_u_0)*f*chi^4;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjMUc2Ii9JL2Vwc2lsb25fY191bmlmR0YlLChJKGVfY191XzBHRiUiIiIqKkkoYWxwaGFfY0dGJUYqSSJmR0YlRipJJ2ZfaWlfMEdGJSEiIiwmRipGKiokSSRjaGlHRiUiIiVGL0YqRioqKCwmSShlX2NfdV8xR0YlRipGKUYvRipGLUYqRjJGM0Yq</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">equc2:=f=((1+chi)^(4/3)+(1-chi)^(4/3)-2)/(2^(4/3)-2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjMkc2Ii9JImZHRiUqJiwoKiQsJiIiIkYsSSRjaGlHRiVGLCMiIiUiIiRGLCokLCZGLEYsRi0hIiJGLkYsISIjRixGLCwmKiQiIiMjRixGMEY3RjRGLEYz</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">equc3:=f_ii_0=subs(chi=0,diff(subs(equc2,f),chi,chi));
evalf(rhs(equc3));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjM0c2Ii9JJ2ZfaWlfMEdGJSwkKiQsJiokIiIjIyIiIiIiJEYsISIjRi4hIiIjIiIpIiIq</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMkIitMNCMqNDwhIio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">G_uc:=-2*A*(1+alpha_1*rs)*ln(1+1/(2*A*(beta_1*rs^(1/2)+beta_2*rs+beta_3*rs^(3/2)+beta_4*rs^(p+1))));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVHX3VjRzYiLCQqKEkiQUdGJSIiIiwmRilGKSomSShhbHBoYV8xR0YlRilJI3JzR0YlRilGKUYpLUkjbG5HNiRJKnByb3RlY3RlZEdGMUkoX3N5c2xpYkdGJTYjLCZGKUYpKiZGKCEiIiwqKiZJJ2JldGFfMUdGJUYpRi0jRikiIiNGKSomSSdiZXRhXzJHRiVGKUYtRilGKSomSSdiZXRhXzNHRiVGKUYtIyIiJEY7RikqJkknYmV0YV80R0YlRikpRi0sJkkicEdGJUYpRilGKUYpRilGNkY6RikhIiM=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">equc4c:=[p_1=1.0,A_1=0.031091,alpha_1_1=0.21370,beta_1_1=7.5957,beta_2_1=3.5876,beta_3_1=1.6382,
beta_4_1=0.49294];
equc4:={p=p_1,A=A_1,alpha_1=alpha_1_1,beta_1=beta_1_1,beta_2=beta_2_1,beta_3=beta_3_1,
beta_4=beta_4_1};
equc5:=e_c_u_0=subs(equc4,G_uc);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXVjNGNHNiI3KS9JJHBfMUdGJSQiIzUhIiIvSSRBXzFHRiUkIiYiNEohIicvSSphbHBoYV8xXzFHRiUkIiZxOCMhIiYvSSliZXRhXzFfMUdGJSQiJmRmKCEiJS9JKWJldGFfMl8xR0YlJCImd2UkRjovSSliZXRhXzNfMUdGJSQiJiNRO0Y6L0kpYmV0YV80XzFHRiUkIiYlSFxGNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjNEc2IjwpL0kicEdGJUkkcF8xR0YlL0kiQUdGJUkkQV8xR0YlL0knYmV0YV8xR0YlSSliZXRhXzFfMUdGJS9JKGFscGhhXzFHRiVJKmFscGhhXzFfMUdGJS9JJ2JldGFfMkdGJUkpYmV0YV8yXzFHRiUvSSdiZXRhXzNHRiVJKWJldGFfM18xR0YlL0knYmV0YV80R0YlSSliZXRhXzRfMUdGJQ==</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjNUc2Ii9JKGVfY191XzBHRiUsJCooSSRBXzFHRiUiIiIsJkYrRisqJkkqYWxwaGFfMV8xR0YlRitJI3JzR0YlRitGK0YrLUkjbG5HNiRJKnByb3RlY3RlZEdGM0koX3N5c2xpYkdGJTYjLCZGK0YrKiZGKiEiIiwqKiZJKWJldGFfMV8xR0YlRitGLyNGKyIiI0YrKiZJKWJldGFfMl8xR0YlRitGL0YrRisqJkkpYmV0YV8zXzFHRiVGK0YvIyIiJEY9RisqJkkpYmV0YV80XzFHRiVGKylGLywmSSRwXzFHRiVGK0YrRitGK0YrRjhGPEYrISIj</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">equc6c:=[p_2=1.0,A_2=0.015545,alpha_1_2=0.20548,beta_1_2=14.1189,beta_2_2=6.1977,beta_3_2=3.3662,
beta_4_2=0.62517];
equc6:={p=p_2,A=A_2,alpha_1=alpha_1_2,beta_1=beta_1_2,beta_2=beta_2_2,beta_3=beta_3_2,
beta_4=beta_4_2};
equc7:=e_c_u_1=subs(equc6,G_uc);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXVjNmNHNiI3KS9JJHBfMkdGJSQiIzUhIiIvSSRBXzJHRiUkIiZYYiIhIicvSSphbHBoYV8xXzJHRiUkIiZbMCMhIiYvSSliZXRhXzFfMkdGJSQiJyo9VCIhIiUvSSliZXRhXzJfMkdGJSQiJng+J0Y6L0kpYmV0YV8zXzJHRiUkIiZpTyRGOi9JKWJldGFfNF8yR0YlJCImPEQnRjU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjNkc2IjwpL0kicEdGJUkkcF8yR0YlL0kiQUdGJUkkQV8yR0YlL0knYmV0YV8xR0YlSSliZXRhXzFfMkdGJS9JKGFscGhhXzFHRiVJKmFscGhhXzFfMkdGJS9JJ2JldGFfMkdGJUkpYmV0YV8yXzJHRiUvSSdiZXRhXzNHRiVJKWJldGFfM18yR0YlL0knYmV0YV80R0YlSSliZXRhXzRfMkdGJQ==</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjN0c2Ii9JKGVfY191XzFHRiUsJCooSSRBXzJHRiUiIiIsJkYrRisqJkkqYWxwaGFfMV8yR0YlRitJI3JzR0YlRitGK0YrLUkjbG5HNiRJKnByb3RlY3RlZEdGM0koX3N5c2xpYkdGJTYjLCZGK0YrKiZGKiEiIiwqKiZJKWJldGFfMV8yR0YlRitGLyNGKyIiI0YrKiZJKWJldGFfMl8yR0YlRitGL0YrRisqJkkpYmV0YV8zXzJHRiVGK0YvIyIiJEY9RisqJkkpYmV0YV80XzJHRiVGKylGLywmSSRwXzJHRiVGK0YrRitGK0YrRjhGPEYrISIj</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">equc8c:=[p_3=1.0,A_3=0.016887,alpha_1_3=0.11125,beta_1_3=10.357,beta_2_3=3.6231,beta_3_3=0.88026,
beta_4_3=0.49671];
equc8:={p=p_3,A=A_3,alpha_1=alpha_1_3,beta_1=beta_1_3,beta_2=beta_2_3,beta_3=beta_3_3,
beta_4=beta_4_3};
equc9:=alpha_c=-subs(equc8,G_uc);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSdlcXVjOGNHNiI3KS9JJHBfM0dGJSQiIzUhIiIvSSRBXzNHRiUkIiYoKW8iISInL0kqYWxwaGFfMV8zR0YlJCImRDYiISImL0kpYmV0YV8xXzNHRiUkIiZkLiIhIiQvSSliZXRhXzJfM0dGJSQiJkppJCEiJS9JKWJldGFfM18zR0YlJCImRSEpKUY1L0kpYmV0YV80XzNHRiUkIiZyJ1xGNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjOEc2IjwpL0kicEdGJUkkcF8zR0YlL0kiQUdGJUkkQV8zR0YlL0knYmV0YV8xR0YlSSliZXRhXzFfM0dGJS9JKGFscGhhXzFHRiVJKmFscGhhXzFfM0dGJS9JJ2JldGFfMkdGJUkpYmV0YV8yXzNHRiUvSSdiZXRhXzNHRiVJKWJldGFfM18zR0YlL0knYmV0YV80R0YlSSliZXRhXzRfM0dGJQ==</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSZlcXVjOUc2Ii9JKGFscGhhX2NHRiUsJCooSSRBXzNHRiUiIiIsJkYrRisqJkkqYWxwaGFfMV8zR0YlRitJI3JzR0YlRitGK0YrLUkjbG5HNiRJKnByb3RlY3RlZEdGM0koX3N5c2xpYkdGJTYjLCZGK0YrKiZGKiEiIiwqKiZJKWJldGFfMV8zR0YlRitGLyNGKyIiI0YrKiZJKWJldGFfMl8zR0YlRitGL0YrRisqJkkpYmV0YV8zXzNHRiVGK0YvIyIiJEY9RisqJkkpYmV0YV80XzNHRiVGKylGLywmSSRwXzNHRiVGK0YrRitGK0YrRjhGPEYrRj0=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_e_c_unif:=[op(equc4c),op(equc6c),op(equc8c),eqc3,eqc7,equc5,equc7,equc9,equc3,equc2,equc1];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SS1lcXNfZV9jX3VuaWZHNiI3Py9JJHBfMUdGJSQiIzUhIiIvSSRBXzFHRiUkIiYiNEohIicvSSphbHBoYV8xXzFHRiUkIiZxOCMhIiYvSSliZXRhXzFfMUdGJSQiJmRmKCEiJS9JKWJldGFfMl8xR0YlJCImd2UkRjovSSliZXRhXzNfMUdGJSQiJiNRO0Y6L0kpYmV0YV80XzFHRiUkIiYlSFxGNS9JJHBfMkdGJUYpL0kkQV8yR0YlJCImWGIiRjAvSSphbHBoYV8xXzJHRiUkIiZbMCNGNS9JKWJldGFfMV8yR0YlJCInKj1UIkY6L0kpYmV0YV8yXzJHRiUkIiZ4PidGOi9JKWJldGFfM18yR0YlJCImaU8kRjovSSliZXRhXzRfMkdGJSQiJjxEJ0Y1L0kkcF8zR0YlRikvSSRBXzNHRiUkIiYoKW8iRjAvSSphbHBoYV8xXzNHRiUkIiZENiJGNS9JKWJldGFfMV8zR0YlJCImZC4iISIkL0kpYmV0YV8yXzNHRiUkIiZKaSRGOi9JKWJldGFfM18zR0YlJCImRSEpKUY1L0kpYmV0YV80XzNHRiUkIiZyJ1xGNS9JJGNoaUdGJSomLCZJJXJob2FHRiUiIiJJJXJob2JHRiVGK0ZbcUkkcmhvR0YlRisvSSNyc0dGJSwkKigiIiQjRltxRmJxIiIlIyIiI0ZicSomSSNQaUdJKnByb3RlY3RlZEdGaXFGK0ZdcUYrRmNxI0ZbcUZkcS9JKGVfY191XzBHRiUsJCooRi1GW3EsJkZbcUZbcSomRjJGW3FGX3FGW3FGW3FGW3EtSSNsbkc2JEZpcUkoX3N5c2xpYkdGJTYjLCZGW3FGW3EqJkYtRissKiomRjdGW3FGX3EjRltxRmZxRltxKiZGPEZbcUZfcUZbcUZbcSomRkBGW3FGX3EjRmJxRmZxRltxKiZGREZbcSlGX3EsJkYoRltxRltxRltxRltxRltxRitGanJGW3EhIiMvSShlX2NfdV8xR0YlLCQqKEZKRltxLCZGW3FGW3EqJkZORltxRl9xRltxRltxRltxLUZicjYjLCZGW3FGW3EqJkZKRissKiomRlJGW3FGX3FGanJGW3EqJkZWRltxRl9xRltxRltxKiZGWkZbcUZfcUZdc0ZbcSomRmhuRltxKUZfcSwmRkhGW3FGW3FGW3FGW3FGW3FGK0ZqckZbcUZhcy9JKGFscGhhX2NHRiUsJCooRl5vRltxLCZGW3FGW3EqJkZib0ZbcUZfcUZbcUZbcUZbcS1GYnI2IywmRltxRltxKiZGXm9GKywqKiZGZm9GW3FGX3FGanJGW3EqJkZbcEZbcUZfcUZbcUZbcSomRl9wRltxRl9xRl1zRltxKiZGY3BGW3EpRl9xLCZGXG9GW3FGW3FGW3FGW3FGW3FGK0ZqckZbcUZmcS9JJ2ZfaWlfMEdGJSwkKiQsJiokRmZxRmNxRmZxRmFzRltxRisjIiIpIiIqL0kiZkdGJSomLCgqJCwmRltxRltxRmdwRltxI0ZkcUZicUZbcSokLCZGW3FGW3FGZ3BGK0ZjdkZbcUZhc0ZbcUZbcUZodUYrL0kvZXBzaWxvbl9jX3VuaWZHRiUsKEZcckZbcSoqRmR0RltxRl52RltxRmV1RissJkZbcUZbcSokRmdwRmRxRitGW3FGW3EqKCwmRmNzRltxRlxyRitGW3FGXnZGW3FGZ3BGZHFGW3E=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_e_c_unif);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8JkkjUGlHSSpwcm90ZWN0ZWRHRiVJJHJob0c2IkklcmhvYUdGJ0klcmhvYkdGJw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">sameNameSameDef(eqs_e_c_unif,eqs_pbec1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_pbec2:=enforceDependencies(combineDefs([eqs_e_c_unif,eqs_pbec1])):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_pbec2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8J0kjUGlHSSpwcm90ZWN0ZWRHRiVJJHJob0c2Ikkqbm9ybV9kcmhvR0YnSSVyaG9hR0YnSSVyaG9iR0Yn</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">loc(eqs_pbec2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8SEkiZkc2IkkvZXBzaWxvbl9jX3VuaWZHRiVJKmFscGhhXzFfMUdGJUkpYmV0YV8xXzFHRiVJKWJldGFfMl8xR0YlSSliZXRhXzNfMUdGJUkpYmV0YV80XzFHRiVJKmFscGhhXzFfMkdGJUkpYmV0YV8xXzJHRiVJKWJldGFfMl8yR0YlSSliZXRhXzNfMkdGJUkpYmV0YV80XzJHRiVJKmFscGhhXzFfM0dGJUkpYmV0YV8xXzNHRiVJKWJldGFfMl8zR0YlSSJ0R0YlSSRwXzFHRiVJJEFfMUdGJUkkcF8yR0YlSSRBXzJHRiVJJHBfM0dGJUkkQV8zR0YlSSViZXRhR0YlSSdmX2lpXzBHRiVJKmdhbW1hX3ZhckdGJUkpYmV0YV8zXzNHRiVJKWJldGFfNF8zR0YlSSJBR0YlSS1lcHNpbG9uX2NHR0FHRiVJJGNoaUdGJUkjcnNHRiVJJHBoaUdGJUkka19zR0YlSSRrX2ZHRiVJIkhHRiVJKGVfY191XzBHRiVJKGFscGhhX2NHRiVJKGVfY191XzFHRiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_pbec2_nc:=rmDefs(costanti,eqs_pbec2):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_pbec3:=subs(map(x-&gt;x=x||_s1,loc(eqs_pbec2_nc)),epsilon_cGGA_s1=epsilon_cGGA_1_0,
rhob=0,norm_drho=norm_drhoa,norm_drhob=0,rho=rhoa,eqs_pbec2_nc):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_pbec3);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8LkkjUGlHSSpwcm90ZWN0ZWRHRiVJKmFscGhhXzFfMkc2IkkpYmV0YV8xXzJHRidJKWJldGFfMl8yR0YnSSliZXRhXzNfMkdGJ0kpYmV0YV80XzJHRidJJHBfMkdGJ0kkQV8yR0YnSSViZXRhR0YnSSpnYW1tYV92YXJHRidJK25vcm1fZHJob2FHRidJJXJob2FHRic=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_pbec4:=subs(map(x-&gt;x=x||_s2,loc(eqs_pbec2_nc)),epsilon_cGGA_s2=epsilon_cGGA_0_1,rhoa=0,norm_drho=norm_drhob,
norm_drhoa=0,rho=rhob,eqs_pbec2_nc):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_pbec4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8LkkjUGlHSSpwcm90ZWN0ZWRHRiVJKmFscGhhXzFfMkc2IkkpYmV0YV8xXzJHRidJKWJldGFfMl8yR0YnSSliZXRhXzNfMkdGJ0kpYmV0YV80XzJHRidJJHBfMkdGJ0kkQV8yR0YnSSViZXRhR0YnSSpnYW1tYV92YXJHRidJK25vcm1fZHJob2JHRidJJXJob2JHRic=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">sameNameSameDef(eqs_pbec2,eqs_c1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_c2:=enforceDependencies(combineDefs([eqs_pbec3,eqs_pbec4,eqs_pbec2,eqs_c1])):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_c2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8KkkjUGlHSSpwcm90ZWN0ZWRHRiVJJHRhdUc2IkkkcmhvR0YnSSpub3JtX2RyaG9HRidJK25vcm1fZHJob2FHRidJK25vcm1fZHJob2JHRidJJXJob2FHRidJJXJob2JHRic=</Equation></Text-field></Output></Group></Section><Section><Title><Text-field layout="Heading 2" linespacing="0.0" style="Heading 2"><Font italic="true">Fortran Costanti</Font></Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">fCostanti(costanti,subs(Pi=pi,[op(eqs_ex_lda),op(eqs_c2),scale_ec=1,scale_ex=1]));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM3Qi9JJmthcHBhRzYiJCIkLykhIiQvSSViZXRhR0YmJCImRG4nISInL0kjbXVHRiYkIiZePiMhIiYvSSpnYW1tYV92YXJHRiYqJiwmIiIiRjgtSSNsbkc2JEkqcHJvdGVjdGVkR0Y8SShfc3lzbGliR0YmNiMiIiMhIiJGOEkjcGlHRiYhIiMvSSJiR0YmJCIiJUZAL0kiY0dGJiQiJyc0ZiJGMy9JJmVfdmFyR0YmJCIlUDpGKS9JImRHRiYkIiNHRkAvSSdmX2lpXzBHRiYsJCokLCYqJEY/I0Y4IiIkRj9GQkY4RkAjIiIpIiIqL0kkcF8xR0YmJCIjNUZAL0kkQV8xR0YmJCImIjRKRi4vSSphbHBoYV8xXzFHRiYkIiZxOCNGMy9JKWJldGFfMV8xR0YmJCImZGYoISIlL0kpYmV0YV8yXzFHRiYkIiZ3ZSRGaG8vSSliZXRhXzNfMUdGJiQiJiNRO0Zoby9JKWJldGFfNF8xR0YmJCImJUhcRjMvSSRwXzJHRiZGam4vSSRBXzJHRiYkIiZYYiJGLi9JKmFscGhhXzFfMkdGJiQiJlswI0YzL0kpYmV0YV8xXzJHRiYkIicqPVQiRmhvL0kpYmV0YV8yXzJHRiYkIiZ4PidGaG8vSSliZXRhXzNfMkdGJiQiJmlPJEZoby9JKWJldGFfNF8yR0YmJCImPEQnRjMvSSRwXzNHRiZGam4vSSRBXzNHRiYkIiYoKW8iRi4vSSphbHBoYV8xXzNHRiYkIiZENiJGMy9JKWJldGFfMV8zR0YmJCImZC4iRikvSSliZXRhXzJfM0dGJiQiJkppJEZoby9JKWJldGFfM18zR0YmJCImRSEpKUYzL0kpYmV0YV80XzNHRiYkIiZyJ1xGMy9JKXNjYWxlX2VjR0YmRjgvSSlzY2FsZV9leEdGJkY4</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMtSShGb3J0cmFuRzYiNiNmKkYlRiVGJUYlQ0I+SSZrYXBwYUdGJSQiJC8pISIkPkklYmV0YUdGJSQiJkRuJyEiJz5JI211R0YlJCImXj4jISImPkkqZ2FtbWFfdmFyR0YlKiYsJiIiIkY8LUkjbG5HNiRJKnByb3RlY3RlZEdGQEkoX3N5c2xpYkdGJTYjIiIjISIiRjxJI3BpR0YlISIjPkkiYkdGJSQiIiVGRD5JImNHRiUkIicnNGYiRjc+SSZlX3ZhckdGJSQiJVA6Ri0+SSJkR0YlJCIjR0ZEPkknZl9paV8wR0YlLCQqJCwmKiRGQyNGPCIiJEZDRkZGPEZEIyIiKSIiKj5JJHBfMUdGJSQiIzVGRD5JJEFfMUdGJSQiJiI0SkYyPkkqYWxwaGFfMV8xR0YlJCImcTgjRjc+SSliZXRhXzFfMUdGJSQiJmRmKCEiJT5JKWJldGFfMl8xR0YlJCImd2UkRlxwPkkpYmV0YV8zXzFHRiUkIiYjUTtGXHA+SSliZXRhXzRfMUdGJSQiJiVIXEY3PkkkcF8yR0YlRl5vPkkkQV8yR0YlJCImWGIiRjI+SSphbHBoYV8xXzJHRiUkIiZbMCNGNz5JKWJldGFfMV8yR0YlJCInKj1UIkZccD5JKWJldGFfMl8yR0YlJCImeD4nRlxwPkkpYmV0YV8zXzJHRiUkIiZpTyRGXHA+SSliZXRhXzRfMkdGJSQiJjxEJ0Y3PkkkcF8zR0YlRl5vPkkkQV8zR0YlJCImKClvIkYyPkkqYWxwaGFfMV8zR0YlJCImRDYiRjc+SSliZXRhXzFfM0dGJSQiJmQuIkYtPkkpYmV0YV8yXzNHRiUkIiZKaSRGXHA+SSliZXRhXzNfM0dGJSQiJkUhKSlGNz5JKWJldGFfNF8zR0YlJCImcidcRjc+SSlzY2FsZV9lY0dGJUY8Pkkpc2NhbGVfZXhHRiVGPEYlNkJGKkYvRjRGOUZIRkxGUEZURlhGXW9GYW9GZW9GaW9GXnBGYnBGZnBGanBGXHFGYHFGZHFGaHFGXHJGYHJGZHJGZnJGanJGXnNGYnNGZnNGanNGXnRGYHRGJQ==</Equation></Text-field></Output></Group></Section><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group></Section><Text-field/><Section><Title><Text-field layout="Heading 1" style="Heading 1">LDA</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">sameNameSameDef(eqs_ex_lda,eqs_c2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_lda0:=combineDefs([subs(rhoa=rho/2,norm_drhoa=norm_drho/2,rhob=rho/2,norm_drhob=norm_drho/2,
eqs_c2),eqs_ex_lda,[scale_ec=1,scale_ex=1,energy=scale_ec*ec+scale_ex*ex_lda]]):
eqs_lda:=rmDefs(costanti,eqs_lda0):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">lda_const:={op(costanti)} intersect unk(eqs_lda);
{op(costanti)} minus lda_const;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSpsZGFfY29uc3RHNiI8OkkiZEdGJUkqYWxwaGFfMV8xR0YlSSliZXRhXzFfMUdGJUkpYmV0YV8yXzFHRiVJKWJldGFfM18xR0YlSSliZXRhXzRfMUdGJUkqYWxwaGFfMV8yR0YlSSliZXRhXzFfMkdGJUkpYmV0YV8yXzJHRiVJKWJldGFfM18yR0YlSSliZXRhXzRfMkdGJUkjbXVHRiVJImJHRiVJImNHRiVJJHBfMUdGJUkkQV8xR0YlSSRwXzJHRiVJJEFfMkdGJUkma2FwcGFHRiVJJWJldGFHRiVJJmVfdmFyR0YlSSpnYW1tYV92YXJHRiVJKXNjYWxlX2VjR0YlSSlzY2FsZV9leEdGJQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8KkkqYWxwaGFfMV8zRzYiSSliZXRhXzFfM0dGJUkpYmV0YV8yXzNHRiVJJHBfM0dGJUkkQV8zR0YlSSdmX2lpXzBHRiVJKWJldGFfM18zR0YlSSliZXRhXzRfM0dGJQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">def_lda:=definizioni(eqs_lda);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SShkZWZfbGRhRzYiN2huSSdjaGlfczFHRiVJJnJzX3MxR0YlSSVmX3MxR0YlSSdwaGlfczFHRiVJJ2tfZl9zMUdGJUkna19zX3MxR0YlSSV0X3MxR0YlSSdjaGlfczJHRiVJJnJzX3MyR0YlSSVmX3MyR0YlSSdwaGlfczJHRiVJJ2tfZl9zMkdGJUkna19zX3MyR0YlSSV0X3MyR0YlSStlX2NfdV8wX3MyR0YlSStlX2NfdV8wX3MxR0YlSStlX2NfdV8xX3MyR0YlSStlX2NfdV8xX3MxR0YlSSthbHBoYV9jX3MyR0YlSSthbHBoYV9jX3MxR0YlSSRjaGlHRiVJI3JzR0YlSShlX2NfdV8wR0YlSShlX2NfdV8xR0YlSShhbHBoYV9jR0YlSTJlcHNpbG9uX2NfdW5pZl9zMUdGJUkyZXBzaWxvbl9jX3VuaWZfczJHRiVJImZHRiVJL2Vwc2lsb25fY191bmlmR0YlSSVBX3MxR0YlSSVIX3MxR0YlSTFlcHNpbG9uX2NHR0FfMV8wR0YlSSVBX3MyR0YlSSVIX3MyR0YlSTFlcHNpbG9uX2NHR0FfMF8xR0YlSSRwaGlHRiVJJGtfZkdGJUkka19zR0YlSSJ0R0YlSSJBR0YlSSJIR0YlSS1lcHNpbG9uX2NHR0FHRiVJKm5vcm1fZGNoaUdGJUkkZXBzR0YlSSZDX2NoaUdGJUkmdGF1X3dHRiVJKkNfY2hpX2Vwc0dGJUkjbWFHRiVJI21iR0YlSTFlcHNpbG9uX2NSZXZQS1pCR0YlSSNlY0dGJUkicEdGJUkiekdGJUkmYWxwaGFHRiVJKXRpbGRlcV9iR0YlSSJ4R0YlSSNGeEdGJUkoZXhfdW5pZkdGJUknZXhfbGRhR0YlSSdlbmVyZ3lHRiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">ima:=indice(ma,def_lda);
imb:=indice(mb,def_lda);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSRpbWFHNiIiI1s=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSRpbWJHNiIiI1w=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqMa:=eqs_lda[ima];
eqMb:=eqs_lda[imb];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcU1hRzYiL0kjbWFHRiUtSSRtYXhHSSpwcm90ZWN0ZWRHRio2JEkxZXBzaWxvbl9jR0dBXzFfMEdGJUktZXBzaWxvbl9jR0dBR0Yl</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSVlcU1iRzYiL0kjbWJHRiUtSSRtYXhHSSpwcm90ZWN0ZWRHRio2JEkxZXBzaWxvbl9jR0dBXzBfMUdGJUktZXBzaWxvbl9jR0dBR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqMas:=[ma=epsilon_cGGA,ma=epsilon_cGGA_1_0]:
eqMbs:=[mb=epsilon_cGGA,mb=epsilon_cGGA_0_1]:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">arg_lda_names:=[rho,norm_drho,tau]; </Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SS5hcmdfbGRhX25hbWVzRzYiNyVJJHJob0dGJUkqbm9ybV9kcmhvR0YlSSR0YXVHRiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">printlevel:=1;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SStwcmludGxldmVsRzYiIiIi</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">for i from 1 to 2 do
for j from 1 to 2 do
deriv_lda[i,j]:=calcDerivs(subsop(ima=eqMas[i],imb=eqMbs[j],eqs_lda),arg_lda_names):
end do;
end do;
i:='i':j:='j':</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">ims:= eqs-&gt;select(x-&gt;x&gt;0,[indice(ma,definizioni(eqs)),
indice(mb,definizioni(eqs)),
indice(marho,definizioni(eqs)),
indice(mbrho,definizioni(eqs)),
indice(manorm_drho,definizioni(eqs)),
indice(mbnorm_drho,definizioni(eqs)),
indice(matau,definizioni(eqs)),
indice(mbtau,definizioni(eqs))]):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqss_lda2:=[sostConst(eqs_lda),seq(seq(seq(deriv_lda[i,j][ider],i=1..2),j=1..2),ider=1..3)]:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">checkCompatible(eqss_lda1,ims);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">Order sequence defs</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">def_eqss_lda2:=map(definizioni,eqss_lda2):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">allDefs_eqs_lda2:=combineDefs(def_eqss_lda2):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_lda2:=combineEqs(allDefs_eqs_lda2,eqss_lda2,def_eqss_lda2):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_lda2) minus lda_const;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8JkkjUGlHSSpwcm90ZWN0ZWRHRiVJJHRhdUc2IkkkcmhvR0YnSSpub3JtX2RyaG9HRic=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(ma,eqs_lda2);
getDef(mb,eqs_lda2);
indice(marho,eqs_lda2);
getDef(marho,deriv_lda[1,1][1]);
getDef(mbrho,deriv_lda[2,2][1]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMvSSNtYUc2Ii1JJG1heEdJKnByb3RlY3RlZEdGKDYkSTFlcHNpbG9uX2NHR0FfMV8wR0YlSS1lcHNpbG9uX2NHR0FHRiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiMvSSNtYkc2Ii1JJG1heEdJKnByb3RlY3RlZEdGKDYkSTFlcHNpbG9uX2NHR0FfMF8xR0YlSS1lcHNpbG9uX2NHR0FHRiU=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMhIiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiMvSSZtYXJob0c2IkkwZXBzaWxvbl9jR0dBcmhvR0Yl</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMvSSZtYnJob0c2Ikk0ZXBzaWxvbl9jR0dBXzBfMXJob0dGJQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">corrMabEqs:=proc() local arg,res,der;
arg:=[rho,norm_drho];
res:=[];
for der in arg do
res:=[op(res),
ma||der=myIF(epsilon_cGGA_1_0&gt;epsilon_cGGA,
epsilon_cGGA_1_0||der,epsilon_cGGA||der),
mb||der=myIF(epsilon_cGGA_0_1&gt;epsilon_cGGA,
epsilon_cGGA_0_1||der,epsilon_cGGA||der)
];
end do;
#subs(myIF=`if`,res);
end proc();</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SStjb3JyTWFiRXFzRzYiNyYvSSZtYXJob0dGJS1JJW15SUZHRiU2JTJJLWVwc2lsb25fY0dHQUdGJUkxZXBzaWxvbl9jR0dBXzFfMEdGJUk0ZXBzaWxvbl9jR0dBXzFfMHJob0dGJUkwZXBzaWxvbl9jR0dBcmhvR0YlL0kmbWJyaG9HRiUtRio2JTJGLUkxZXBzaWxvbl9jR0dBXzBfMUdGJUk0ZXBzaWxvbl9jR0dBXzBfMXJob0dGJUYwL0ksbWFub3JtX2RyaG9HRiUtRio2JUYsSTplcHNpbG9uX2NHR0FfMV8wbm9ybV9kcmhvR0YlSTZlcHNpbG9uX2NHR0Fub3JtX2RyaG9HRiUvSSxtYm5vcm1fZHJob0dGJS1GKjYlRjVJOmVwc2lsb25fY0dHQV8wXzFub3JtX2RyaG9HRiVGPQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">sostCorrMabEqs:=[seq(indiceDef(lhs(corrMabEqs[i]),eqs_lda2)=(corrMabEqs[i]),i=1..nops(corrMabEqs))];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SS9zb3N0Q29yck1hYkVxc0c2IjcmLyIjbi9JJm1hcmhvR0YlLUklbXlJRkdGJTYlMkktZXBzaWxvbl9jR0dBR0YlSTFlcHNpbG9uX2NHR0FfMV8wR0YlSTRlcHNpbG9uX2NHR0FfMV8wcmhvR0YlSTBlcHNpbG9uX2NHR0FyaG9HRiUvIiNvL0kmbWJyaG9HRiUtRiw2JTJGL0kxZXBzaWxvbl9jR0dBXzBfMUdGJUk0ZXBzaWxvbl9jR0dBXzBfMXJob0dGJUYyLyIkLSIvSSxtYW5vcm1fZHJob0dGJS1GLDYlRi5JOmVwc2lsb25fY0dHQV8xXzBub3JtX2RyaG9HRiVJNmVwc2lsb25fY0dHQW5vcm1fZHJob0dGJS8iJC4iL0ksbWJub3JtX2RyaG9HRiUtRiw2JUY5STplcHNpbG9uX2NHR0FfMF8xbm9ybV9kcmhvR0YlRkM=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_lda3:=subsop(op(sostCorrMabEqs),eqs_lda2):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(mbrho,eqs_lda3);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiMvSSZtYnJob0c2Ii1JJW15SUZHRiU2JTJJLWVwc2lsb25fY0dHQUdGJUkxZXBzaWxvbl9jR0dBXzBfMUdGJUk0ZXBzaWxvbl9jR0dBXzBfMXJob0dGJUkwZXBzaWxvbl9jR0dBcmhvR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk([op(eqs_lda3),result=deriv_rho]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM8QEkiZEc2IkkjUGlHSSpwcm90ZWN0ZWRHRidJKmFscGhhXzFfMUdGJUkpYmV0YV8xXzFHRiVJKWJldGFfMl8xR0YlSSliZXRhXzNfMUdGJUkpYmV0YV80XzFHRiVJKmFscGhhXzFfMkdGJUkpYmV0YV8xXzJHRiVJKWJldGFfMl8yR0YlSSliZXRhXzNfMkdGJUkpYmV0YV80XzJHRiVJI211R0YlSSJiR0YlSSJjR0YlSSRwXzFHRiVJJEFfMUdGJUkkcF8yR0YlSSRBXzJHRiVJJHRhdUdGJUkma2FwcGFHRiVJJWJldGFHRiVJJmVfdmFyR0YlSSpnYW1tYV92YXJHRiVJJHJob0dGJUkpc2NhbGVfZWNHRiVJKXNjYWxlX2V4R0YlSSpub3JtX2RyaG9HRiVJNGVwc2lsb25fY0dHQV8wXzFyaG9HRiVJNGVwc2lsb25fY0dHQV8xXzByaG9HRiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_lda4:=enforceDependencies([my_tau=max(tau,tau_w),my_rho=rho,my_norm_drho=norm_drho,
op(subs(tau=my_tau,rho=my_rho,norm_drho=my_norm_drho,eqs_lda3))]):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">res_eqs_lda:={energy,deriv_rho,deriv_norm_drho,deriv_tau};
for my_symb in res_eqs_lda do
print(my_symb,unk([op(eqs_lda4),result=my_symb])minus lda_const);
end do;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SSxyZXNfZXFzX2xkYUc2IjwmSTBkZXJpdl9ub3JtX2RyaG9HRiVJKmRlcml2X3Job0dGJUkqZGVyaXZfdGF1R0YlSSdlbmVyZ3lHRiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiRJMGRlcml2X25vcm1fZHJob0c2IjwmSSNQaUdJKnByb3RlY3RlZEdGJ0kkdGF1R0YkSSRyaG9HRiRJKm5vcm1fZHJob0dGJA==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiRJKmRlcml2X3Job0c2IjwmSSNQaUdJKnByb3RlY3RlZEdGJ0kkdGF1R0YkSSRyaG9HRiRJKm5vcm1fZHJob0dGJA==</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiRJKmRlcml2X3RhdUc2IjwmSSNQaUdJKnByb3RlY3RlZEdGJ0kkdGF1R0YkSSRyaG9HRiRJKm5vcm1fZHJob0dGJA==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation>NiRJJ2VuZXJneUc2IjwmSSNQaUdJKnByb3RlY3RlZEdGJ0kkdGF1R0YkSSRyaG9HRiRJKm5vcm1fZHJob0dGJA==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">glob_eqs_lda4:={my_rho,my_norm_drho,my_tau}union res_eqs_lda union lda_const;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation>NiM+SS5nbG9iX2Vxc19sZGE0RzYiPEFJImRHRiVJKmFscGhhXzFfMUdGJUkpYmV0YV8xXzFHRiVJKWJldGFfMl8xR0YlSSliZXRhXzNfMUdGJUkpYmV0YV80XzFHRiVJKmFscGhhXzFfMkdGJUkpYmV0YV8xXzJHRiVJKWJldGFfMl8yR0YlSSliZXRhXzNfMkdGJUkpYmV0YV80XzJHRiVJI211R0YlSSJiR0YlSSJjR0YlSSRwXzFHRiVJJEFfMUdGJUkkcF8yR0YlSSRBXzJHRiVJJmthcHBhR0YlSSViZXRhR0YlSSZlX3ZhckdGJUkqZ2FtbWFfdmFyR0YlSSlzY2FsZV9lY0dGJUkpc2NhbGVfZXhHRiVJMGRlcml2X25vcm1fZHJob0dGJUkqZGVyaXZfcmhvR0YlSSpkZXJpdl90YXVHRiVJJ215X3Job0dGJUktbXlfbm9ybV9kcmhvR0YlSSdlbmVyZ3lHRiVJJ215X3RhdUdGJQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cs_eqs_lda4:=CompSeq(locals=loc(eqs_lda4)minus glob_eqs_lda4,
globals=glob_eqs_lda4,params=[rho,norm_drho,tau],subs(Pi=pi,eqs_lda4)):
r_eqs_lda4:=convert(cs_eqs_lda4,procedure):</Text-field></Input></Group><Section><Title><Text-field layout="Heading 2" style="Heading 2">Fortran code</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">Fortran(r_eqs_lda4,defaulttype=float,optimize);</Text-field></Input><Output><Text-field layout="Warning" style="Warning">Warning, the function names {myIF} are not recognized in the target language</Text-field></Output><Output><Text-field layout="Warning" style="Warning">Warning, The following variable name replacements were made: ["cg", "cg0", "cg1", "cg10", "cg11", "cg12", "cg13", "cg14", "cg15", "cg16", "cg17", "cg18", "cg19", "cg2", "cg20", "cg21", "cg22", "cg23", "cg24", "cg25", "cg26", "cg27", "cg28", "cg29", "cg3", "cg30", "cg31", "cg32", "cg33", "cg34", "cg35", "cg36", "cg37", "cg38", "cg39", "cg4", "cg40", "cg41", "cg42", "cg43", "cg44", "cg45", "cg46", "cg47", "cg48", "cg49", "cg5", "cg50", "cg51", "cg52", "cg53", "cg54", "cg55", "cg56", "cg57", "cg58", "cg6", "cg7", "cg8", "cg9"] = ["norm_drho", "ex_unif", "alphanorm_drho", "tau_w", "epsilon_cGGA_1_0", "A_s1", "A_s2", "znorm_drho", "Hnorm_drho", "tnorm_drho", "tau_wnorm_drho", "k_s", "epsilon_cGGA_0_1", "e_c_u_1_s1", "rs_s1rho", "tildeq_btau", "epsilon_cRevPKZBrho", "rs_s1", "phi_s1", "k_f_s1", "k_s_s1", "t_s1", "rs_s2", "k_s_s2", "A_s2rho", "t_s2", "alpharho", "tildeq_brho", "k_f_s1rho", "tildeq_bnorm_drho", "phi_s2", "epsilon_cGGArho", "tau_wrho", "epsilon_cRevPKZBtau", "pnorm_drho", "e_c_u_0", "epsilon_cRevPKZBnorm_drho", "epsilon_cGGA", "epsilon_cRevPKZB", "t_s1rho", "A_s1rho", "mbnorm_drho", "alphatau", "t_s1norm_drho", "t_s2norm_drho", "e_c_u_1_s1rho", "tildeq_b", "manorm_drho", "e_c_u_0rho", "A_3", "p_3", "beta_1_3", "beta_2_3", "beta_3_3", "beta_4_3", "r_eqs_lda4", "e_c_u_1_s2", "rs_s2rho", "t_s2rho", "e_c_u_1_s2rho"]
</Text-field></Output><Output><Text-field layout="Normal" style="Line Printed Output"> doubleprecision function cg58 (rho, cg, tau)
doubleprecision d
doubleprecision alpha_1_1
doubleprecision beta_1_1
doubleprecision beta_2_1
doubleprecision beta_3_1
doubleprecision beta_4_1
doubleprecision alpha_1_2
doubleprecision beta_1_2
doubleprecision beta_2_2
doubleprecision beta_3_2
doubleprecision beta_4_2
doubleprecision mu
doubleprecision b
doubleprecision c
doubleprecision p_1
doubleprecision A_1
doubleprecision p_2
doubleprecision A_2
doubleprecision kappa
doubleprecision beta
doubleprecision e_var
doubleprecision gamma_var
doubleprecision scale_ec
doubleprecision scale_ex
doubleprecision deriv_norm_drho
doubleprecision deriv_rho
doubleprecision deriv_tau
doubleprecision my_rho
doubleprecision my_norm_drho
doubleprecision energy
doubleprecision my_tau
common d, alpha_1_1, beta_1_1, beta_2_1, beta_3_1, beta_4_1, alp
#ha_1_2, beta_1_2, beta_2_2, beta_3_2, beta_4_2, mu, b, c, p_1, A_1
#, p_2, A_2, kappa, beta, e_var, gamma_var, scale_ec, scale_ex, der
#iv_norm_drho, deriv_rho, deriv_tau, my_rho, my_norm_drho, energy,
#my_tau
doubleprecision rho
doubleprecision cg
doubleprecision tau
doubleprecision t177
doubleprecision t294
doubleprecision t220
doubleprecision t252
doubleprecision t267
doubleprecision t151
doubleprecision t542
doubleprecision t194
doubleprecision t9
doubleprecision t437
doubleprecision t445
doubleprecision t325
integer t13
doubleprecision t14
doubleprecision cg0
doubleprecision rsrho
doubleprecision t280
doubleprecision t281
doubleprecision t284
doubleprecision t286
doubleprecision t288
doubleprecision t290
doubleprecision t213
doubleprecision cg1
doubleprecision ma
doubleprecision mb
doubleprecision cg2
doubleprecision t569
logical t571
doubleprecision t574
doubleprecision marho
doubleprecision cg3
doubleprecision mbrho
doubleprecision cg4
doubleprecision z
doubleprecision cg5
doubleprecision t799
doubleprecision t629
integer t5
doubleprecision t39
doubleprecision cg6
doubleprecision t256
doubleprecision t385
doubleprecision rs
doubleprecision t277
doubleprecision t327
doubleprecision t328
doubleprecision t472
doubleprecision t475
doubleprecision cg7
doubleprecision t211
doubleprecision t212
doubleprecision t303
doubleprecision t253
doubleprecision t642
doubleprecision t645
doubleprecision t78
doubleprecision t536
doubleprecision t295
doubleprecision cg8
doubleprecision t16
doubleprecision t58
doubleprecision t60
doubleprecision t279
doubleprecision cg9
doubleprecision cg10
doubleprecision t26
doubleprecision t28
doubleprecision cg11
doubleprecision t77
doubleprecision t36
doubleprecision alpha
doubleprecision t79
doubleprecision t80
doubleprecision t221
doubleprecision t223
doubleprecision t224
doubleprecision t226
doubleprecision t227
doubleprecision t230
doubleprecision t231
doubleprecision t233
doubleprecision t329
doubleprecision cg12
doubleprecision cg13
doubleprecision t585
doubleprecision t489
doubleprecision t490
doubleprecision cg14
doubleprecision t19
doubleprecision t20
doubleprecision t21
doubleprecision t127
doubleprecision t134
doubleprecision t138
doubleprecision cg15
doubleprecision t29
doubleprecision t450
doubleprecision t404
doubleprecision Fx
doubleprecision cg16
doubleprecision cg17
doubleprecision t630
doubleprecision t637
logical t639
doubleprecision t41
doubleprecision t351
doubleprecision t35
integer t12
doubleprecision t293
doubleprecision t430
integer t1
doubleprecision t268
doubleprecision t49
integer t2
doubleprecision t119
doubleprecision t112
doubleprecision cg18
doubleprecision t505
doubleprecision t403
doubleprecision t410
doubleprecision t411
doubleprecision t419
doubleprecision t215
doubleprecision cg19
doubleprecision t337
doubleprecision t340
doubleprecision t343
doubleprecision t386
doubleprecision t390
doubleprecision t395
doubleprecision t396
doubleprecision cg20
doubleprecision t107
integer t111
doubleprecision t319
doubleprecision t322
doubleprecision cg21
doubleprecision cg22
doubleprecision t301
doubleprecision t302
doubleprecision t305
doubleprecision t307
doubleprecision t310
doubleprecision t313
doubleprecision t316
doubleprecision t84
doubleprecision cg23
doubleprecision cg24
doubleprecision cg25
doubleprecision cg26
doubleprecision cg27
doubleprecision cg28
doubleprecision cg29
doubleprecision cg30
doubleprecision t464
doubleprecision t546
doubleprecision t216
doubleprecision cg31
doubleprecision t55
doubleprecision t260
doubleprecision t263
doubleprecision t85
doubleprecision cg32
doubleprecision t391
doubleprecision t547
doubleprecision t549
doubleprecision t554
doubleprecision t555
doubleprecision t184
doubleprecision t186
doubleprecision t187
doubleprecision t189
doubleprecision t190
doubleprecision t191
doubleprecision t193
doubleprecision cg33
doubleprecision t100
doubleprecision t101
doubleprecision t398
doubleprecision t218
doubleprecision cg34
doubleprecision t161
doubleprecision t168
doubleprecision cg35
doubleprecision t406
doubleprecision t140
doubleprecision t143
doubleprecision t145
doubleprecision t146
doubleprecision t147
doubleprecision t152
doubleprecision cg36
doubleprecision cg37
doubleprecision t291
doubleprecision t73
doubleprecision t299
doubleprecision zrho
doubleprecision cg38
doubleprecision t331
doubleprecision t625
doubleprecision t604
doubleprecision t7
doubleprecision t71
doubleprecision t513
doubleprecision t517
doubleprecision cg39
doubleprecision t22
doubleprecision cg40
doubleprecision t219
doubleprecision cg41
doubleprecision cg42
doubleprecision t94
doubleprecision t95
doubleprecision t96
doubleprecision cg43
doubleprecision cg44
doubleprecision t485
doubleprecision t234
doubleprecision t370
doubleprecision t67
doubleprecision cg45
doubleprecision t541
doubleprecision t208
doubleprecision t209
doubleprecision t344
doubleprecision t452
doubleprecision cg46
doubleprecision t235
doubleprecision t557
doubleprecision t561
doubleprecision t562
doubleprecision cg47
doubleprecision cg48
doubleprecision t42
doubleprecision t204
doubleprecision t205
doubleprecision ztau
doubleprecision t
doubleprecision A
doubleprecision t264
doubleprecision t265
doubleprecision t269
doubleprecision t271
doubleprecision t272
doubleprecision t274
doubleprecision t275
doubleprecision t276
doubleprecision t371
doubleprecision t376
doubleprecision t383
doubleprecision t27
doubleprecision trho
doubleprecision Arho
doubleprecision prho
integer t3
integer t4
doubleprecision p
doubleprecision cg49
doubleprecision t659
doubleprecision cg50
doubleprecision t6
doubleprecision t609
doubleprecision t610
doubleprecision t614
doubleprecision t615
doubleprecision t617
doubleprecision t622
doubleprecision t623
doubleprecision t238
doubleprecision t239
doubleprecision t241
doubleprecision t242
doubleprecision t243
doubleprecision cg51
doubleprecision t245
doubleprecision t246
doubleprecision t248
doubleprecision t249
doubleprecision t254
doubleprecision t196
doubleprecision t197
doubleprecision t198
doubleprecision t199
doubleprecision t201
doubleprecision t202
doubleprecision t89
doubleprecision t278
my_rho = rho
my_norm_drho = cg
t1 = 3 ** (0.1D1 / 0.3D1)
t2 = 4 ** (0.1D1 / 0.3D1)
t3 = t2 ** 2
t4 = t1 * t3
t5 = 2 ** (0.1D1 / 0.3D1)
t6 = 0.1D1 / 0.3141592654D1
t7 = 0.1D1 / rho
t9 = (t6 * t7) ** (0.1D1 / 0.3D1)
cg23 = dble(t4) * dble(t5) * t9 / 0.4D1
t12 = t5 ** 2
cg24 = dble(t12) / 0.2D1
t13 = t1 * t12
t14 = 0.3141592654D1 ** 2
t16 = (t14 * rho) ** (0.1D1 / 0.3D1)
cg25 = dble(t13) * t16 / 0.2D1
t19 = sqrt(cg25 * t6)
cg26 = 0.2D1 * t19
t20 = 0.1D1 / cg24
t21 = cg * t20
t22 = 0.1D1 / cg26
cg27 = t21 * t22 * t7 / 0.2D1
cg28 = cg23
cg35 = cg24
t26 = sqrt(cg25 * t6)
cg29 = 0.2D1 * t26
t27 = 0.1D1 / cg35
t28 = cg * t27
t29 = 0.1D1 / cg29
cg30 = t28 * t29 * t7 / 0.2D1
t35 = 0.1D1 / A_1
t36 = sqrt(cg28)
t39 = t36 * cg28
t41 = p_1 + 0.1D1
t42 = cg28 ** t41
t49 = log(0.1D1 + t35 / (beta_1_1 * t36 + beta_2_1 * cg28 + beta
#_3_1 * t39 + beta_4_1 * t42) / 0.2D1)
t55 = sqrt(cg23)
t58 = t55 * cg23
t60 = cg23 ** t41
t67 = log(0.1D1 + t35 / (beta_1_1 * t55 + beta_2_1 * cg23 + beta
#_3_1 * t58 + beta_4_1 * t60) / 0.2D1)
t71 = 0.1D1 + alpha_1_2 * cg28
t73 = 0.1D1 / A_2
t77 = p_2 + 0.1D1
t78 = cg28 ** t77
t79 = beta_4_2 * t78
t80 = beta_1_2 * t36 + beta_2_2 * cg28 + beta_3_2 * t39 + t79
t84 = 0.1D1 + t73 / t80 / 0.2D1
t85 = log(t84)
cg6 = -0.2D1 * A_2 * t71 * t85
t89 = 0.1D1 + alpha_1_2 * cg23
t94 = cg23 ** t77
t95 = beta_4_2 * t94
t96 = beta_1_2 * t55 + beta_2_2 * cg23 + beta_3_2 * t58 + t95
t100 = 0.1D1 + t73 / t96 / 0.2D1
t101 = log(t100)
cg2 = -0.2D1 * A_2 * t89 * t101
t107 = 0.1D1 / cg52
t111 = cg53 + 1
t112 = cg28 ** t111
t119 = log(0.1D1 + t107 / (cg54 * t36 + cg55 * cg28 + cg56 * t39
# + cg57 * t112) / 0.2D1)
t127 = cg23 ** t111
t134 = log(0.1D1 + t107 / (cg54 * t55 + cg55 * cg23 + cg56 * t58
# + cg57 * t127) / 0.2D1)
rs = dble(t4) * t9 / 0.4D1
t138 = 0.1D1 + alpha_1_1 * rs
t140 = sqrt(rs)
t143 = t140 * rs
t145 = rs ** t41
t146 = beta_4_1 * t145
t147 = beta_1_1 * t140 + beta_2_1 * rs + beta_3_1 * t143 + t146
t151 = 0.1D1 + t35 / t147 / 0.2D1
t152 = log(t151)
cg4 = -0.2D1 * A_1 * t138 * t152
t161 = rs ** t77
t168 = log(0.1D1 + t73 / (beta_1_2 * t140 + beta_2_2 * rs + beta
#_3_2 * t143 + beta_4_2 * t161) / 0.2D1)
t177 = rs ** t111
t184 = log(0.1D1 + t107 / (cg54 * t140 + cg55 * rs + cg56 * t143
# + cg57 * t177) / 0.2D1)
t186 = 0.1D1 / gamma_var
t187 = beta * t186
t189 = cg24 ** 2
t190 = t189 * cg24
t191 = 0.1D1 / t190
t193 = exp(-cg2 * t186 * t191)
t194 = t193 - 0.1D1
cg12 = t187 / t194
t196 = gamma_var * t190
t197 = cg27 ** 2
t198 = cg12 * t197
t199 = 0.1D1 + t198
t201 = cg12 ** 2
t202 = t197 ** 2
t204 = 0.1D1 + t198 + t201 * t202
t205 = 0.1D1 / t204
t208 = 0.1D1 + t187 * t197 * t199 * t205
t209 = log(t208)
cg11 = cg2 + t196 * t209
t211 = cg35 ** 2
t212 = t211 * cg35
t213 = 0.1D1 / t212
t215 = exp(-cg6 * t186 * t213)
t216 = t215 - 0.1D1
cg13 = t187 / t216
t218 = gamma_var * t212
t219 = cg30 ** 2
t220 = cg13 * t219
t221 = t220 + 0.1D1
t223 = cg13 ** 2
t224 = t219 ** 2
t226 = 0.1D1 + t220 + t223 * t224
t227 = 0.1D1 / t226
t230 = 0.1D1 + t187 * t219 * t221 * t227
t231 = log(t230)
cg19 = cg6 + t218 * t231
t233 = sqrt(dble(t1) * t16 * t6)
cg18 = 0.2D1 * t233
t234 = 0.1D1 / cg18
t235 = cg * t234
t = t235 * t7 / 0.2D1
t238 = exp(-cg4 * t186)
t239 = -0.1D1 + t238
A = t187 / t239
t241 = t ** 2
t242 = A * t241
t243 = 0.1D1 + t242
t245 = A ** 2
t246 = t241 ** 2
t248 = 0.1D1 + t242 + t245 * t246
t249 = 0.1D1 / t248
t252 = 0.1D1 + t187 * t241 * t243 * t249
t253 = log(t252)
cg41 = cg4 + gamma_var * t253
t254 = cg ** 2
cg10 = t254 * t7 / 0.8D1
my_tau = max(tau, cg10)
ma = max(cg11, cg41)
mb = max(cg19, cg41)
t256 = cg10 ** 2
t260 = ma / 0.2D1 + mb / 0.2D1
t263 = 0.53D0 * cg41 * t256 - 0.153D1 * t256 * t260
t264 = my_tau ** 2
t265 = 0.1D1 / t264
cg42 = cg41 + t263 * t265
t267 = rho * cg42
t268 = d * cg42
t269 = t256 * cg10
t271 = 0.1D1 / t264 / my_tau
t272 = t269 * t271
t274 = 0.1D1 + t268 * t272
t275 = t254 * dble(t1)
t276 = t14 ** (0.1D1 / 0.3D1)
t277 = t276 ** 2
t278 = 0.1D1 / t277
t279 = rho ** 2
t280 = rho ** (0.1D1 / 0.3D1)
t281 = t280 ** 2
t284 = t278 / t281 / t279
p = t275 * t284 / 0.12D2
t286 = 0.1D1 / my_tau
z = cg10 * t286
t288 = 0.1D1 / z - 0.1D1
alpha = 0.5D1 / 0.3D1 * p * t288
t290 = alpha - 0.1D1
t291 = b * alpha
t293 = 0.1D1 + t291 * t290
t294 = sqrt(t293)
t295 = 0.1D1 / t294
cg5 = 0.9D1 / 0.20D2 * t290 * t295 + 0.2D1 / 0.3D1 * p
t299 = z ** 2
t301 = 0.1D1 + t299
t302 = t301 ** 2
t303 = 0.1D1 / t302
t305 = 0.10D2 / 0.81D2 + c * t299 * t303
t307 = cg5 ** 2
t310 = p ** 2
t313 = sqrt(0.18D2 * t299 + 0.50D2 * t310)
t316 = 0.1D1 / kappa
t319 = sqrt(e_var)
t322 = e_var * mu
t325 = t305 * p + 0.146D3 / 0.2025D4 * t307 - 0.73D2 / 0.4050D4
#* cg5 * t313 + 0.100D3 / 0.6561D4 * t316 * t310 + 0.4D1 / 0.45D2 *
# t319 * t299 + t322 * t310 * p
t327 = 0.1D1 + t319 * p
t328 = t327 ** 2
t329 = 0.1D1 / t328
t331 = 0.1D1 + t325 * t329 * t316
Fx = 0.1D1 + kappa - kappa / t331
cg0 = -0.3D1 / 0.4D1 * dble(t1) * t16 * t6
t337 = rho * cg0
energy = scale_ec * t267 * t274 + scale_ex * t337 * Fx
t340 = t9 ** 2
t343 = 0.1D1 / t279
t344 = 0.1D1 / t340 * t6 * t343
rsrho = -dble(t4) * t344 / 0.12D2
t351 = t147 ** 2
cg51 = -0.2D1 * A_1 * alpha_1_1 * rsrho * t152 + t138 / t351 * (
#beta_1_1 / t140 * rsrho / 0.2D1 + beta_2_1 * rsrho + 0.3D1 / 0.2D1
# * beta_3_1 * t140 * rsrho + t146 * t41 * rsrho / rs) / t151
t370 = t16 ** 2
t371 = 0.1D1 / t370
t376 = cg18 ** 2
trho = -cg / t376 * t7 / t233 * dble(t1) * t371 * t14 * t6 / 0.6
#D1 - t235 * t343 / 0.2D1
t383 = gamma_var ** 2
t385 = beta / t383
t386 = t239 ** 2
Arho = t385 / t386 * cg51 * t238
t390 = t187 * t
t391 = t243 * t249
t395 = Arho * t241
t396 = A * t
t398 = 0.2D1 * t396 * trho
t403 = t187 * t241
t404 = t248 ** 2
t406 = t243 / t404
t410 = t241 * t
t411 = t245 * t410
t419 = 0.1D1 / t252
cg36 = cg51 + gamma_var * (0.2D1 * t390 * t391 * trho + t187 * t
#241 * (t395 + t398) * t249 - t403 * t406 * (t395 + t398 + 0.2D1 *
#A * t246 * Arho + 0.4D1 * t411 * trho)) * t419
cg37 = -t254 * t343 / 0.8D1
prho = -0.2D1 / 0.9D1 * t275 * t278 / t281 / t279 / rho
zrho = cg37 * t286
t430 = p / t299
cg31 = 0.5D1 / 0.3D1 * prho * t288 - 0.5D1 / 0.3D1 * t430 * zrho
t437 = t290 / t294 / t293
cg32 = 0.9D1 / 0.20D2 * cg31 * t295 - 0.9D1 / 0.40D2 * t437 * (b
# * cg31 * t290 + t291 * cg31) + 0.2D1 / 0.3D1 * prho
t445 = c * z
t450 = c * t299 * z
t452 = 0.1D1 / t302 / t301
t464 = cg5 / t313
t472 = t316 * p
t475 = t319 * z
t485 = t325 / t328 / t327
t489 = t331 ** 2
t490 = 0.1D1 / t489
cg20 = -dble(t4) * dble(t5) * t344 / 0.12D2
cg33 = dble(t13) * t371 * t14 / 0.6D1
t505 = cg26 ** 2
cg43 = -t21 / t505 * t7 / t19 * cg33 * t6 / 0.2D1 - t21 * t22 *
#t343 / 0.2D1
t513 = A_2 * alpha_1_2
t517 = t96 ** 2
cg49 = -0.2D1 * t513 * cg20 * t101 + t89 / t517 * (beta_1_2 / t5
#5 * cg20 / 0.2D1 + beta_2_2 * cg20 + 0.3D1 / 0.2D1 * beta_3_2 * t5
#5 * cg20 + t95 * t77 * cg20 / cg23) / t100
t536 = t194 ** 2
cg44 = t385 / t536 * cg49 * t191 * t193
t541 = t187 * cg27
t542 = t199 * t205
t546 = cg44 * t197
t547 = cg12 * cg27
t549 = 0.2D1 * t547 * cg43
t554 = t187 * t197
t555 = t204 ** 2
t557 = t199 / t555
t561 = t197 * cg27
t562 = t201 * t561
t569 = 0.1D1 / t208
t571 = cg41 .lt. cg11
marho = myIF(t571, cg49 + t196 * (0.2D1 * t541 * t542 * cg43 + t
#187 * t197 * (t546 + t549) * t205 - t554 * t557 * (t546 + t549 + 0
#.2D1 * cg12 * t202 * cg44 + 0.4D1 * t562 * cg43)) * t569, cg36)
cg7 = cg20
t574 = cg29 ** 2
cg8 = -t28 / t574 * t7 / t26 * cg33 * t6 / 0.2D1 - t28 * t29 * t
#343 / 0.2D1
t585 = t80 ** 2
cg9 = -0.2D1 * t513 * cg7 * t85 + t71 / t585 * (beta_1_2 / t36 *
# cg7 / 0.2D1 + beta_2_2 * cg7 + 0.3D1 / 0.2D1 * beta_3_2 * t36 * c
#g7 + t79 * t77 * cg7 / cg28) / t84
t604 = t216 ** 2
cg3 = t385 / t604 * cg9 * t213 * t215
t609 = t187 * cg30
t610 = t221 * t227
t614 = cg3 * t219
t615 = cg13 * cg30
t617 = 0.2D1 * t615 * cg8
t622 = t187 * t219
t623 = t226 ** 2
t625 = t221 / t623
t629 = t219 * cg30
t630 = t223 * t629
t637 = 0.1D1 / t230
t639 = cg41 .lt. cg19
mbrho = myIF(t639, cg9 + t218 * (0.2D1 * t609 * t610 * cg8 + t18
#7 * t219 * (t614 + t617) * t227 - t622 * t625 * (t614 + t617 + 0.2
#D1 * cg13 * t224 * cg3 + 0.4D1 * t630 * cg8)) * t637, cg36)
t642 = cg41 * cg10
t645 = cg10 * t260
cg22 = cg36 + (0.53D0 * cg36 * t256 + 0.106D1 * t642 * cg37 - 0.
#306D1 * t645 * cg37 - 0.153D1 * t256 * (marho / 0.2D1 + mbrho / 0.
#2D1)) * t265
t659 = t256 * t271
deriv_rho = scale_ec * (cg42 * t274 + rho * cg22 * t274 + t267 *
# (d * cg22 * t272 + 0.3D1 * t268 * t659 * cg37)) + scale_ex * (cg0
# * Fx - rho * 0.3141592654D1 * dble(t1) * t371 * Fx / 0.4D1 + t337
# * t490 * (((0.2D1 * t445 * t303 * zrho - 0.4D1 * t450 * t452 * zr
#ho) * p + t305 * prho + 0.292D3 / 0.2025D4 * cg5 * cg32 - 0.73D2 /
# 0.4050D4 * cg32 * t313 - 0.73D2 / 0.8100D4 * t464 * (0.36D2 * z *
# zrho + 0.100D3 * p * prho) + 0.200D3 / 0.6561D4 * t472 * prho + 0
#.8D1 / 0.45D2 * t475 * zrho + 0.3D1 * t322 * t310 * prho) * t329 -
# 0.2D1 * t485 * t319 * prho))
cg16 = t234 * t7 / 0.2D1
cg15 = gamma_var * (0.2D1 * t390 * t391 * cg16 + 0.2D1 * t187 *
#t410 * A * cg16 * t249 - t403 * t406 * (0.2D1 * t396 * cg16 + 0.4D
#1 * t411 * cg16)) * t419
cg17 = cg * t7 / 0.4D1
cg39 = cg * dble(t1) * t284 / 0.6D1
cg14 = cg17 * t286
cg1 = 0.5D1 / 0.3D1 * cg39 * t288 - 0.5D1 / 0.3D1 * t430 * cg14
cg34 = 0.9D1 / 0.20D2 * cg1 * t295 - 0.9D1 / 0.40D2 * t437 * (b
#* cg1 * t290 + t291 * cg1) + 0.2D1 / 0.3D1 * cg39
cg47 = t20 * t22 * t7 / 0.2D1
cg50 = myIF(t571, t196 * (0.2D1 * t541 * t542 * cg47 + 0.2D1 * t
#187 * t561 * cg12 * cg47 * t205 - t554 * t557 * (0.2D1 * t547 * cg
#47 + 0.4D1 * t562 * cg47)) * t569, cg15)
cg48 = t27 * t29 * t7 / 0.2D1
cg45 = myIF(t639, t218 * (0.2D1 * t609 * t610 * cg48 + 0.2D1 * t
#187 * t629 * cg13 * cg48 * t227 - t622 * t625 * (0.2D1 * t615 * cg
#48 + 0.4D1 * t630 * cg48)) * t637, cg15)
cg40 = cg15 + (0.53D0 * cg15 * t256 + 0.106D1 * t642 * cg17 - 0.
#306D1 * t645 * cg17 - 0.153D1 * t256 * (cg50 / 0.2D1 + cg45 / 0.2D
#1)) * t265
deriv_norm_drho = scale_ec * (rho * cg40 * t274 + t267 * (d * cg
#40 * t272 + 0.3D1 * t268 * t659 * cg17)) + scale_ex * t337 * t490
#* (((0.2D1 * t445 * t303 * cg14 - 0.4D1 * t450 * t452 * cg14) * p
#+ t305 * cg39 + 0.292D3 / 0.2025D4 * cg5 * cg34 - 0.73D2 / 0.4050D
#4 * cg34 * t313 - 0.73D2 / 0.8100D4 * t464 * (0.36D2 * z * cg14 +
#0.100D3 * p * cg39) + 0.200D3 / 0.6561D4 * t472 * cg39 + 0.8D1 / 0
#.45D2 * t475 * cg14 + 0.3D1 * t322 * t310 * cg39) * t329 - 0.2D1 *
# t485 * t319 * cg39)
cg38 = -0.2D1 * t263 * t271
t799 = t264 ** 2
ztau = -cg10 * t265
cg46 = -0.5D1 / 0.3D1 * t430 * ztau
cg21 = 0.9D1 / 0.20D2 * cg46 * t295 - 0.9D1 / 0.40D2 * t437 * (b
# * cg46 * t290 + t291 * cg46)
deriv_tau = scale_ec * (rho * cg38 * t274 + t267 * (d * cg38 * t
#272 - 0.3D1 * t268 * t269 / t799)) + scale_ex * t337 * t490 * ((0.
#2D1 * t445 * t303 * ztau - 0.4D1 * t450 * t452 * ztau) * p + 0.292
#D3 / 0.2025D4 * cg5 * cg21 - 0.73D2 / 0.4050D4 * cg21 * t313 - 0.7
#3D2 / 0.225D3 * t464 * z * ztau + 0.8D1 / 0.45D2 * t475 * ztau) *
#t329
cg58 = deriv_tau
return
end</Text-field></Output></Group></Section></Section><Text-field/><Section><Title><Text-field layout="Heading 1" style="Heading 1">Tests LDA</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqFx1:=z=solve(eqx8,z);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlcUZ4MUc2Ii9JInpHRiUsJComSSJwR0YlIiIiLCZJJmFscGhhR0YlIiIkRioiIiYhIiJGLw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_Fx1:=[eqk1,eqk2,eqk3,eqk4,p=s^2,eqFx1,eqx7,eqk5,eqx10,eqx9];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShlcXNfRngxRzYiNywvSSZrYXBwYUdGJSQiJC8pISIkL0kjbXVHRiUkIiZePiMhIiYvSSJiR0YlJCIiJSEiIi9JImNHRiUkIicnNGYiRjAvSSJwR0YlKiRJInNHRiUiIiMvSSJ6R0YlLCQqJkY7IiIiLCZJJmFscGhhR0YlIiIkRjsiIiZGNUZHL0kpdGlsZGVxX2JHRiUsJiomLCZGRUZDRjVGQ0ZDLCZGQ0ZDKihGMkZDRkVGQ0ZMRkNGQyNGNUY+IyIiKiIjP0Y7I0Y+RkYvSSZlX3ZhckdGJSQiJVA6RisvSSJ4R0YlKiYsLiomLCYjIiM1IiMiKUZDKihGN0ZDRkBGPiwmRkNGQyokRkBGPkZDISIjRkNGQ0Y7RkNGQyokRklGPiMiJFkiIiVEPyomRklGQywmRl1vIiM9KiRGO0Y+IiNdI0ZDRj4jISN0IiVdUyomRihGNUY7Rj4jIiQrIiIlaGwqJkZVRmhvRkBGPiNGNCIjWCooRlVGQ0YtRkNGO0ZGRkNGQywmRkNGQyomRlVGaG9GO0ZDRkNGXm8vSSNGeEdGJSwoRkNGQ0YoRkMqJkYoRkMsJkZDRkMqJkZZRkNGKEY1RkNGNUY1</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_Fx1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8JEkic0c2IkkmYWxwaGFHRiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">r_Fx1:=convert(CompSeq(locals=loc(eqs_Fx1),params=[s,alpha],eqs_Fx1),procedure):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot({r_Fx1(s,0),r_Fx1(s,0.1),r_Fx1(s,0.25),r_Fx1(s,0.5),r_Fx1(s,1)},s=0..3);</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2KDdTNyQkIiIhRiskIjN6W3ZacmkqRzgiISM8NyQkIjNzKioqKioqXGk5UmwhIz4kIjN5KD5JLkoqKUg4IkYuNyQkIjMvKyt2VkEpR0EiISM9JCIzeVRDaWMhKT5MNkYuNyQkIjMqKioqKipcUGV1aT1GOCQiMz9hLU4/Yl1MNkYuNyQkIjNBKytdaTMmb10jRjgkIjM1bGU2QzwhUTgiRi43JCQiMyUpKioqXChvWCp5OSRGOCQiM09cRk45cCtNNkYuNyQkIjN5KioqXFA5Q0F1JEY4JCIzd0sjKVxuPTRNNkYuNyQkIjMhKSoqKlxQKnpoZFZGOCQiM1hdO2spKj01TTZGLjckJCIzMSsrdiQ+ZlMqXEY4JCIzXVEkKmVMIz1UOCJGLjckJCIzJCkqKipcKD0kZiVHY0Y4JCIzdlEiXFUlUUdNNkYuNyQkIjNQKysrRHksIkcnRjgkIjNpdSFcY3crWzgiRi43JCQiMzIrK103PHpib0Y4JCIzUSEqMzEtKT1kOCJGLjckJCIzYCsrK3Y0JkddKEY4JCIzNypvIWU2allQNkYuNyQkIjMhKSoqKioqXDduRDopRjgkIjNQSTkkcD92LDkiRi43JCQiM1orKytEISpveSgpRjgkIjNzRVVkJSozJlE5IkYuNyQkIjMpKSoqKlxQcG5zTSpGOCQiMz1pRUwvVz5bNkYuNyQkIjMsKytdc2lMLTVGLiQiM0drSygpPVZvYTZGLjckJCIzLCsrKyFSNSdmNUYuJCIzJSopejR6KFtMaDZGLjckJCIzKSoqKlxQL1FCRTZGLiQiMy9beiRSMihRcTZGLjckJCIzISoqKioqKlwibz8mPSJGLiQiMzZLTiJlQUsmejZGLjckJCIzMStdUGEmNCpcN0YuJCIzPT9ESi05cSE+IkYuNyQkIjMzK103aj1fNjhGLiQiMyZmbzE0SExCPyJGLjckJCIzMysrdlZ5IWVQIkYuJCIzOnNjLiU9c2BAIkYuNyQkIjM0K10oPVdVW1YiRi4kIjNpZFxzKnBKIUc3Ri43JCQiMykqKioqXDdCPiYpXCJGLiQiM1lXOF0oeSNHVTdGLjckJCIzKCoqKlxQPjptazpGLiQiM3gpPmZRcChlZDdGLjckJCIzJyoqKlxpdiZRQWkiRi4kIjMmM3MoW29uP3I3Ri43JCQiMzArK3Z0TFUlbyJGLiQiM3lMVElgIjRoRyJGLjckJCIzKikqKioqKlxObSdbPEYuJCIzJz1AdWF2LDtJIkYuNyQkIjMiKioqKlwoeWJeNj1GLiQiMytUdWUjKTN2OzhGLjckJCIzKSoqKlxQTWFLcz1GLiQiM2dpLnlKeEpKOEYuNyQkIjMmKioqKlw3VFcpUj5GLiQiM1pcaT9XTUlaOEYuNyQkIjN6KioqKipcQDgwKyNGLiQiMy0+cGRbZ1ZoOEYuNyQkIjMwKytdNyxIbD9GLiQiMzZlKFEpKWVIaVAiRi43JCQiMycpKipcUDR3KVI3I0YuJCIzMiRcYiFvT0wqUSJGLjckJCIzOysrXXglZiIpPSNGLiQiMy1UTzxTLkkuOUYuNyQkIjMhKSoqXFAvLWFbQUYuJCIza0R3blhsMjs5Ri43JCQiMy8rXSg9WWI7SiNGLiQiM11PbC1FZC5IOUYuNyQkIjMnKSoqKipcaUBPdEJGLiQiM1FXdWRLUklUOUYuNyQkIjMnKSoqXFBmTCd6ViNGLiQiM0N2KVtGZTpQWCJGLjckJCIzPisrKyEqPj0rREYuJCIzPDdvcUApXF9ZIkYuNyQkIjMtKytERSY0UWMjRi4kIjM3Z20iZTRAbVoiRi43JCQiMz0rXVAlPjVwaSNGLiQiMyxFKHBlRXp1WyJGLjckJCIzOCsrK2JKKltvI0YuJCIzJyo0UScqUVw0KFwiRi43JCQiMzMrK0RyIls4diNGLiQiMydmSGssUilwMjpGLjckJCIzKysrK0lqeTVHRi4kIjMxN3A+OlMib14iRi43JCQiMzErXVAvKWZUKEdGLiQiMz1uamhMNjtFOkYuNyQkIjMxK11pMGoiWyRIRi4kIjNzNFQnWycpZVpgIkYuNyQkIiIkRiskIjNrLVUmUSxKT2EiRi43VTckRiokIjN4PXVObEszNzVGLjckJCIzJykqKioqKlw3dCZwS0YyJCIzI0dkUz1MMkYsIkYuNyRGMCQiMzF5I29UXC1bLCJGLjckJCIzMisrdlZWKVJRKkYyJCIzZlAmKSp5XjYjPTVGLjckRjYkIjM3KTRnKT5MUUI1Ri43JEY8JCIzR2Z2Mi9yKDMvIkYuNyRGQSQiMydmJD5jbjopPTEiRi43JEZGJCIzYXQ0REcwaSEzIkYuNyRGSyQiM0lnbjkqKikpRyU0IkYuNyRGUCQiMyJcJTRxZy4oWzUiRi43JEZVJCIzP1RKbF4oUkc2IkYuNyRGWiQiMzEobzV1JSkqcD02Ri43JEZpbiQiMzMzVmIjPTNNNyJGLjckRl5vJCIzPGFJIj0wOnE3IkYuNyRGY28kIjNyJz1ZJz1sKTQ4IkYuNyRGaG8kIjNtV1wibyNbSk42Ri43JEZdcCQiM3FjRFJobDhTNkYuNyRGYnAkIjMsYF0neSRcRVg2Ri43JEZncCQiM0hALVEkPWRDOiJGLjckRlxxJCIzcWoxVkZ1YmY2Ri43JEZhcSQiMzskZT9kbzQhcDZGLjckRmZxJCIzZDdbXF1oVXk2Ri43JEZbciQiM0oiUjguPkUpKj0iRi43JEZgciQiM2UieSo9TidHOz8iRi43JEZlciQiM0olM1tpbTFbQCJGLjckRmpyJCIzISopW2dtNm52QSJGLjckRl9zJCIzalR4QmpbIT5DIkYuNyRGZHMkIjNHPSxoIykzR2Q3Ri43JEZpcyQiM0JpeSk0a1w0RiJGLjckRl50JCIzKipIXj9gYyplRyJGLjckRmN0JCIzViwwJD1tQzlJIkYuNyRGaHQkIjNzMGlhcUVnOzhGLjckRl11JCIzQ1BASz9DPko4Ri43JEZidSQiM2N0TWxHKik+WjhGLjckRmd1JCIzL0JwYyMpb01oOEYuNyRGXHYkIjNaWCQ+SSxhaFAiRi43JEZhdiQiM0owJHlLUG8jKlEiRi43JEZmdiQiMyJ5Oi86W1dLUyJGLjckRlt3JCIzS0kmWypcIkdnVCJGLjckRmB3JCIzOWxzY0NSKipHOUYuNyRGZXckIjMhW2RvM2ZuN1ciRi43JEZqdyQiM3QxeiI0NCVvYDlGLjckRl94JCIzOnZEPS9CQWw5Ri43JEZkeCQiMzMuKTNLMChmdzlGLjckRml4JCIzYlBbNXciZXVbIkYuNyRGXnkkIjN3UTEmcD53cVwiRi43JEZjeSQiM2JEeidcKD5vMjpGLjckRmh5JCIzYiMpKWU0Uyp6OzpGLjckRl16JCIzZnghKjMjPltoXyJGLjckRmJ6JCIzX1w6XD50dU06Ri43JEZneiQiM3EwYyV6eD9PYSJGLjdTNyRGKiQiM2tYJz11UyJ5MzVGLjckRjAkIjNnNy9FdF4pKTQ1Ri43JEY2JCIzJG9CbCpcIXBJLCJGLjckRjwkIjMmbyR6bF0lUi4tIkYuNyRGQSQiM00qcE0uXm9CLiJGLjckRkYkIjNjbFlJMit3WjVGLjckRkskIjM7KnA5W19yRjEiRi43JEZQJCIzJXpkVGxuWnIyIkYuNyRGVSQiMyJIRCRbMyI+KSozIkYuNyRGWiQiMyR6MHNXVlwsNSJGLjckRmluJCIzUD4nNGY6NCkzNkYuNyRGXm8kIjMyKT0jWzlERzo2Ri43JEZjbyQiM1N1QHhDbiU9NyJGLjckRmhvJCIzNEpLX1BwP0c2Ri43JEZdcCQiMyl5LW1NITNiTTZGLjckRmJwJCIzPTs1VDJ2d1M2Ri43JEZncCQiMzEyal4kXHAqWzZGLjckRlxxJCIzcW8pKlJvaHRjNkYuNyRGYXEkIjMjZSd6KXAoZXptNkYuNyRGZnEkIjM8KD1jWSRHanc2Ri43JEZbciQiM1wib19sYidSKT0iRi43JEZgciQiMzokUWs/UHIvPyJGLjckRmVyJCIzSVVDNEpTKFFAIkYuNyRGanIkIjMtTTluTSkpekU3Ri43JEZfcyQiMyUpNG9oSid5N0MiRi43JEZkcyQiM0hSKkhSJj14YzdGLjckRmlzJCIzSCMqcCZ6IkdfcTdGLjckRl50JCIzail6XD1AVGJHIkYuNyRGY3QkIjNrKlFLPnVJNkkiRi43JEZodCQiM194Q0NBb047OEYuNyRGXXUkIjNjWEZgNlopNEwiRi43JEZidSQiMyh5UTYkZWUtWjhGLjckRmd1JCIzejZGLXMkKj5oOEYuNyRGXHYkIjNFRjUiKT4iSGdQIkYuNyRGYXYkIjNAYnkncGRnIipRIkYuNyRGZnYkIjNbJkdzRE9fSlMiRi43JEZbdyQiMyUqZSczc1RbZlQiRi43JEZgdyQiMyFvISkpR0NeIypHOUYuNyRGZXckIjNBRzohPSR5P1Q5Ri43JEZqdyQiM2Bjd3hgQmpgOUYuNyRGX3gkIjNWXm02THI8bDlGLjckRmR4JCIzdTV2dDt3Ync5Ri43JEZpeCQiM0p6JG90Z0J1WyJGLjckRl55JCIzY1UvaSVcWHFcIkYuNyRGY3kkIjM8dnMpMzVid10iRi43JEZoeSQiM3pGN0EoW3ZuXiJGLjckRl16JCIzIyoqPiNmRHE3RTpGLjckRmJ6JCIzP2cwQVclR1pgIkYuNyRGZ3okIjNDc0owXVNnVjpGLjdTNyRGKiQiIiJGKzckRjAkIjN3PDc9KWVFMCsiRi43JEY2JCIzIz1iP2dFUT0rIkYuNyRGPCQiM1FRYCcpZnpJLzVGLjckRkEkIjN0c21mVFExMzVGLjckRkYkIjMxdGAhUSczVjg1Ri43JEZLJCIzeFFHISoqPlMsLSJGLjckRlAkIjNnMloiR3h4KUc1Ri43JEZVJCIzOVZwSWQzXlI1Ri43JEZaJCIzM2ppdFVfOV41Ri43JEZpbiQiM0hYUWgiZVVOMSJGLjckRl5vJCIzTWgrXkprVXU1Ri43JEZjbyQiM2YxdSJvLDZrMyJGLjckRmhvJCIzcXM4ZWMuOCk0IkYuNyRGXXAkIjM9J3Anb1F6QjQ2Ri43JEZicCQiM2k4TW9GXUo+NkYuNyRGZ3AkIjNRZUFpT2hbSjZGLjckRlxxJCIzJWYsM1oiSDVVNkYuNyRGYXEkIjNJcHgtWidSXDoiRi43JEZmcSQiM3hed2lrIzRvOyJGLjckRltyJCIzXjQtQl8wVCE9IkYuNyRGYHIkIjM3S3AtWk0iUj4iRi43JEZlciQiMycqKkdoP0VIJjM3Ri43JEZqciQiMz1yVHlPRk9BN0YuNyRGX3MkIjMjKj1pN2tDa1A3Ri43JEZkcyQiM2xNYTtvZCFRRCJGLjckRmlzJCIzPlFLeVQ+Lm83Ri43JEZedCQiM0ZQSW9NP1okRyJGLjckRmN0JCIzeSMqSGw7aVQqSCJGLjckRmh0JCIzUSNRYzEvRFxKIkYuNyRGXXUkIjM3PnJqJG94KEg4Ri43JEZidSQiMydHJykpPWNJLVk4Ri43JEZndSQiM0ovRSgpb3JNZzhGLjckRlx2JCIzK0EkPSsoKjRgUCJGLjckRmF2JCIzOyozRzt5VCYpUSJGLjckRmZ2JCIzYFE6XlNgaS05Ri43JEZbdyQiMzdicTp3T1w6OUYuNyRGYHckIjNRYDhNb1JgRzlGLjckRmV3JCIzISkqKillZzJwM1ciRi43JEZqdyQiMypcXDJEIypSTFgiRi43JEZfeCQiM2M9dkciW0FcWSJGLjckRmR4JCIzOip6RE0lZUx3OUYuNyRGaXgkIjMiNFdUZmtIc1siRi43JEZeeSQiM3N5KFFPYnRvXCJGLjckRmN5JCIzaWorYCYqW10yOkYuNyRGaHkkIjNXKHBJKFI/azs6Ri43JEZdeiQiM0MuO14oMzRnXyJGLjckRmJ6JCIzbSEqKmUhM01pTTpGLjckRmd6JCIzIT1fbG8yNk5hIkYuN1M3JEYqJCIzInB1KDQsXy4vNUYuNyRGMCQiM1JkZFNxVHIvNUYuNyRGNiQiM1MqR2dPRDNsKyJGLjckRjwkIjNZKXBTLDwkRzU1Ri43JEZBJCIzI0gqKilSO19xOzVGLjckRkYkIjNoLllaXlVBRTVGLjckRkskIjMnPSY0OjdcXVA1Ri43JEZQJCIzXF5eMDUiKmZdNUYuNyRGVSQiM3ckZVlBJnpKazVGLjckRlokIjNRLy9mQkk7eDVGLjckRmluJCIzRCRbUVNoUiEqMyJGLjckRl5vJCIzeSVcZClcIilRKTQiRi43JEZjbyQiMz5zXSxQOSV6NSJGLjckRmhvJCIzS15wdT0mNHA2IkYuNyRGXXAkIjNxKTMxbzpvYDciRi43JEZicCQiM1MsZl44dD1MNkYuNyRGZ3AkIjNzOWVcRCZbSDkiRi43JEZccSQiMz4/TiEpKlEmeV42Ri43JEZhcSQiM3lzO3lXNyZHOyJGLjckRmZxJCIzPCI0Jz0jKUhTdDZGLjckRltyJCIzOmpwKnB1KHomPSJGLjckRmByJCIzNVw0TmJMTik+IkYuNyRGZXIkIjNMZW82OCFlQEAiRi43JEZqciQiMzVtWmhiLFFEN0YuNyRGX3MkIjNZSjMqZjg+LEMiRi43JEZkcyQiMyVRcyEpeXFGZUQiRi43JEZpcyQiM10iXF8rXEkocDdGLjckRl50JCIzJDQyTE8vJClbRyJGLjckRmN0JCIzIz15KWZhXWUrOEYuNyRGaHQkIjNcKj1FXmorZkoiRi43JEZddSQiMyMqenRyKycqZkk4Ri43JEZidSQiM1IwcjdAYHFZOEYuNyRGZ3UkIjMzUk5wdmsjNE8iRi43JEZcdiQiM1c9TzNjJCl6djhGLjckRmF2JCIzPSZ6U19qaCopUSJGLjckRmZ2JCIzOCRmbCxkIylIUyJGLjckRlt3JCIzIT5oaW5pLGVUIkYuNyRGYHckIjMpXDxpKDQnKXpHOUYuNyRGZXckIjMpPUY9RTEpNFQ5Ri43JEZqdyQiMyslM2w3VVBOWCJGLjckRl94JCIzcCJHRHdLJTRsOUYuNyRGZHgkIjNdTnZAKVEmW3c5Ri43JEZpeCQiM1pMczhYLk8oWyJGLjckRl55JCIzcUdgblgkKilwXCJGLjckRmN5JCIzKXBvWm8pZmcyOkYuNyRGaHkkIjNVKFFuciE9dDs6Ri43JEZdeiQiM1kuX0okUSkzRTpGLjckRmJ6JCIzI2ZncSYqKlJwTTpGLjckRmd6JCIzc2l1M09OZFY6Ri4tJSZDT0xPUkc2MiUkUkdCRyQiIzUhIiIkRitGW2FuRlxhbkZcYW5GaWBuRlxhbkZpYG5GaWBuRlxhbkZcYW5GXGFuRmlgbkZpYG5GXGFuRmlgbi0lK0FYRVNMQUJFTFNHNiRRInM2IlEhRmFhbi0lJVZJRVdHNiQ7RlxhbiQiI0lGW2FuOyQiMWciSHN6dDcqKSohIzskIjJtR0pUai5YYiJGXGJu</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot({r_Fx1(s,1),r_Fx1(s,2),r_Fx1(s,4),r_Fx1(s,10^6)},s=0..3);</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JzdTNyQkIiIhRiskIjNiaCUqZSlHTT8tIiEjPDckJCIzcyoqKioqKlxpOVJsISM+JCIzJVE6J2ZRT0FBNUYuNyQkIjMvKyt2VkEpR0EiISM9JCIzXGFYOVZMbkE1Ri43JCQiMyoqKioqKlxQZXVpPUY4JCIzTWYzJ0hLTU0tIkYuNyQkIjNBKytdaTMmb10jRjgkIjNVTDArVFhUQzVGLjckJCIzJSkqKipcKG9YKnk5JEY4JCIzK091ZCIqNGdENUYuNyQkIjN5KioqXFA5Q0F1JEY4JCIzUXg9MCYqcCdwLSJGLjckJCIzISkqKipcUCp6aGRWRjgkIjM2JmVoLmI2KUc1Ri43JCQiMzErK3YkPmZTKlxGOCQiM00tNTxkWVRKNUYuNyQkIjMkKSoqKlwoPSRmJUdjRjgkIjNVbFZJJDMhKVwuIkYuNyQkIjNQKysrRHksIkcnRjgkIjNAaScpPWwmPSpSNUYuNyQkIjMyKytdNzx6Ym9GOCQiM09JKSk+MG1cWDVGLjckJCIzYCsrK3Y0JkddKEY4JCIzWkZdJlxuYkswIkYuNyQkIjMhKSoqKioqXDduRDopRjgkIjM4YGcoW0lYRTEiRi43JCQiM1orKytEISpveSgpRjgkIjM0M0MzO286dDVGLjckJCIzKSkqKipcUHBuc00qRjgkIjNEQ0BQMnAmUTMiRi43JCQiMywrK11zaUwtNUYuJCIzUW1xWyw0J3k0IkYuNyQkIjMsKysrIVI1J2Y1Ri4kIjNEW3ldeU1uNTZGLjckJCIzKSoqKlxQL1FCRTZGLiQiMy1SXzhiIipcRTZGLjckJCIzISoqKioqKlwibz8mPSJGLiQiMzUhUWAjMyMqPVQ2Ri43JCQiMzErXVBhJjQqXDdGLiQiM0lHMCspKSopKXk6IkYuNyQkIjMzK103aj1fNjhGLiQiMyVbIylSSy9CVTwiRi43JCQiMzMrK3ZWeSFlUCJGLiQiM2VKJj0uayRlIj4iRi43JCQiMzQrXSg9V1VbViJGLiQiMy0+SjspejJ4PyJGLjckJCIzKSoqKipcN0I+JilcIkYuJCIzSyJvSE0kRz5EN0YuNyQkIjMoKioqXFA+Om1rOkYuJCIzYSsiKW86YE5WN0YuNyQkIjMnKioqXGl2JlFBaSJGLiQiMz41XSRmRSI0ZjdGLjckJCIzMCsrdnRMVSVvIkYuJCIzImZpJzNTKFJmRiJGLjckJCIzKikqKioqKlxObSdbPEYuJCIzSzk5aWIxNyRIIkYuNyQkIjMiKioqKlwoeWJeNj1GLiQiM2dAJ1tgR10nNDhGLjckJCIzKSoqKlxQTWFLcz1GLiQiM0ttNVJ5ZkxEOEYuNyQkIjMmKioqKlw3VFcpUj5GLiQiM2MwJVtgdWBCTSJGLjckJCIzeioqKioqXEA4MCsjRi4kIjN5KCp5WEpiRGQ4Ri43JCQiMzArK103LEhsP0YuJCIzKGY/JUhcSHRzOEYuNyQkIjMnKSoqXFA0dylSNyNGLiQiM19DR3I2Vk4nUSJGLjckJCIzOysrXXglZiIpPSNGLiQiM1JjJUhKI1J6KzlGLjckJCIzISkqKlxQLy1hW0FGLiQiM0VMTWlDOiVSVCJGLjckJCIzLytdKD1ZYjtKI0YuJCIzKUhnJyl5b0RzVSJGLjckJCIzJykqKioqXGlAT3RCRi4kIjNNXlgiXHJmKFI5Ri43JCQiMycpKipcUGZMJ3pWI0YuJCIzL0lcIXk6L0NYIkYuNyQkIjM+KysrISo+PStERi4kIjM/JVxPSzpFVFkiRi43JCQiMy0rK0RFJjRRYyNGLiQiM3Z0RGxBKWVjWiJGLjckJCIzPStdUCU+NXBpI0YuJCIzIVFhNih5O2wnWyJGLjckJCIzOCsrK2JKKltvI0YuJCIzXVUlKVJGRFAnXCJGLjckJCIzMysrRHIiWzh2I0YuJCIzKFxeMHRFeXFdIkYuNyQkIjMrKysrSWp5NUdGLiQiM3EoNFtXYHJpXiJGLjckJCIzMStdUC8pZlQoR0YuJCIzciwqeU9TKm9EOkYuNyQkIjMxK11pMGoiWyRIRi4kIjNBXSgpW2ZdTU06Ri43JCQiIiRGKyQiM2Ewbz0kXHFLYSJGLjdTNyRGKiQiMzojPSkpKSo0SSEzNUYuNyRGMCQiM3ooelptZyVSMzVGLjckRjYkIjN4KCkpekBheSM0NUYuNyRGPCQiMzhXJz4pNEUlMywiRi43JEZBJCIzUjhrdjY4Kzg1Ri43JEZGJCIzKEcxaDQpKjNlLCJGLjckRkskIjNvPlBwL1w7PjVGLjckRlAkIjNHIyp5QT0iPU8tIkYuNyRGVSQiM2wiSDMzW3IlSDVGLjckRlokIjNbJ3kkNHZcbk81Ri43JEZpbiQiM1hCJCkqUiVSW1g1Ri43JEZebyQiM1gpKnkuJHouVjAiRi43JEZjbyQiMzFqUUZSeUJsNUYuNyRGaG8kIjNKVj49TycqM3g1Ri43JEZdcCQiM1FHeiVcNSE9KjMiRi43JEZicCQiM0tGd2lAJlExNSJGLjckRmdwJCIzb3lyJDNxIXo5NkYuNyRGXHEkIjMkKipIazBdKT5GNkYuNyRGYXEkIjNWL3M5Qmg0VTZGLjckRmZxJCIzeid6JTM5Xm9iNkYuNyRGW3IkIjNPYCYzI0hcK3I2Ri43JEZgciQiM2IpKmVkYnomZj0iRi43JEZlciQiM3JxJDNRKyopPT8iRi43JEZqciQiMyVvQiZlMCx3OzdGLjckRl9zJCIzZUtseVw8KkhCIkYuNyRGZHMkIjMqXDFsUWYhKSpcN0YuNyRGaXMkIjNtWjg8XXchW0UiRi43JEZedCQiM1huOyRwRSJ6IUciRi43JEZjdCQiMyFbL3gpZSUqPihIIkYuNyRGaHQkIjNgckMiKnk/Mzg4Ri43JEZddSQiMz8qKSopXC1QQkc4Ri43JEZidSQiM0U6dUtIOnZXOEYuNyRGZ3UkIjNndk5UQ2xGZjhGLjckRlx2JCIzN2klMzdLO1dQIkYuNyRGYXYkIjMocG0rXSo0eShRIkYuNyRGZnYkIjMhKm9YQHBfKT5TIkYuNyRGW3ckIjM4XlR1OnolXFQiRi43JEZgdyQiM1MyKD49VHEhRzlGLjckRmV3JCIzQyoqKTMjb0RaUzlGLjckRmp3JCIzSmZBPEc/K2A5Ri43JEZfeCQiMz1kJ0hSIz1qazlGLjckRmR4JCIzdXUkZXJ6JjN3OUYuNyRGaXgkIjMnKnl3QkNOLChbIkYuNyRGXnkkIjNtSHFVb1JvJ1wiRi43JEZjeSQiM1YqKXApMz1UdF0iRi43JEZoeSQiM0MoKlJnQSEpXDs6Ri43JEZdeiQiMzEielFKMyQpZV8iRi43JEZieiQiM3NyRCEzQDdYYCJGLjckRmd6JCIzc2hmVmlOVFY6Ri43UzckRiokIjNXU0dBKSpbIlwuIkYuNyRGMCQiMzdkbGhLWiZcLiJGLjckRjYkIjNjclU4RSlRXS4iRi43JEY8JCIzXEBsa0xvOU41Ri43JEZBJCIzK3JnOyFlR18uIkYuNyRGRiQiM15udycqZSR5Xy4iRi43JEZLJCIzd2NPRSRIXGAuIkYuNyRGUCQiMyc0OClmbW5jTjVGLjckRlUkIjMvWDxvaW44TzVGLjckRlokIjMmMyR5Rjl5SFA1Ri43JEZpbiQiM2JfKFIkWyUqUVI1Ri43JEZebyQiMzlIPDhGYT9VNUYuNyRGY28kIjMiW3UmXCQpPm9ZNUYuNyRGaG8kIjMiPWNwKnBPdV81Ri43JEZdcCQiMzMxTSEpKkd4LDEiRi43JEZicCQiMzAsWWJbVEpvNUYuNyRGZ3AkIjNSdik0bDUjb3o1Ri43JEZccSQiMzVFJUdgSiRvITQiRi43JEZhcSQiM3lMIzNwXUxcNSJGLjckRmZxJCIzRWBnVDYucj02Ri43JEZbciQiM0xudTwpcCxcOCJGLjckRmByJCIzMkRXaCNmJT1eNkYuNyRGZXIkIjNPWGF6Ikd4KW82Ri43JEZqciQiM0tiZj1tM2YmPSJGLjckRl9zJCIzZ0F2Myk9XFI/IkYuNyRGZHMkIjNIUjFBSCI0S0EiRi43JEZpcyQiM3JrN1VGaitTN0YuNyRGXnQkIjNCViRlaF1sIWU3Ri43JEZjdCQiM0gwTjcwbF93N0YuNyRGaHQkIjM5N2QheT4vVkgiRi43JEZddSQiMyIzVyRmbSlwNkoiRi43JEZidSQiMyJRLj5NKGZXSDhGLjckRmd1JCIzTD9DRVUoPmFNIkYuNyRGXHYkIjNMbFAnKSpIcz5PIkYuNyRGYXYkIjMpKXA+bE5CXXc4Ri43JEZmdiQiM01POjdSRic9UiJGLjckRlt3JCIzRiRlJjRYIjNlUyJGLjckRmB3JCIzMlh0TT10Jik+OUYuNyRGZXckIjM/VSskSER1SVYiRi43JEZqdyQiMyQpNFo7YyhvalciRi43JEZfeCQiM19CJXo4S2UnZTlGLjckRmR4JCIzbDUlPiU9bHJxOUYuNyRGaXgkIjNANCFbInAsPSNbIkYuNyRGXnkkIjMzVSdSIzRKSCNcIkYuNyRGY3kkIjM3bFAvW1pTLjpGLjckRmh5JCIzcmYpKW9qXyNIXiJGLjckRl16JCIzPU48LXIkZUVfIkYuNyRGYnokIjN6NCE+UEYnZUo6Ri43JEZneiQiMzpkUTY5YHhTOkYuN1M3JEYqJCIiIkYrNyRGMCQiM3c8Nz0pZUUwKyJGLjckRjYkIjMjPWI/Z0VRPSsiRi43JEY8JCIzUVFgJylmekkvNUYuNyRGQSQiM3RzbWZUUTEzNUYuNyRGRiQiMzF0YCFRJzNWODVGLjckRkskIjN4UUchKio+UywtIkYuNyRGUCQiM2cyWiJHeHgpRzVGLjckRlUkIjM5VnBJZDNeUjVGLjckRlokIjMzaml0VV85XjVGLjckRmluJCIzSFhRaCJlVU4xIkYuNyRGXm8kIjNNaCteSmtVdTVGLjckRmNvJCIzZjF1Im8sNmszIkYuNyRGaG8kIjNxczhlYy44KTQiRi43JEZdcCQiMz0ncCdvUXpCNDZGLjckRmJwJCIzaThNb0ZdSj42Ri43JEZncCQiM1FlQWlPaFtKNkYuNyRGXHEkIjMlZiwzWiJINVU2Ri43JEZhcSQiM0lweC1aJ1JcOiJGLjckRmZxJCIzeF53aWsjNG87IkYuNyRGW3IkIjNeNC1CXzBUIT0iRi43JEZgciQiMzdLcC1aTSJSPiJGLjckRmVyJCIzJyoqR2g/RUgmMzdGLjckRmpyJCIzPXJUeU9GT0E3Ri43JEZfcyQiMyMqPWk3a0NrUDdGLjckRmRzJCIzbE1hO29kIVFEIkYuNyRGaXMkIjM+UUt5VD4ubzdGLjckRl50JCIzRlBJb00/WiRHIkYuNyRGY3QkIjN5IypIbDtpVCpIIkYuNyRGaHQkIjNRI1FjMS9EXEoiRi43JEZddSQiMzc+cmokb3goSDhGLjckRmJ1JCIzJ0cnKSk9Y0ktWThGLjckRmd1JCIzSi9FKClvck1nOEYuNyRGXHYkIjMrQSQ9KygqNGBQIkYuNyRGYXYkIjM7KjNHO3lUJilRIkYuNyRGZnYkIjNgUTpeU2BpLTlGLjckRlt3JCIzN2JxOndPXDo5Ri43JEZgdyQiM1FgOE1vUmBHOUYuNyRGZXckIjMhKSoqKWVnMnAzVyJGLjckRmp3JCIzKlxcMkQjKlJMWCJGLjckRl94JCIzYz12RyJbQVxZIkYuNyRGZHgkIjM6KnpETSVlTHc5Ri43JEZpeCQiMyI0V1Rma0hzWyJGLjckRl55JCIzc3koUU9idG9cIkYuNyRGY3kkIjNpaitgJipbXTI6Ri43JEZoeSQiM1cocEkoUj9rOzpGLjckRl16JCIzQy47XigzNGdfIkYuNyRGYnokIjNtISoqZSEzTWlNOkYuNyRGZ3okIjMhPV9sbzI2TmEiRi4tJSZDT0xPUkc2LyUkUkdCRyQiIzUhIiIkRitGXWdtRl5nbUZeZ21GW2dtRl5nbUZbZ21GW2dtRl5nbUZeZ21GXmdtRltnbS0lK0FYRVNMQUJFTFNHNiRRInM2IlEhRmNnbS0lJVZJRVdHNiQ7Rl5nbSQiI0lGXWdtOyQiMScqb2kleShIIiopKiEjOyQiMkEkR1MpSCJRYTpGXmht</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">indets(collect(sost(subsop(indiceDef(ex_unif,eqs_lda4)=NULL,indiceDef(tau_w,eqs_lda4)=NULL,indiceDef(z,eqs_lda4)=NULL,indiceDef(p,eqs_lda4)=NULL,[op(eqs_lda4),result=energy/rho/ex_unif])),rho),symbol);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8KkkjUGlHSSpwcm90ZWN0ZWRHRiVJJHRhdUc2IkkiekdGJ0kqbm9ybV9kcmhvR0YnSShleF91bmlmR0YnSSJwR0YnSSRyaG9HRidJJnRhdV93R0Yn</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(rs,eqs_lda4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSNyc0c2IiwkKigiIiQjIiIiRigiIiUjIiIjRigqJkkjUGlHSSpwcm90ZWN0ZWRHRjAhIiJJJ215X3Job0dGJUYxRikjRipGKw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eq_G1:=rho=solve(getDef(rs,eqs_lda4),my_rho);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlcV9HMUc2Ii9JJHJob0dGJSwkKiZJI3JzR0YlISIkSSNQaUdJKnByb3RlY3RlZEdGLSEiIiMiIiQiIiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqx4;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSJzRzYiLCQqKiIiJCMiIiNGKCokSSNQaUdJKnByb3RlY3RlZEdGLSEiIkYpSSpub3JtX2RyaG9HRiUiIiJJJHJob0dGJSMhIiVGKCNGMCIiJw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eq_G2:=norm_drho=solve(eqx4,norm_drho);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlcV9HMkc2Ii9JKm5vcm1fZHJob0dGJSwkKipJInNHRiUiIiJJJHJob0dGJSMiIiUiIiRGLyNGK0YvKiRJI1BpR0kqcHJvdGVjdGVkR0YzISIiIyEiI0YvIiIj</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(alpha,eqs_lda4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSZhbHBoYUc2IiwkKiZJInBHRiUiIiIsJiokSSJ6R0YlISIiRilGLUYpRikjIiImIiIk</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(z,eqs_lda4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSJ6RzYiKiZJJnRhdV93R0YlIiIiSSdteV90YXVHRiUhIiI=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(tau_w,eqs_lda4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSZ0YXVfd0c2IiwkKiZJLW15X25vcm1fZHJob0dGJSIiI0knbXlfcmhvR0YlISIiIyIiIiIiKQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eq_G3_1:=subs(getDef(z,eqs_lda4),getDef(tau_w,eqs_lda4),p=s^2,my_tau=tau,my_rho=rho,my_norm_drho=norm_drho,getDef(alpha,eqs_lda4));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShlcV9HM18xRzYiL0kmYWxwaGFHRiUsJComSSJzR0YlIiIjLCYqKEkqbm9ybV9kcmhvR0YlISIjSSRyaG9HRiUiIiJJJHRhdUdGJUYxIiIpISIiRjFGMSMiIiYiIiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eq_G3:=tau=solve(eq_G3_1,tau);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlcV9HM0c2Ii9JJHRhdUdGJSwkKiosJkkmYWxwaGFHRiUiIiQqJEkic0dGJSIiIyIiJiIiIkkqbm9ybV9kcmhvR0YlRi9GLiEiI0kkcmhvR0YlISIiI0YxIiNT</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_G1:=[eq_G1,eq_G2,eq_G3,op(subs(s=tmp_s,alpha=tmp_alpha,rs=tmp_rs,eqs_lda4)),result=energy/(rho*ex_unif)]:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_G1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8Jkkic0c2IkkjUGlHSSpwcm90ZWN0ZWRHRidJI3JzR0YlSSZhbHBoYUdGJQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myIF:='myIF':
cs_G1:=CompSeq(locals=loc(eqs_G1),params=[s,alpha,rs],evalf(eqs_G1)):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">r_G1:=convert(cs_G1,procedure):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myIF:=`if`;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVteUlGRzYiSSNpZkdJKnByb3RlY3RlZEdGJw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">printlevel:=1:
getDef(A_s1,eqs_lda4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSVBX3MxRzYiLCQqJkktZ2FtbWFfdmFyX3MxR0YlISIiLCYtSSRleHBHNiRJKnByb3RlY3RlZEdGLkkoX3N5c2xpYkdGJTYjLCQqKEkyZXBzaWxvbl9jX3VuaWZfczFHRiUiIiJGKEYpSSdwaGlfczFHRiUhIiRGKUY0RilGNEYpJCImRG4nISIn</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">printlevel:=1;
r_G1(0.1^10,0,10^5);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStwcmludGxldmVsRzYiIiIi</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIismPUJ5bCIhIio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot({r_G1(s,0,0.0000001),r_G1(s,0,2),r_G1(s,0,10),r_G1(s,0,10^5)},s=0.1^10..3);</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JzdicDckJCIzLysrKysrKys1ISNGJCIzYk4tOiU9QnlsIiEjPDckJCIzJW9dWENkJ3lNOyEjPiQiMycpW2pxbCJIeWwiRi83JCQiM2M4NSpbOHQmcEtGMyQiM2RXSF92cCV5bCJGLzckJCIzRj9sTChwZlYhXEYzJCIzM3R1YzdpKHlsIkYvNyQkIjNvRj95Zmk5UmxGMyQiMzZSTi0/aSJ6bCJGLzckJCIzcyo+UE1OJSlSUSpGMyQiM0F1aXlQKDMhZTtGLzckJCIzPVAjNFpDIylHQSIhIz0kIjNUIVFyYyVbN2U7Ri83JCQiM2ozelZRZXVpPUZNJCIzRzlNNTg0VmU7Ri83JCQiMyIpUWtUajMmb10jRk0kIjMhPShRSWMoPihlO0YvNyQkIjNSYTJgO0ZQRkdGTSQiM0d4Vk9hdSMpZTtGLzckJCIzKCpwXWtwWCp5OSRGTSQiMzJuWkovKCoqKWU7Ri83JCQiMylwNiFSanBaJ0gkRk0kIjMvcFU2RCc+KmU7Ri83JCQiM2BrXjhkJGZdVyRGTSQiMz1ZVEYhXEkqZTtGLzckJCIzMzctKTN2VE9mJEZNJCIzb2kvN2FAJCplO0YvNyQkIjM1Zl9pV1RBVVBGTSQiM2xmNm43WSMqZTtGLzckJCIzSi1daHA1IypcU0ZNJCIzZXk1TmAvKSllO0YvNyQkIjMyWVpnJSp6aGRWRk0kIjNfRytdbi8hKWU7Ri83JCQiMycpUVRmJWZRZW4lRk0kIjN2SyI0ITRhb2U7Ri83JCQiM2tKTmUlPmZTKlxGTSQiM000Qk9OW2FlO0YvNyQkIjNWJVFpJj4kZiVHY0ZNJCIzXCU0UCNcVkFlO0YvNyQkIjNcTDF6RHksIkcnRk0kIjNcOCZwdkgyemwiRi83JCQiM0JgNWBwWlNvbEZNJCIzSXFgciJ6I3pkO0YvNyQkIjMydTlGODx6Ym9GTSQiM1cyazVJRHFkO0YvNyQkIjNnKm81WE1AJHpyRk0kIjMrI29BKT5qamQ7Ri83JCQiMzcwKlxkKDQmR10oRk0kIjNzPFMlMzo4d2wiRi83JCQiMyM0XFdLLCFHbHdGTSQiM2lKIVJEMj53bCJGLzckJCIzanYhUjIwNHgjeUZNJCIzc1ZIeiQ+UHdsIkYvNyQkIjNXaE9CKTNRLCp6Rk0kIjMjcCF5WDF4bWQ7Ri83JCQiM0VaI0dkN25EOilGTSQiM3YrPylcbjV4bCJGLzckJCIzaDd5cnYhR2NZKUZNJCIzYytMcSNIR3lsIkYvNyQkIjMnelAyZC0qb3koKUZNJCIzXzdTRS4sKnpsIkYvNyQkIjN2QyVRV3Buc00qRk0kIjMkKkdDK25dUWU7Ri83JCQiM3YpZW1ERk9CKyJGLyQiM2BDIUg5eCQpKmU7Ri83JCQiM2d6WTEhUjUnZjVGLyQiMzl3JXAyPFsmZjtGLzckJCIzISpldVYvUUJFNkYvJCIzO2ZcLjh3Pmc7Ri83JCQiMzIkXGddIm8/Jj0iRi8kIjNGKlt4WjcuMm0iRi83JCQiM15PTFZhJjQqXDdGLyQiMz9iJykqb1c+Nm0iRi83JCQiM2M0dCEpM2RyIUciRi8kIjNxKnAqPUo4RGg7Ri83JCQiM2gjRyI9aj1fNjhGLyQiM14leSlceVRMaDtGLzckJCIzdycqcExlTGZGOEYvJCIzJXk3UnYhb05oO0YvNyQkIjM5NkZcYFttVjhGLyQiMzkheTAvJVtPaDtGLzckJCIzXkQlWydbanRmOEYvJCIzNyVHYSQ0IWU4bSJGLzckJCIzKilSVCFRJXkhZVAiRi8kIjM1MlA8RGhMaDtGLzckJCIzImZsbEc5RGBTIkYvJCIzWlUoMzJTYzdtIkYvNyQkIjMjPjxGPldVW1YiRi8kIjMmM0MyJ1JiN2g7Ri83JCQiM2c1T2hPM29tOUYvJCIzbHkkPjQpeiM0bSJGLzckJCIzRVwrSUojPiYpXCJGLyQiMylRO1U2I1FuZztGLzckJCIzZldHVT46bWs6Ri8kIjNdMzAjW1V5KmY7Ri83JCQiM1dENG52JlFBaSJGLyQiM2shekR5OzgjZjtGLzckJCIzYF9RenRMVSVvIkYvJCIzbis1JXBLYyNlO0YvNyQkIjNrInk8VydbYTs8Ri8kIjMmKUdZQ3ZGc2Q7Ri83JCQiMyg0clRdTm0nWzxGLyQiMzoib1hXZnFybCJGLzckJCIzW2pjInAnNDQheSJGLyQiM1kxJzRRUT1tbCJGLzckJCIzKzsnKnl5Yl42PUYvJCIzaWIiUWM5Z2dsIkYvNyQkIjNpLTZnMTAjPiU9Ri8kIjN0InBuKEgnPmJsIkYvNyQkIjNDKmU3V1ZEQig9Ri8kIjM0ZVUpXHYkKVxsIkYvNyQkIjMhUScqW0cjXDMxPkYvJCIzRCI+dDsnKipSYTtGLzckJCIzZVFgRzZXJSlSPkYvJCIzJWZCbXUpUSRRbCJGLzckJCIzPkYkZkoiKXksKD5GLyQiM3pRPzh1XU1gO0YvNyQkIjMiZUpMXUA4MCsjRi8kIjNgPDZHMCF6R2wiRi83JCQiMyFwOkpENiFIbD9GLyQiM2h1PUVDYyg+bCJGLzckJCIzMStVUzR3KVI3I0YvJCIzN1Z1N2tXR147Ri83JCQiM2locV94JWYiKT0jRi8kIjNHRid6Oyd6b107Ri83JCQiM2xbK1MvLWFbQUYvJCIzYlxNMkdBSF07Ri83JCQiM10nKipbSiR5NCFHI0YvJCIzJj1FMylwQjpdO0YvNyQkIjMhWyV6Kj1ZYjtKI0YvJCIzNnhXPGYmZitsIkYvNyQkIjNHIW9gcTgjM0ZCRi8kIjMvI1FUPFlKK2wiRi83JCQiMz87JTRBIikzRE0jRi8kIjNxM3l1YFosXTtGLzckJCIzN19eTyhbTnpOI0YvJCIzLy06dF4lNCtsIkYvNyQkIjNnKCkzX2lAT3RCRi8kIjM9I3o5JGViLF07Ri83JCQiMyI0SmQ0d2ljUyNGLyQiMzQhNEJOQmwrbCJGLzckJCIzP01QUmZMJ3pWI0YvJCIzcUFUNyllayxsIkYvNyQkIjM/KD4wWm5zIXBDRi8kIjMicGZHSnkxLmwiRi83JCQiM2tnbSwhKj49K0RGLyQiMzImZTp2KVJcXTtGLzckJCIzXVJYRUUmNFFjI0YvJCIzSCZHeih5TyxeO0YvNyQkIjNXT3VRJT41cGkjRi8kIjM5JEhiYmsuPGwiRi83JCQiM3QuMCxiSipbbyNGLyQiMy9zcWI4RVtfO0YvNyQkIjNkKUdlNzxbOHYjRi8kIjNoZm5hYFxgYDtGLzckJCIzdyhISzFEbjV5I0YvJCIzJnpXPmJLZFNsIkYvNyQkIjMncEkxK0wneTVHRi8kIjNrb0pmPSo0WWwiRi83JCQiMyU0diM+bklaVUdGLyQiMzdZJClmYTRCYjtGLzckJCIzJFw+elYhKWZUKEdGLyQiM29aVl5cTCllbCJGLzckJCIzKFI9Ll0wKVsvSEYvJCIzL0laSThkYGM7Ri83JCQiMypIPEZjSTtbJEhGLyQiMyt6PS5HU0BkO0YvNyQkIjNdJ2U4RzozdSdIRi8kIjNwZCEzPk9xemwiRi83JCQiIiQiIiEkIjN4Jj5xO1lgKGU7Ri83UzckRiokIjNjSyE+TyJ5KmZWIkYvNyRGQSQiMztmaD1JKiozTzlGLzckRkskIjMlSHonZk8hKUdPOUYvNyRGUSQiM1JhJlspeUBhTzlGLzckRlYkIjNuSnFLJUh6bVYiRi83JEZqbiQiM0YlcGozcD9sViJGLzckRl5wJCIzTCYpKipvSzsnZlYiRi83JEZocCQiM2lfXD12cSRbViJGLzckRmJxJCIzUGsmKWVPeClIViJGLzckRmdxJCIzMlBmKCpwIypRSTlGLzckRlxyJCIzU3FmPCNlQ3BVIkYvNyRGZnIkIjNVUSJlYGZjS1UiRi83JEZgcyQiMz1hdzpJUmI9OUYvNyRGZHQkIjM7WHlhP2tTODlGLzckRl51JCIzOzdNLCwibyMzOUYvNyRGY3UkIjNbKCp6dE5rbC45Ri83JEZodSQiM0spb1BaWi4mKVIiRi83JEZddiQiM1s1JylbQldpJVIiRi83JEZidiQiM1dLdU9mMiozUiJGLzckRmd2JCIzWzk4Zl5PVilRIkYvNyRGXHckIjMkPW8mPSFbdW5RIkYvNyRGZnckIjMuWzMlbyk0RidRIkYvNyRGangkIjNAVktgV0Eqb1EiRi83JEZkeSQiM3I/JVFgciNbKVEiRi83JEZeeiQiMzcuSTlsJFw3UiJGLzckRmN6JCIzZWBadCJvLV9SIkYvNyRGaHokIjNxM1ZpdT9ZKlIiRi83JEZdW2wkIjMmZnZ2JmVvI1tTIkYvNyRGZ1tsJCIzZjghM0VnKjQ2OUYvNyRGYVxsJCIzOXJANDwhXHlUIkYvNyRGW11sJCIzS2NWUiIpKmZbVSJGLzckRmVdbCQiM29fKTNzLCI0TDlGLzckRl9ebCQiMykpWyZlYFMqelM5Ri83JEZkXmwkIjN3UmpzcC1GXDlGLzckRmlebCQiM0pkKGZiKFw0ZDlGLzckRl5fbCQiM0lsZ3NEb3VsOUYvNyRGY19sJCIzak8lUScqeUZSWiJGLzckRl1gbCQiMylvKCpcemZzQ1siRi83JEZhYWwkIjNtI1tMUiYpejJcIkYvNyRGW2JsJCIzTyhwNjpNIVIqXCJGLzckRmVibCQiMyMpPj8iPUNxdl0iRi83JEZqYmwkIjNBPzF0Iylmejo6Ri83JEZfY2wkIjMoZWhGX3YlekI6Ri83JEZkY2wkIjNvdiMzSyk+KjRgIkYvNyRGaWNsJCIzSWMuOChlWyFSOkYvNyRGY2RsJCIzLm4qXFhdc2dhIkYvNyRGXWVsJCIzbycqNDQpNG1MYiJGLzckRmdlbCQiM1IzY1pUWDpnOkYvNyRGYWZsJCIzJyllPjYueEJuOkYvN1M3JEYqJCIzJiplWi5pQUtzN0YvNyRGQSQiM3ZGalpjOFRzN0YvNyRGSyQiMyU0T2RwJ29kczdGLzckRlEkIjNUM2IhKVJ2b3M3Ri83JEZWJCIzTSU9dyMqb3FDRiJGLzckRmpuJCIzJGVYa2FfdjtGIkYvNyRGXnAkIjNgJCoqKXBBJmUtRiJGLzckRmhwJCIzcyZHJTRjJ0chbzdGLzckRmJxJCIzeCZvYSlbcCRcRSJGLzckRmdxJCIzTURqL28iKT5oN0YvNyRGXHIkIjN0WDV6OyU0cEQiRi83JEZmciQiMzVoWkIxJzRJRCJGLzckRmBzJCIzSyEqKTM0Xid6WzdGLzckRmR0JCIzIlstek91JDRYN0YvNyRGXnUkIjMhPWgnUkhSTFU3Ri83JEZjdSQiMyFlLCpvIzNLMkMiRi83JEZodSQiM09xPmg1MztTN0YvNyRGXXYkIjNxd24vKVtLNEMiRi83JEZidiQiM1hJIj5KMGdMQyJGLzckRmd2JCIzQy4lbzQiZipvQyJGLzckRlx3JCIzREt5XidST0FEIkYvNyRGZnckIjNxTipbTz5sJ2U3Ri83JEZqeCQiMyZIL2NhUGBtRSJGLzckRmR5JCIzYUtUI3l2PV1GIkYvNyRGXnokIjMnUm00Jik0LV1HIkYvNyRGY3okIjNfTSJ5UGRnaUgiRi83JEZoeiQiMyEpbyYqUltDbTE4Ri83JEZdW2wkIjNXcV4sKy5SPThGLzckRmdbbCQiMyMpSFNWayQzNEwiRi83JEZhXGwkIjMuLidRYklDTU0iRi83JEZbXWwkIjN6KyV6X1Yjb2I4Ri83JEZlXWwkIjMjRzA6Q2diJHA4Ri83JEZfXmwkIjNQbyRRNXg5O1EiRi83JEZkXmwkIjMjeiIqXF4pNGclUiJGLzckRmlebCQiMytFZ2pJSkExOUYvNyRGXl9sJCIzSk9LaWVDcz05Ri83JEZjX2wkIjMnZUdQOGNcLVYiRi83JEZdYGwkIjNgNEghM3JEP1ciRi83JEZhYWwkIjNTdzFrJ1FZS1giRi83JEZbYmwkIjNxOHRYRl5tazlGLzckRmVibCQiMyZlJDNQIj5MYFoiRi83JEZqYmwkIjNMXjA7RjIhZlsiRi83JEZfY2wkIjN1TD9IQ2EuJ1wiRi83JEZkY2wkIjNYdlhPPFgvMDpGLzckRmljbCQiM09FOk51Vyw6OkYvNyRGY2RsJCIzcWE/NiIqUWhCOkYvNyRGXWVsJCIzJDRuMSc+eVhLOkYvNyRGZ2VsJCIzKCopUSsleV5oUzpGLzckRmFmbCQiM05mUzVfWTBcOkYvN1M3JEYqJCIzMS1CKVxEJypHOCJGLzckRkEkIjM1LjNZSCQqKUg4IkYvNyRGSyQiM2cscVF1ISk+TDZGLzckRlEkIjM3XTxlT2JdTDZGLzckRlYkIjMpKTM1JypRPCFROCJGLzckRmpuJCIzRVpbJnojcCtNNkYvNyRGXnAkIjNYaEQvISk9NE02Ri83JEZocCQiMyVHJls7NT41TTZGLzckRmJxJCIzRmglPlRDPVQ4IkYvNyRGZ3EkIjMlPW1VUSZRR002Ri83JEZcciQiM01WJEhWeCtbOCJGLzckRmZyJCIzRFB5KCo0KT1kOCJGLzckRmBzJCIzLUZhbz1qWVA2Ri83JEZkdCQiMzUjKkhGOF88UzZGLzckRl51JCIzaUg/Qis0JlE5IkYvNyRGY3UkIjNFNFlUNFc+WzZGLzckRmh1JCIzKDNnRUxLJW9hNkYvNyRGXXYkIjMmKSpveD0pW0xoNkYvNyRGYnYkIjM9KW8kUnhxUXE2Ri83JEZndiQiM0dnMycpR0FgejZGLzckRlx3JCIzZ29zJlxTLDI+IkYvNyRGZnckIjNFcCI0S0hMQj8iRi83JEZqeCQiM1k9LS0nPXNgQCJGLzckRmR5JCIzbCVvXDlxSiFHN0YvNyRGXnokIjNDY3EoKil5I0dVN0YvNyRGY3okIjMoSDgyXnAoZWQ3Ri83JEZoeiQiMz1RLmNwbj9yN0YvNyRGXVtsJCIzJT0oKTNVOjRoRyJGLzckRmdbbCQiM3M8a0FjPGcsOEYvNyRGYVxsJCIzMXcnM0spM3Y7OEYvNyRGW11sJCIzMjosSEt4Sko4Ri83JEZlXWwkIjMoZXQyWVcudE0iRi83JEZfXmwkIjNSSk0qKVtnVmg4Ri83JEZkXmwkIjMrbWUyKmVIaVAiRi83JEZpXmwkIjNaJWVII29PTCpRIkYvNyRGXl9sJCIzTjp1R1MuSS45Ri83JEZjX2wkIjNDISk9dVhsMjs5Ri83JEZdYGwkIjNjT2MvRWQuSDlGLzckRmFhbCQiMyEpZiJlRCRSSVQ5Ri83JEZbYmwkIjM9dlpwI2U6UFgiRi83JEZlYmwkIjMmKlxQaUApXF9ZIkYvNyRGamJsJCIzKlEwM2Q0QG1aIkYvNyRGX2NsJCIzU2wkUmRFenVbIkYvNyRGZGNsJCIzQ0dpIilRXDQoXCJGLzckRmljbCQiMzJaKSoqKipRKXAyOkYvNyRGY2RsJCIzPG4nPl0sOW9eIkYvNyRGXWVsJCIzKT5kRk04aGhfIkYvNyRGZ2VsJCIzUVVnbWspZVpgIkYvNyRGYWZsJCIzT3l5azg1alY6Ri8tJSZDT0xPUkc2LyUkUkdCRyQiIzUhIiIkRmNmbEZoYm5GaWJuRmlibkZmYm5GaWJuRmZibkZmYm5GaWJuRmlibkZpYm5GZmJuLSUrQVhFU0xBQkVMU0c2JFEiczYiUSFGXmNuLSUlVklFV0c2JDskIjItKysrKysrKyIhI0UkIiNJRmhibjskIjJDJFFGJClvS0E2ISM7JCIyJ1xVNjdVJD5uIkZcZG4=</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot({r_G1(s,1,0.0000001),r_G1(s,1,2),r_G1(s,1,10),r_G1(s,1,10^5)},s=0..3);</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JzdlcDckJCIzMysrKy1LW1Y/ISM/JCIzb01AIXpGQnlsIiEjPDckJCIzcyoqKioqXFNtcDMlRiwkIjMuKXp1KGVOI3lsIkYvNyQkIjN5KioqKioqNCdcLzgnRiwkIjMxM2R5RVMjeWwiRi83JCQiM1gqKioqKio0RyRSPClGLCQiMyJIeHE8b0N5bCJGLzckJCIzJyoqKioqKj4jKiozRTchIz4kIjNLN2NtXmwjeWwiRi83JCQiMyopKioqKio+Yyd5TTtGQiQiMyhweEBlO0h5bCJGLzckJCIzIyoqKioqKlIlKXpAWCNGQiQiMys0QDY2bSR5bCJGLzckJCIzJykqKioqKlw3dCZwS0ZCJCIzXGMlUmMocCV5bCJGLzckJCIzJCkqKioqKnpvZlYhXEZCJCIzdklpbzdpKHlsIkYvNyQkIjNzKioqKioqXGk5UmxGQiQiMyJIIipSLEE7emwiRi83JCQiMzwrKytYVilSUSpGQiQiMyo0Vix6dDMhZTtGLzckJCIzMSsrK1dBKUdBIiEjPSQiMy4tKSl5WFs3ZTtGLzckJCIzLysrK1FldWk9RmBvJCIzNkAyQTg0VmU7Ri83JCQiMz0rKytpMyZvXSNGYG8kIjMlcCw9a3Y+KGU7Ri83JCQiMzErKys7RlBGR0ZgbyQiMz8/JnlXWEYpZTtGLzckJCIzJykqKioqKipvWCp5OSRGYG8kIjMiW2JIV3EqKillO0YvNyQkIjN6KioqKipmTmZdVyRGYG8kIjM4WHJRIVxJKmU7Ri83JCQiMyEpKioqKipSOUNBdSRGYG8kIjMnem0leTdZIyplO0YvNyQkIjMjKSoqKioqKm81IypcU0ZgbyQiM3hBRFlgLykpZTtGLzckJCIzIykqKioqKlIqemhkVkZgbyQiMzluLmhuLyEpZTtGLzckJCIzQisrKyVmUWVuJUZgbyQiMzE8Lzc0YW9lO0YvNyQkIjMzKysrJT5mUypcRmBvJCIzeCdwcGEkW2FlO0YvNyQkIjMmKSoqKioqKj0kZiVHY0ZgbyQiM18xSE1cVkFlO0YvNyQkIjNQKysrRHksIkcnRmBvJCIzaWcrbihIMnpsIkYvNyQkIjNNKysrcVpTb2xGYG8kIjNsK0kiPXojemQ7Ri83JCQiMy4rKys3PHpib0ZgbyQiM3IvUz9JRHFkO0YvNyQkIjNUKysrWDhLenJGYG8kIjNmcWIiKj5qamQ7Ri83JCQiM2ArKyt2NCZHXShGYG8kIjM0OEIkNDo4d2wiRi83JCQiM2UqKioqKio0K0dsd0ZgbyQiM1cud2lzIT53bCJGLzckJCIzOysrK10hNHgjeUZgbyQiM243KXpRPlB3bCJGLzckJCIzaSoqKioqKiozUSwqekZgbyQiMzQmXFRscW53bCJGLzckJCIzISkqKioqKlw3bkQ6KUZgbyQiM2NPaDF2MXJkO0YvNyQkIjM5KysrdiFHY1kpRmBvJCIzaD1DeSNIR3lsIkYvNyQkIjNaKysrRCEqb3koKUZgbyQiM0F6OU0uLCp6bCJGLzckJCIzISoqKioqKlJwbnNNKkZgbyQiMzp3KzJuXVFlO0YvNyQkIjMoKioqKioqPkZPQisiRi8kIjNDJFsnW3JQKSplO0YvNyQkIjMsKysrIVI1J2Y1Ri8kIjNvV2QjMzxbJmY7Ri83JCQiMyYqKioqKipSIVFCRTZGLyQiM11RKXlJaCg+ZztGLzckJCIzISoqKioqKlwibz8mPSJGLyQiM3ZkJj1bNy4ybSJGLzckJCIzLisrK2EmNCpcN0YvJCIzJClbUSRwVz42bSJGLzckJCIzLCsrKzNkciFHIkYvJCIzXjsmPjdMXjdtIkYvNyQkIjMxKysraj1fNjhGLyQiMzJOJ0cmeVRMaDtGLzckJCIzKikqKioqKnpOJGZGOEYvJCIzImZWcXYhb05oO0YvNyQkIjMtKysrYVttVjhGLyQiM29SVFZTW09oO0YvNyQkIjMxKysrXGp0ZjhGLyQiMy0tM1E0IWU4bSJGLzckJCIzNSsrK1d5IWVQIkYvJCIzRnp0PkRoTGg7Ri83JCQiMysrKytWXkswOUYvJCIzX1c8dCtrRGg7Ri83JCQiMzUrKytVQyVbViJGLyQiM0ImKipHJ1JiN2g7Ri83JCQiMzUrKytPM29tOUYvJCIzQ2JBJTQpeiM0bSJGLzckJCIzJyoqKioqKjRCPiYpXCJGLyQiM1dCRjtAUW5nO0YvNyQkIjMlKioqKioqKj06bWs6Ri8kIjN4LSZRW1V5KmY7Ri83JCQiMyoqKioqKipmZFFBaSJGLyQiM3EoPkh5OzgjZjtGLzckJCIzMisrK3VMVSVvIkYvJCIzJ0cjXCVwS2MjZTtGLzckJCIzMSsrK2tbYTs8Ri8kIjM8OHFEdkZzZDtGLzckJCIzKikqKioqKlxObSdbPEYvJCIzTywyWCVmcXJsIkYvNyQkIjMtKysrbjQ0IXkiRi8kIjMqKnAvIlFRPW1sIkYvNyQkIjMkKioqKioqKnliXjY9Ri8kIjNqOltqWCwxYztGLzckJCIzISoqKioqKmZdPz4lPUYvJCIzMScqM3lIJz5ibCJGLzckJCIzJioqKioqKlJWREIoPUYvJCIzNjJGKlx2JClcbCJGLzckJCIzLSsrK0FcMzE+Ri8kIjNzOHdvaCoqUmE7Ri83JCQiMyQqKioqKio0VFcpUj5GLyQiMzg+dlkoKVEkUWwiRi83JCQiMygqKioqKipIIil5LCg+Ri8kIjNSInpMVDJYTGwiRi83JCQiM3oqKioqKlxAODArI0YvJCIzVGklel8rekdsIkYvNyQkIjMsKysrNyxIbD9GLyQiM1glb2xVaXY+bCJGLzckJCIzJCkqKioqKiozdylSNyNGLyQiM2xJYjdrV0deO0YvNyQkIjM/KysreSVmIik9I0YvJCIzcTcmcDsnem9dO0YvNyQkIjNAKysrLy1hW0FGLyQiM2szJHAhR0FIXTtGLzckJCIzOCsrK0x5NCFHI0YvJCIzcTZFISlwQjpdO0YvNyQkIjMwKysraWFsNkJGLyQiMyhIKG87ZiZmK2wiRi83JCQiMzUrKytQQDNGQkYvJCIzbGZkdGg5Ll07Ri83JCQiMzsrKys3KTNETSNGLyQiMyczQVRQdjkrbCJGLzckJCIzQCsrKyhbTnpOI0YvJCIzTWlXc14lNCtsIkYvNyQkIjMjKSoqKioqPjtpTFAjRi8kIjMqZiJ5SWViLF07Ri83JCQiM3oqKioqKipmRm0wQ0YvJCIzQ11CXkxfMV07Ri83JCQiMyMpKioqKioqZUwnelYjRi8kIjM3QnA2KWVrLGwiRi83JCQiMygqKioqKipSbnMhcENGLyQiM3dZejYkeTEubCJGLzckJCIzPisrKyEqPj0rREYvJCIzYilHNHYpUlxdO0YvNyQkIjMrKysrRSY0UWMjRi8kIjMlPSkqcCh5TyxeO0YvNyQkIjM5KysrJT41cGkjRi8kIjNDSFZhWE9xXjtGLzckJCIzOCsrK2JKKltvI0YvJCIzOjM2YjhFW187Ri83JCQiMzErKytyIls4diNGLyQiM1gzZGBgXGBgO0YvNyQkIjMqKioqKioqKlxzMSJ5I0YvJCIzRUA5XUR0MGE7Ri83JCQiMysrKytJank1R0YvJCIzb1wjKWU9KjRZbCJGLzckJCIzeioqKioqcDF0QyVHRi8kIjM6em5lYTRCYjtGLzckJCIzLisrKy8pZlQoR0YvJCIzJHpwKyZcTCllbCJGLzckJCIzJikqKioqKlwwKVsvSEYvJCIzYWsjKUg4ZGBjO0YvNyQkIjM1KysrMWoiWyRIRi8kIjNteVIuR1NAZDtGLzckJCIzMCsrK2AiM3UnSEYvJCIzP2VvIT5PcXpsIkYvNyQkIiIkIiIhJCIzenNXbWhNdmU7Ri83Zm43JEYqJCIzcSllJj1zaipHOCJGLzckRjEkIjNVeDw0ZW0qRzgiRi83JEY2JCIzQDpyV0dyKkc4IkYvNyRGOyQiMzpoNCNbeSgqRzgiRi83JEZAJCIzb0ooKUdjJyoqRzgiRi83JEZGJCIzKHA3J0dyQSFIOCJGLzckRkskIjNbZzhRPCg0SDgiRi83JEZQJCIzbjslUUEzP0g4IkYvNyRGVSQiMyQqKlEmej4kXEg4IkYvNyRGWiQiM1NrMFVIJCopSDgiRi83JEZpbiQiMzM1by9wPTNMNkYvNyRGXm8kIjNkQ3hNdSEpPkw2Ri83JEZkbyQiM0dHVmFPYl1MNkYvNyRGaW8kIjMjb2BEKlE8IVE4IkYvNyRGY3AkIjNncEMjeiNwK002Ri83JEZdcSQiM09iSCwhKT00TTZGLzckRmdxJCIzN0AiUSwiPjVNNkYvNyRGYXIkIjNeWmI0VyM9VDgiRi83JEZmciQiM1EiR0BRJlFHTTZGLzckRltzJCIzYjgqNFZ4K1s4IkYvNyRGZXMkIjNmKHplKjQpPWQ4IkYvNyRGX3QkIjM7JGZvJz1qWVA2Ri83JEZjdSQiMzFDcEQ4XzxTNkYvNyRGXXYkIjMtIlE7LSE0JlE5IkYvNyRGYnYkIjNcbjdTNFc+WzZGLzckRmd2JCIzMVB4REJWb2E2Ri83JEZcdyQiM1g9QSc9KVtMaDZGLzckRmF3JCIzOjBMS3hxUXE2Ri83JEZmdyQiM0glR1gpR0FgejZGLzckRlt4JCIzSWdQKFtTLDI+IkYvNyRGZXgkIjM0TyNwSkhMQj8iRi83JEZpeSQiM3lDdDAnPXNgQCJGLzckRmN6JCIzMyg+aTlxSiFHN0YvNyRGXVtsJCIzUy5jISopeSNHVTdGLzckRmJbbCQiM3p0XysmcChlZDdGLzckRmdbbCQiMyUpPmpqcG4/cjdGLzckRlxcbCQiM1gqSGNVOjRoRyJGLzckRmZcbCQiMzYmUjlpdiw7SSJGLzckRmBdbCQiM0s5dkQkKTN2OzhGLzckRmpdbCQiM0RmLD5LeEpKOEYvNyRGZF5sJCIzXyZHUlhXLnRNIkYvNyRGXl9sJCIzQ1xXKSlbZ1ZoOEYvNyRGY19sJCIzKFt4YSopZUhpUCJGLzckRmhfbCQiM0FNJFIib09MKlEiRi83JEZdYGwkIjNoSHpRUy5JLjlGLzckRmJgbCQiMyFvYmRjYXdnVCJGLzckRlxhbCQiM1BaYTFFZC5IOUYvNyRGYGJsJCIzKkhiYkMkUklUOUYvNyRGamJsJCIzUSwpPkVlOlBYIkYvNyRGZGNsJCIzdyI0PzsjKVxfWSJGLzckRmljbCQiMzcpM2hjNEBtWiJGLzckRl5kbCQiMy1OTW5sI3p1WyJGLzckRmNkbCQiMytFUyIpUVw0KFwiRi83JEZoZGwkIjMjWy5mKipRKXAyOkYvNyRGYmVsJCIzLylIPV0sOW9eIkYvNyRGXGZsJCIzISp6QlBMNjtFOkYvNyRGZmZsJCIzbSx2cmspZVpgIkYvNyRGYGdsJCIzMlZ2azg1alY6Ri83Zm43JEYqJCIzY2VAaWJCS3M3Ri83JEYxJCIzLCYpeVZPRUtzN0YvNyRGNiQiM2cjNC1VNUJCRiJGLzckRjskIjMmZSc9X2VQS3M3Ri83JEZAJCIzQl88WkNjS3M3Ri83JEZGJCIzeF0kMyFHI0dCRiJGLzckRkskIjMnSHlQLWhOQkYiRi83JEZQJCIzX3BxQDBlTXM3Ri83JEZVJCIzNCRcISp6LnVCRiJGLzckRlokIjMiPkJLa042Q0YiRi83JEZpbiQiMypvbCk0cjdcczdGLzckRl5vJCIzIWV4OHAnb2RzN0YvNyRGZG8kIjMiKUhId1J2b3M3Ri83JEZpbyQiMyp5aU4jKm9xQ0YiRi83JEZjcCQiM2AuXlVEYm5yN0YvNyRGXXEkIjNKVThtQSZlLUYiRi83JEZncSQiM10xJGVnbEchbzdGLzckRmFyJCIzQystIylbcCRcRSJGLzckRmZyJCIzVy1JLG8iKT5oN0YvNyRGW3MkIjM6Vy13OyU0cEQiRi83JEZlcyQiM0N1eD8xJzRJRCJGLzckRl90JCIzO24neTNeJ3pbN0YvNyRGY3UkIjNBWSdbT3UkNFg3Ri83JEZddiQiMyFmI2ZPSFJMVTdGLzckRmJ2JCIzeT92bCMzSzJDIkYvNyRGZ3YkIjM4biF6MCIzO1M3Ri83JEZcdyQiM3lzXywpW0s0QyJGLzckRmF3JCIzTV8jcEkwZ0xDIkYvNyRGZnckIjNLXXEkNCJmKm9DIkYvNyRGW3gkIjNrUjtYJ1JPQUQiRi83JEZleCQiM0tpVWckPmwnZTdGLzckRml5JCIzVTAqZmFQYG1FIkYvNyRGY3okIjNARFQieXY9XUYiRi83JEZdW2wkIjMpKVI2Vyk0LV1HIkYvNyRGYltsJCIzVWdkb3QwRSdIIkYvNyRGZ1tsJCIzLVpQV1tDbTE4Ri83JEZcXGwkIjMmb1BSK0khUj04Ri83JEZmXGwkIjN1UDtUayQzNEwiRi83JEZgXWwkIjMvanhjMFZVVjhGLzckRmpdbCQiM3YnKVE9TkNvYjhGLzckRmRebCQiM3dLaU0tY05wOEYvNyRGXl9sJCIzemE5LXJaaCJRIkYvNyRGY19sJCIzbXRZLiYpNGclUiJGLzckRmhfbCQiMzwiKXlhSUpBMTlGLzckRl1gbCQiMz5ha3FlQ3M9OUYvNyRGYmBsJCIzWEVWRGgmXC1WIkYvNyRGXGFsJCIzPXdbIjNyRD9XIkYvNyRGYGJsJCIzKWYhNGEnUVlLWCJGLzckRmpibCQiM1VMSFFGXm1rOUYvNyRGZGNsJCIzSjxFTyI+TGBaIkYvNyRGaWNsJCIzNlFCNkYyIWZbIkYvNyRGXmRsJCIzOUdpQUNhLidcIkYvNyRGY2RsJCIzKT5rZXReV11dIkYvNyRGaGRsJCIzVTEmNFZaOV1eIkYvNyRGYmVsJCIzU0F1NSIqUWhCOkYvNyRGXGZsJCIzISlvN2I+eVhLOkYvNyRGZmZsJCIzPXdqV3leaFM6Ri83JEZgZ2wkIjMpUi8sQGxhIVw6Ri83Zm43JEYqJCIzbV8iZnMheipmViJGLzckRjEkIjM3YCg9Iik9KSpmViJGLzckRjYkIjNrcUkyYycpKmZWIkYvNyRGOyQiMz0+WSE0SioqZlYiRi83JEZAJCIzKip5XCopejYrTzlGLzckRkYkIjMrN0toInouZ1YiRi83JEZLJCIzJ1IhUVNBNyxPOUYvNyRGUCQiMylRSF55YUBnViJGLzckRlUkIjNnZTkzXzAwTzlGLzckRlokIjMocG0iPkkqKjNPOUYvNyRGaW4kIjMvMygqUlIlemhWIkYvNyRGXm8kIjNqNkJnTyEpR085Ri83JEZkbyQiM0EqPWEpeUBhTzlGLzckRmlvJCIzdzVFTCVIem1WIkYvNyRGY3AkIjM5aiNwM3A/bFYiRi83JEZdcSQiMyN6TiZwSzsnZlYiRi83JEZncSQiM00mKSkqPXZxJFtWIkYvNyRGYXIkIjNaXEZmT3gpSFYiRi83JEZmciQiM1d4IXoqcCMqUUk5Ri83JEZbcyQiMy1DI3pAZUNwVSJGLzckRmVzJCIzZFZPTyZmY0tVIkYvNyRGX3QkIjNJLiNlLCRSYj05Ri83JEZjdSQiM1dmbWE/a1M4OUYvNyRGXXYkIjMoUVY1NTVvIzM5Ri83JEZidiQiMyFSTkpkVmNPUyJGLzckRmd2JCIzM1dyd3VNXSlSIkYvNyRGXHckIjMnW00hW0JXaSVSIkYvNyRGYXckIjNRMmRQZjIqM1IiRi83JEZmdyQiM2gqKil6OmxMJSlRIkYvNyRGW3gkIjMzYSN6LFt1blEiRi83JEZleCQiM0A1cSNvKTRGJ1EiRi83JEZpeSQiM2ZCTF9XQSpvUSJGLzckRmN6JCIzV1V3SzpGWylRIkYvNyRGXVtsJCIzP2RYNmwkXDdSIkYvNyRGYltsJCIzST5QcCJvLV9SIkYvNyRGZ1tsJCIzMzUoUVkyaSUqUiJGLzckRlxcbCQiM0FQTGVlbyNbUyJGLzckRmZcbCQiM3ovSGYtJyo0NjlGLzckRmBdbCQiM2xMYTU8IVx5VCJGLzckRmpdbCQiM3lFZEwiKSpmW1UiRi83JEZkXmwkIjN1JD1rciwiNEw5Ri83JEZeX2wkIjMhXHVYYFMqelM5Ri83JEZjX2wkIjMqKkciWydwLUZcOUYvNyRGaF9sJCIzeVohKVx2XDRkOUYvNyRGXWBsJCIzLSIzJHlEb3VsOUYvNyRGYmBsJCIzbnZ3ZCp5RlJaIkYvNyRGXGFsJCIzaG53Jnpmc0NbIkYvNyRGYGJsJCIzdWJ6JlEmKXoyXCJGLzckRmpibCQiM0taVVhULlIqXCJGLzckRmRjbCQiM18iKlshPUNxdl0iRi83JEZpY2wkIjNNQUBwIylmejo6Ri83JEZeZGwkIjMzNlo8Ylp6QjpGLzckRmNkbCQiM2hRSD8kKT4qNGAiRi83JEZoZGwkIjMuIXAmNChlWyFSOkYvNyRGYmVsJCIzeCpwWFhdc2dhIkYvNyRGXGZsJCIzJ3ptVyEpNG1MYiJGLzckRmZmbCQiM15kT15UWDpnOkYvNyRGYGdsJCIzU3IhNEpxUHNjIkYvLSUmQ09MT1JHNi8lJFJHQkckIiM1ISIiJEZiZ2xGaGhuRmlobkZpaG5GZmhuRmlobkZmaG5GZmhuRmlobkZpaG5GaWhuRmZobi0lK0FYRVNMQUJFTFNHNiRRInM2IlEhRl5pbi0lJVZJRVdHNiQ7RmlobiQiI0lGaGhuOyQiMnVoP0crRkI3IiEjOyQiMjE2Kno0VSQ+biJGaWlu</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">Test derivs</Text-field></Input></Group><Section><Title><Text-field layout="Heading 2" style="Heading 2">Test derivs and effects of violations of z&lt;1 (norm_drho^2&lt;8*tau*rho)</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myIF:= 'myIF';</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVteUlGRzYiRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cs_e_lda:=CompSeq(locals=loc(eqs_lda4),params=[rho,norm_drho,tau],[op(evalf(eqs_lda4)),energy]):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">r_e_lda:=convert(cs_e_lda,procedure):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cs_e_rho_lda:=CompSeq(locals=loc(eqs_lda4)union {res},params=[rho,norm_drho,tau],[op(evalf(eqs_lda4)),res=deriv_rho]):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">r_e_rho_lda:=convert(cs_e_rho_lda,procedure):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cs_e_ndrho_lda:=CompSeq(locals=loc(eqs_lda4),params=[rho,norm_drho,tau],[op(evalf(eqs_lda4)),deriv_norm_drho]):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">r_e_ndrho_lda:=convert(cs_e_ndrho_lda,procedure):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cs_e_tau_lda:=CompSeq(locals=loc(eqs_lda4),params=[rho,norm_drho,tau],
[op(evalf(eqs_lda4)),deriv_tau]):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">r_e_tau_lda:=convert(cs_e_tau_lda,procedure):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">caseMax_lda:=convert(
CompSeq(locals=loc(eqs_lda4),params=[rho,norm_drho,tau],[op(evalf(eqs_lda4)),
myIF(epsilon_cGGA_1_0 &gt; epsilon_cGGA,1,2)*10+myIF(epsilon_cGGA_0_1 &gt; epsilon_cGGA,1,2)]),
procedure):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myIF:=proc(a,b,c) if evalf(a) then b; else c; end if; end proc;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVteUlGRzYiZio2JUkiYUdGJUkiYkdGJUkiY0dGJUYlRiVGJUAlLUkmZXZhbGZHSSpwcm90ZWN0ZWRHRi42IzkkOSU5JkYlRiVGJQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalf(r_eqs_lda4(0.30073162,0.19290617,0.02710470));evalf(energy);
my_rho:='my_rho':my_norm_drho:='my_norm_drho':my_tau:='my_tau':
energy:='energy':
deriv_rho:='deriv_rho':deriv_norm_drho:='deriv_norm_drho':deriv_tau:='deriv_tau':</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIisoKmUkejQkISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkISsnb24qXDwhIzU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalf(r_e_lda(0.30073162,0.19290617,0.02710470));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkISsnb24qXDwhIzU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalf(r_e_lda(0.3475E+00,0.7490E-01,0.4142E-03));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIStJN04jPiMhIzU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">test_eval_e_lda:=proc(rho::numeric,norm_drho::numeric,tau::numeric,dx::numeric) local e1,er1,er2,enr1,enr2,et1,et2,cas;
e1:=evalf(r_e_lda(rho,norm_drho,tau));
er1:=(evalf(r_e_lda(rho+dx,norm_drho,tau))-evalf(r_e_lda(rho-dx,norm_drho,tau)))/(2*dx);
enr1:=(evalf(r_e_lda(rho,norm_drho+dx,tau))-evalf(r_e_lda(rho,norm_drho-dx,tau)))/(2*dx);
et1:=(evalf(r_e_lda(rho,norm_drho,tau+dx))-evalf(r_e_lda(rho,norm_drho,tau-dx)))/(2*dx);
er2:=evalf(r_e_rho_lda(rho,norm_drho,tau));
enr2:=evalf(r_e_ndrho_lda(rho,norm_drho,tau));
et2:=evalf(r_e_tau_lda(rho,norm_drho,tau));
cas:=caseMax_lda(rho,norm_drho,tau);
[energy=e1,e_rho=er2,e_rho_fd=er1,e_ndrho=enr2,e_ndrho_fd=enr1,e_tau=et2,e_tau_fd=et1,caseMax=cas,
err=sqrt((er1-er2)^2+(enr1-enr2)^2+(et1-et2)^2)];
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">printlevel:=1;
test_eval_e_lda(0.3475E+00,0.7490E-01,0.4142E-03,0.1^6);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStwcmludGxldmVsRzYiIiIi</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM3Ky9JJ2VuZXJneUc2IiQhK0k3TiM+IyEjNS9JJmVfcmhvR0YmJCErUElaKnkoRikvSSllX3Job19mZEdGJiQhKysrKzgkKUYpL0koZV9uZHJob0dGJiQhKyN6Mz8nW0YpL0krZV9uZHJob19mZEdGJiQhKysrKys/ISM4L0kmZV90YXVHRiYkIis/dG09ISohIiovSSllX3RhdV9mZEdGJiQiIiFGQy9JKGNhc2VNYXhHRiYiIzYvSSRlcnJHRiYkIitXVyE+LipGPw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">test_eval_e_lda(0.2694,0.5632*0.1,0.1341*0.01,0.1^6);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM3Ky9JJ2VuZXJneUc2IiQhK3Qrb246ISM1L0kmZV9yaG9HRiYkIStkcUspPihGKS9JKWVfcmhvX2ZkR0YmJCErKytdandGKS9JKGVfbmRyaG9HRiYkISteOzljV0YpL0krZV9uZHJob19mZEdGJiQhKysrKys1ISM4L0kmZV90YXVHRiYkIis2P2FAJikhIiovSSllX3RhdV9mZEdGJiQiIiFGQy9JKGNhc2VNYXhHRiYiIzYvSSRlcnJHRiYkIistb0lMJilGPw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">test_eval_e_lda(0.1761*0.1,0.2970*0.01,0.7256*0.1^4,0.1^6);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM3Ky9JJ2VuZXJneUc2IiQhKy9KLElWISM3L0kmZV9yaG9HRiYkIStecnQ5SiEjNS9JKWVfcmhvX2ZkR0YmJCErK110OUpGLi9JKGVfbmRyaG9HRiYkISsteCd5PyJGLi9JK2VfbmRyaG9fZmRHRiYkISsrXSd5PyJGLi9JJmVfdGF1R0YmJCIrQW0nSFkjISIqL0kpZV90YXVfZmRHRiYkIisrMERqQ0Y/L0koY2FzZU1heEdGJiIjNi9JJGVyckdGJiQiKyxAeVFHISM4</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">test_eval_e_lda(0.1776*0.1,0.1172*0.1^2,0.3376*0.1^5,0.1^6);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM3Ky9JJ2VuZXJneUc2IiQhKz4wYTBXISM3L0kmZV9yaG9HRiYkISt4KFEjUUohIzUvSSllX3Job19mZEdGJiQhKytdJCpcS0YuL0koZV9uZHJob0dGJiQhK2BJMChRJEYuL0krZV9uZHJob19mZEdGJiQhKysrK3Y/ISM4L0kmZV90YXVHRiYkIis7NHlePyEiKS9JKWVfdGF1X2ZkR0YmJCIiIUZEL0koY2FzZU1heEdGJiIjNi9JJGVyckdGJiQiK0MvMV8/RkA=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot(r_e_lda(0.1776*0.1,0.1172*0.1^2,tau),tau=0.1^7..0.1^3);</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDdebzckJCIyJyoqKioqKioqKioqKioqKiohI0MkITM1dmxnPjBhMFchIz83JCQiM3NcaVMxPVBDRyEjQkYtNyQkIjNjKlw3R2hWKFtiRjNGLTckJCIzakJjLDsmSDQicEYzRi03JCQiM2JbKD0jPmE2dCMpRjNGLTckJCIzLDYuIzNQM1UmKilGM0YtNyQkIjNZdD1VQThJTicqRjNGLTckJCIzZlZCU0YlUjsuIiEjQSQhMyNbYm5cNk1IUiVGLzckJCIzJSkqXGlEc1soKjQiRkYkITM/ZVZMRlYuIlElRi83JCQiM0w3RylHSm5mQiJGRiQhMylHOmgyVVgwTyVGLzckJCIzIls3LkshZj1zOEZGJCEzL1o8ZGBrZFZWRi83JCQiM0pQTV8kXC8lMzpGRiQhMz11LHBBJ3AkSFZGLzckJCIzISlcUCVRM0JZayJGRiQhMyZcPVx3aXB0SiVGLzckJCIzenVWW2stMTw+RkYkITN5JltYLCQ9USlIJUYvNyQkIjN4KipcN1h1XCo9I0ZGJCEzZihwbjFYLVVHJUYvNyQkIjNeUCVbTXIqZWpFRkYkITNGeXc7X0Eib0UlRi83JCQiMyNcKD14Iik+b1BKRkYkITM7U3dsIik0NGJVRi83JCQiM0s3YDRdVXg2T0ZGJCEzSnhxWUFodVlVRi83JCQiM3NcKD0lPWwnZTMlRkYkITM9WWhWSUBhU1VGLzckJCIzd0NKUyg+Kj5fXkZGJCEzU3VxLGhBO0pVRi83JCQiMyEpKlwoUXc9YD1pRkYkITNLZyZ6KipId19BJUYvNyQkIjMyK0RyQ1JMbCQpRkYkITNgWmQjSE1TIz1VRi83JCQiMydbUGsoZks+XTUhI0AkITNVeUspejBfVEAlRi83JCQiM3N1PTYyTEdbN0ZcciQhM1tHUSMpZXJjNlVGLzckJCIzKFwob0p4U1JgOUZcciQhMzFmaCo0OWYmNFVGLzckJCIzKVwob0ZIKj5ibSJGXHIkITMzW24iKUhrIno/JUYvNyQkIjN2dSRSNFxscCg9RlxyJCEzLm1tUzg/YzFVRi83JCQiMzErRDJUS1klNCNGXHIkITNvZlcpej5vYD8lRi83JCQiMykqXGl4eGAuJ0cjRlxyJCEzKSkzYzw2aVYvVUYvNyQkIjMlKSpcbipILXEsREZcciQhMyhbdHg+I2VbLlVGLzckJCIzdSpcaUZpXSM9RkZcciQhMyg9STImUjpoLVVGLzckJCIzdSpcSz8wUHAjSEZcciQhM3ZjODNgdiM9PyVGLzckJCIzJVwob0tBVlc7SkZcciQhM3QjeURIQGI2PyVGLzckJCIzcCpcVWl6J3lUTEZcciQhM1YzbSk9TSZSK1VGLzckJCIzZyoqKnApSDlvS05GXHIkITMrNitndCR6KCo+JUYvNyQkIjMjWyg9KSpwc3RhUEZcciQhMyFcNiMzRyQqMyo+JUYvNyQkIjNOKipcUjlWSF5SRlxyJCEzd1BOI0hkKVwpPiVGLzckJCIzcnU9dFcmW3A7JUZcciQhMyNbJz5aJnlveT4lRi83JCQiMyFbaSZ6cEJJc1ZGXHIkITMlUidHQldXRyg+JUYvNyQkIjN5XCg9S2FubGUlRlxyJCEzL28jelRjKW8nPiVGLzckJCIzdnUkcChlKUhMeSVGXHIkITN5UCM+MkRfaD4lRi83JCQiM29baXYoZmtiKlxGXHIkITNba2ZodlNlJj4lRi83JCQiM011bzJXbyw7X0ZcciQhM0c0JHBxJ1IrJj4lRi83JCQiMyNRN2VEPEB6UyZGXHIkITN3ZCl5I2ZrXSU+JUYvNyQkIjM/XCgzWjUkPTpjRlxyJCEzbWFZJ2U+d1I+JUYvNyQkIjNXKSpcQGhcSUhlRlxyJCEzKXonXFgoUU5NPiVGLzckJCIzIypbUChSVSJ5UWdGXHIkITNzIVspKmVnN0g+JUYvNyQkIjM4dT14czFZVGlGXHIkITMzOyIqM1JBVCM+JUYvNyQkIjNEXGlwQTldbWtGXHIkITMnR1k5XVppPT4lRi83JCQiMywpKlxmWDByb21GXHIkITNDREIwVExQIj4lRi83JCQiM2QpXGlcJT5oJSlvRlxyJCEzP3hiIilHZSYzPiVGLzckJCIzdHRvLy0yRCEzKEZcciQhMz1KJ29hKDNSIT4lRi83JCQiM0EqXDImUWI4JUgoRlxyJCEzd1QwQ3BtKSkqPSVGLzckJCIzL3Q9PSxYUSZcKEZcciQhMyhIKFxfJylmVCo9JUYvNyQkIjNTdSRIV2xaZHEoRlxyJCEzPUwhcC1wRiopPSVGLzckJCIzSilcN3czOzkiekZcciQhMzN5KjQjM1FYKT0lRi83JCQiMzF0b3p3PXRFIilGXHIkITNwaCQ0MUhoej0lRi83JCQiM3MqKipwRWQxVEwpRlxyJCEzJzNzbUZJIVwoPSVGLzckJCIzKClbNyo0OnhoYSlGXHIkITM0W1cmKW8+LCg9JUYvNyQkIjN1dD0meW4iXGMoKUZcciQhMzgjRy4rJDNhJz0lRi83JCQiM2wpKlxoJikpWyhcKilGXHIkITM1ODBFJG81aD0lRi83JCQiM3NbaXhhTUNyIipGXHIkITNKLEZMLjRpJj0lRi83JCQiMycqKSoqKil5JDNOcCQqRlxyJCEzQCpbJ3AwZD0mPSVGLzckJCIzbXQ9KXppdTBlKkZcciQhM2ElKjRbUVlzJT0lRi83JCQiMyVcN1ttdVVGeSpGXHIkITMnKlJjY2JoRyU9JUYvNyQkIjMtKysrKysrKzVGLyQhMyE+cHlAKnoiUT0lRi8tJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkIiIhRlxgbEZdYGwtJStBWEVTTEFCRUxTRzYkUSR0YXU2IlEhRmNgbC0lJVZJRVdHNiQ7JEZbYGwhIikkRltgbCEiJTskITFNXjpxXCgqNFchIz0kITFNLGpUTlF6VEZgYWw=</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">test_eval_e_lda(0.1776*0.1,0.1172*0.1^2,0.1^5,0.1^7);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM3Ky9JJ2VuZXJneUc2IiQhK0BGIiopUiUhIzcvSSZlX3Job0dGJiQhK3E/dE1KISM1L0kpZV9yaG9fZmRHRiYkISsrKyFcOCRGLi9JKGVfbmRyaG9HRiYkISs8QDs2TEYuL0krZV9uZHJob19mZEdGJiQhKysrMDZMRi4vSSZlX3RhdUdGJiQiK2tALFI+ISIpL0kpZV90YXVfZmRHRiYkIisrRDxSPkY/L0koY2FzZU1heEdGJiIjNi9JJGVyckdGJiQiK1ByWy47Rik=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">test_eval_e_lda(0.1776*0.1,0.1172*0.1^2,0.1^6,0.1^7);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM3Ky9JJ2VuZXJneUc2IiQiKyxeV2BEISIpL0kmZV9yaG9HRiYkIStxKW9VVSkhIicvSSllX3Job19mZEdGJiQhKysrIWZVKUYuL0koZV9uZHJob0dGJiQiK1djbFBKISIlL0krZV9uZHJob19mZEdGJiQiKys/bFBKRjcvSSZlX3RhdUdGJiQhKy0qb0klPSEiIi9JKWVfdGF1X2ZkR0YmJCErc0JpJTMjRkAvSShjYXNlTWF4R0YmIiM2L0kkZXJyR0YmJCIrK1pgOkMhIiM=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">printlevel:=1;myIF:='myIF':</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStwcmludGxldmVsRzYiIiIi</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(ma,eqs_lda4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSNtYUc2Ii1JJG1heEdJKnByb3RlY3RlZEdGKDYkSTFlcHNpbG9uX2NHR0FfMV8wR0YlSS1lcHNpbG9uX2NHR0FHRiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">my_eq:=getDef(epsilon_cRevPKZB,eqs_lda4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteV9lcUc2Ii9JMWVwc2lsb25fY1JldlBLWkJHRiUsJiomSS1lcHNpbG9uX2NHR0FHRiUiIiIsJkYrRisqJkkmdGF1X3dHRiUiIiNJJHRhdUdGJSEiIyQiI2BGMUYrRisqKEYuRi9GMEYxLCZJI21hR0YlI0YrRi9JI21iR0YlRjdGKyQhJGAiRjE=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">collect(subs(tau=tau_w/red_taui,my_eq),red_taui);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSTFlcHNpbG9uX2NSZXZQS1pCRzYiLCYqJiwoSS1lcHNpbG9uX2NHR0FHRiUkIiNgISIjSSNtYUdGJSQhKysrK113ISM1SSNtYkdGJUYuIiIiSSlyZWRfdGF1aUdGJSIiI0YyRilGMg==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">my_eq1:=-0.4126139659e-1*(1+0.53*0.9667680180e-5^2/tau^2)-1.53*(-0.1985255142e-1)*0.9667680180e-5^2/(tau+10^(-12))^2;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdteV9lcTFHNiIsKCQhK2YnUmg3JSEjNiIiIiokSSR0YXVHRiUhIiMkISs8QCNSLyMhI0AqJCwmRixGKiNGKiIuKysrKysrIkYqRi0kIisiWzkqUUdGMA==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot(my_eq1,tau=0.1^6..0.1^4);</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDddbzckJCIyJyoqKioqKioqKioqKioqKiohI0IkIjNbWWIqZSpHRFB2ISM9NyQkIjN4Q0pxWFxWbjVGLCQiM0cjSCNwNkRfa2xGLzckJCIzeVxpUyIqKXBbOCJGLCQiMzcqPUMrPyYpKmZkRi83JCQiMyJbUDRyJFtJLTdGLCQiM0xMb0o6cilwMyZGLzckJCIzJCkqXDdHeVIocDdGLCQiMyteeSp5RlQkPVhGLzckJCIzJltpOiZHWjxQOEYsJCIza24jWzY6UU4uJUYvNyQkIjMoKVwoPVVuNFlTIkYsJCIzYU5icGYrKG9oJEYvNyQkIjMqWyg9Iyo+WS9zOUYsJCIzanVuZFpFOWNLRi83JCQiMyMqKipcaWwmeiVSOkYsJCIzYzlWVTJDeFRIRi83JCQiMycqXDcuZCVcVm4iRiwkIjNQdmB0YUE5QkNGLzckJCIzKyt2VlskPiM0PUYsJCIzQXJMLGtONjs/Ri83JCQiMy9dUCUpUiMqM1c+RiwkIjM5KikzOTwvIzNwIkYvNyQkIjMzKytESiJmKnk/RiwkIjMlNGM/SCp6dkU5Ri83JCQiM0QrXShvcFElPUVGLCQiM1FKUElKZS1wdSEjPjckJCIzVSsrXWkjPXo6JEYsJCIzLCxrayVISWQlUUZbcDckJCIzOyt2Vkxbcic0JUYsJCIzanBUKj1HQnM1JyEjPzckJCIzKSkqKlxQLzleTl1GLCQhM0cmeWZRQiFvMyoqRmZwNyQkIjNDK0QxTWpHIjQnRiwkITNvaTBnIkhCTik+RltwNyQkIjNlKyt2ajcxWnJGLCQhMyQqW25AJ3kpeXBERltwNyQkIjNuKysrYlgkKTQjKUYsJCEzODRpYSw1bFlIRltwNyQkIjNoLCtEWXlncyMqRiwkITMzJT1QaTdIOj8kRltwNyQkIjM7K3ZvMl8hKVE2ISNBJCEzYyQqPiI0KFw4OE5GW3A3JCQiMzQrdlZuUiRcTCJGY3IkITMuIkcjb0YlRytvJEZbcDckJCIzLSt2JHokUixROkZjciQhMykqPmpQNisxIXokRltwNyQkIjM6K3YkUmBSIVs8RmNyJCEzJ0hCVFojeSdmJ1FGW3A3JCQiM0crdj12OlJkPkZjciQhM0knKXlVJ3lXJz1SRltwNyQkIjNKKytEIylldHNARmNyJCEzdjInUTgrUHgmUkZbcDckJCIzPCtdN2w3VGlCRmNyJCEzSz1xMVtKcCQpUkZbcDckJCIzTCsrdkAzJWZkI0ZjciQhMzU6JD4jNC1MMVNGW3A3JCQiMzErK0Reck0heiNGY3IkITNxRGZJNFsuQ1NGW3A3JCQiM2MrK0R5dCdwKkhGY3IkITM2PW4uUSRHdy4lRltwNyQkIjM4K3YkKlEkKWYlPSRGY3IkITNYVUZeWTR2WlNGW3A3JCQiM0ErK0QqcDR4UyRGY3IkITNUOSNvVmB6dzAlRltwNyQkIjMpKioqKioqcEc5bmYkRmNyJCEzLVAocDNhJm9rU0ZbcDckJCIzdypcUFdicmwiUUZjciQhMytKKVxcJj1jclNGW3A3JCQiMycqKioqKlwqWyM9NlNGY3IkITNkR0VwJ0hIbjIlRltwNyQkIjNJK3ZWSDpxQ1VGY3IkITNSJio0YFh2ZiIzJUZbcDckJCIzPStESltALUdXRmNyJCEzIT41ImYoNCVmJjMlRltwNyQkIjM9K11QJSllO1NZRmNyJCEzUUhRIUd2OyMqMyVGW3A3JCQiM1srdj1lKylcJFtGY3IkITMhUih6LV9BOCM0JUZbcDckJCIzeioqXDdqTTZYXUZjciQhMyVIKnBrS2ghXDQlRltwNyQkIjM+K3YkUiwkUWpfRmNyJCEzS2snek0qR1coNCVGW3A3JCQiM0grRGMqSChRYGFGY3IkITNdWTw4TnhTKjQlRltwNyQkIjNpK11QTHJmZWNGY3IkITMjNGw/Qlg2ODUlRltwNyQkIjMjKioqKipcciopZnFlRmNyJCEzNzE0SSpHc0k1JUZbcDckJCIzcCoqXCgpNDkreWdGY3IkITNQYzNFMSg+WTUlRltwNyQkIjNSK3ZWTFJueWlGY3IkITNneigpcD9MKGY1JUZbcDckJCIzWSoqXDdkbFssbEZjciQhMyl6amR1KD1MMlRGW3A3JCQiMzArK100T3AsbkZjciQhM0suaD5CKVElM1RGW3A3JCQiMzsrK0RydFg6cEZjciQhM1dVWWA2aV40VEZbcDckJCIzUSt2JDQ2ZiI0ckZjciQhMylIPChcVCg0LzYlRltwNyQkIjNILCt2dmkjNEsoRmNyJCEzIlJxbmRmMTg2JUZbcDckJCIzLit2VnVFPT92RmNyJCEzaHBrTEFBMzdURltwNyQkIjNjK3Y9Q0lZR3hGY3IkITNbWngxLShIRzYlRltwNyQkIjNBKytET140S3pGY3IkITNpTlZXOVZdOFRGW3A3JCQiM2sqXFBmM3pfOSlGY3IkITM4REBEaHE6OVRGW3A3JCQiM2IsKytuMGddJClGY3IkITM3ajBdayFSWjYlRltwNyQkIjMtLF1pTzlkZyYpRmNyJCEzKXlAU2VZIkg6VEZbcDckJCIzZit2VlRPISlvKClGY3IkITNQSUgrcjAhZTYlRltwNyQkIjM4LCtdNnU5ZyopRmNyJCEzNmVjLlF1QjtURltwNyQkIjNEK103bCpbJXoiKkZjciQhMzchSE1UI1xxO1RGW3A3JCQiM3QrKysqKVtmdiQqRmNyJCEzVWloMGhiNDxURltwNyQkIjMnNF1QV05GWmUqRmNyJCEzaiMpZSd5I2ZbPFRGW3A3JCQiMy8sRGMzUSpbeSpGY3IkITNuInA6KGZqJHk2JUZbcDckJCIzMSsrKysrKys1ISNAJCEzPCR5RmZ0Kj09VEZbcC0lJkNPTE9SRzYmJSRSR0JHJCIjNSEiIiQiIiFGZGBsRmVgbC0lK0FYRVNMQUJFTFNHNiRRJHRhdTYiUSFGW2FsLSUlVklFV0c2JDskRmNgbCEiKCQiMSkqKioqKioqKioqKioqKipGZnA7JCExWWEjKTRUKzNkISM8JCIyX0omR0xWQidwKEZoYWw=</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">printlevel:=5;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStwcmludGxldmVsRzYiIiIm</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot((0.9667680180e-5/tau)^2,tau=0.1^6..0.1^4);</Text-field></Input><Output><Text-field layout="Maple Plot"><Plot height="400" plot-scale="1.0" plot-xtrans="0.0" plot-ytrans="0.0" type="two-dimensional" width="400">LSUlUExPVEc2JS0lJ0NVUlZFU0c2JDddbzckJCIyJyoqKioqKioqKioqKioqKiohI0IkIjNAKysrMVNTWSQqISM7NyQkIjN4Q0pxWFxWbjVGLCQiMyNwcyIpeUsjei0jKUYvNyQkIjN5XGlTIiopcFs4IkYsJCIzLHIvPy82I3BEKEYvNyQkIjMiW1A0ciRbSS03RiwkIjNNTmsrKD0ocGxrRi83JCQiMyQpKlw3R3lSKHA3RiwkIjNBKVFtPlhkcnomRi83JCQiMyZbaTomR1o8UDhGLCQiM114T286JCo9Rl9GLzckJCIzKClcKD1VbjRZUyJGLCQiMy9gZSFca0R0dCVGLzckJCIzKlsoPSMqPlkvczlGLCQiMy5cY2pTKUhLSiVGLzckJCIzIyoqKlxpbCZ6JVI6RiwkIjNZOFM6P1tqVlJGLzckJCIzJypcNy5kJVxWbiJGLCQiMz1RUlJJIykqUUwkRi83JCQiMysrdlZbJD4jND1GLCQiM3dEXWkmNG9gJkdGLzckJCIzL11QJSlSIyozVz5GLCQiMyY0IUhWKio9JEhaI0YvNyQkIjMzKytESiJmKnk/RiwkIjNldngoM3MjW2lARi83JCQiM0QrXShvcFElPUVGLCQiM1xUOWB1Lz9qOEYvNyQkIjNVKytdaSM9ejokRiwkIjMzXCdlbGZFQVAqISM8NyQkIjM7K3ZWTFtyJzQlRiwkIjMhbzItTiZwJSpvYkZgcDckJCIzKSkqKlxQLzleTl1GLCQiMz9uPCcqM3UsJ28kRmBwNyQkIjNDK0QxTWpHIjQnRiwkIjN4cXYqUlchKio9REZgcDckJCIzZSsrdmo3MVpyRiwkIjNLalAvbDF1SD1GYHA3JCQiM24rKytiWCQpNCMpRiwkIjNEOkdeaiR5bVEiRmBwNyQkIjNoLCtEWXlncyMqRiwkIjMsKnBMOzNHcTMiRmBwNyQkIjM7K3ZvMl8hKVE2ISNBJCIzJz50J1FfSCZvPyghIz03JCQiMzQrdlZuUiRcTCJGYnIkIjNdXEslM0lfWkMmRmVyNyQkIjMtK3YkeiRSLFE6RmJyJCIzTD9EYGVXOl5SRmVyNyQkIjM6K3YkUmBSIVs8RmJyJCIzUiY0dUJRTyhlSUZlcjckJCIzRyt2PXY6UmQ+RmJyJCIzcGYqeiRvVVZSQ0ZlcjckJCIzSisrRCMpZXRzQEZiciQiM1U9dGpgRSUpej5GZXI3JCQiMzwrXTdsN1RpQkZiciQiM3dDZGx6bG91O0ZlcjckJCIzTCsrdkAzJWZkI0ZiciQiMzNcPVkjb14mMzlGZXI3JCQiMzErK0Reck0heiNGYnIkIjMrSUxfcGRTKzdGZXI3JCQiM2MrK0R5dCdwKkhGYnIkIjNTKVFbYTMjZlM1RmVyNyQkIjM4K3YkKlEkKWYlPSRGYnIkIjMoNCcpcE1FWWVAKiEjPjckJCIzQSsrRCpwNHhTJEZiciQiM3BPTSJmIz5lWyEpRmh1NyQkIjMpKioqKioqcEc5bmYkRmJyJCIzb0QjeXJ6OFxBKEZodTckJCIzdypcUFdicmwiUUZiciQiMyRwJip6MTUkXDtrRmh1NyQkIjMnKioqKipcKlsjPTZTRmJyJCIzTWQqZndveCozZUZodTckJCIzSSt2Vkg6cUNVRmJyJCIzd3BsIkg+UG1CJkZodTckJCIzPStESltALUdXRmJyJCIzNyk9ISopKWZ5bnclRmh1NyQkIjM9K11QJSllO1NZRmJyJCIzVXdaP2l2KDNNJUZodTckJCIzWyt2PWUrKVwkW0ZiciQiMy1Wbyg0LTkiKSpSRmh1NyQkIjN6KipcN2pNNlhdRmJyJCIzOmAvdDgrK3NPRmh1NyQkIjM+K3YkUiwkUWpfRmJyJCIzTXknPS9CalBQJEZodTckJCIzSCtEYypIKFFgYUZiciQiM3E0XzkhcGtGOSRGaHU3JCQiM2krXVBMcmZlY0ZiciQiMy1jODE0QiYqPUhGaHU3JCQiMyMqKioqKlxyKilmcWVGYnIkIjM8L11bInlQPnIjRmh1NyQkIjNwKipcKCk0OSt5Z0ZiciQiMyVbekIjKj05K2AjRmh1NyQkIjNSK3ZWTFJueWlGYnIkIjNWZXZXIj12M1AjRmh1NyQkIjNZKipcN2RsWyxsRmJyJCIzbDFWeUReOjZBRmh1NyQkIjMwKytdNE9wLG5GYnIkIjMmXDg5bydmLCIzI0ZodTckJCIzOysrRHJ0WDpwRmJyJCIzcyYqXDZgPE5hPkZodTckJCIzUSt2JDQ2ZiI0ckZiciQiMy90X29ISUlcPUZodTckJCIzSCwrdnZpIzRLKEZiciQiMydSRik9IltqUXUiRmh1NyQkIjMuK3ZWdUU9P3ZGYnIkIjNzIVxlaT13RWwiRmh1NyQkIjNjK3Y9Q0lZR3hGYnIkIjNfdzk1LSEpems6Rmh1NyQkIjNBKytET140S3pGYnIkIjN6KVE2KlJsWyZbIkZodTckJCIzaypcUGYzel85KUZiciQiM2EwMiNcc1goMzlGaHU3JCQiM2IsKytuMGddJClGYnIkIjMzVUxxWD5LUzhGaHU3JCQiMy0sXWlPOWRnJilGYnIkIjNpUVMmUk15YEYiRmh1NyQkIjNmK3ZWVE8hKW8oKUZiciQiM1x4c2gqKltfOjdGaHU3JCQiMzgsK102dTlnKilGYnIkIjNwVHZgLFU7azZGaHU3JCQiM0QrXTdsKlsleiIqRmJyJCIzVDc2SlZQPzQ2Rmh1NyQkIjN0KysrKilbZnYkKkZiciQiMzZ5YFpMInlLMSJGaHU3JCQiMyc0XVBXTkZaZSpGYnIkIjNPTjV2elVRPDVGaHU3JCQiMy8sRGMzUSpbeSpGYnIkIjMqKj4pW2A9YT13KiEjPzckJCIzMSsrKysrKys1ISNAJCIzKSoqKioqKmYrL2tNKkZpX2wtJSZDT0xPUkc2JiUkUkdCRyQiIzUhIiIkIiIhRmZgbEZnYGwtJStBWEVTTEFCRUxTRzYkUSR0YXU2IlEhRl1hbC0lJVZJRVdHNiQ7JEZlYGwhIigkIjEpKioqKioqKioqKioqKioqRmlfbDskITApUTZwdXVmPSEjOSQiMSkpPkokUjhMYCpGamFs</Plot></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalf(r_e_lda(0.1776*0.1,0.1172*0.1^2,0.7*0.1^6));</Text-field></Input><Output><Text-field layout="Line Printed Output" style="Line Printed Output">`{--&gt; enter `, r_e_lda, `, args = `, 0.1776e-1, `, `, 0.1172e-2, `, `, 0\
.7e-6
</Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdjaGlfczFHNiIkIiIiIiIh</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZyc19zMUc2IiQiK3J6cSYqSCEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8wX3MxRzYiJCErME92J3AkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8xX3MxRzYiJCErJXAyQio+ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSthbHBoYV9jX3MxRzYiJCIrLnpyJlIkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpmX2lpXzBfczFHNiIkIitMNCMqNDwhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVmX3MxRzYiJCIiIiIiIQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STJlcHNpbG9uX2NfdW5pZl9zMUc2IiQhKyVwMkIqPiEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShiZXRhX3MxRzYiJCImRG4nISIn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS1nYW1tYV92YXJfczFHNiIkIisnM3AhNEohIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdwaGlfczFHNiIkIitnXytQeiEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX2ZfczFHNiIkIitRKGZqUychIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX3NfczFHNiIkIitXdF5KISohIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV0X3MxRzYiJCIrIXBnSGclISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVBX3MxRzYiJCIrWCVmbUMpISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVIX3MxRzYiJCIrIz1fRDAoISM5</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STFlcHNpbG9uX2NHR0FfMV8wRzYiJCErVV5EJik+ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdjaGlfczJHNiIkISIiIiIh</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZyc19zMkc2IiQiK3J6cSYqSCEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8wX3MyRzYiJCErME92J3AkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8xX3MyRzYiJCErJXAyQio+ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSthbHBoYV9jX3MyRzYiJCIrLnpyJlIkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpmX2lpXzBfczJHNiIkIitMNCMqNDwhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVmX3MyRzYiJCIiIiIiIQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STJlcHNpbG9uX2NfdW5pZl9zMkc2IiQhKyVwMkIqPiEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShiZXRhX3MyRzYiJCImRG4nISIn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS1nYW1tYV92YXJfczJHNiIkIisnM3AhNEohIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdwaGlfczJHNiIkIitnXytQeiEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX2ZfczJHNiIkIitRKGZqUychIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX3NfczJHNiIkIitXdF5KISohIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV0X3MyRzYiJCIrIXBnSGclISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVBX3MyRzYiJCIrWCVmbUMpISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVIX3MyRzYiJCIrIz1fRDAoISM5</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STFlcHNpbG9uX2NHR0FfMF8xRzYiJCErVV5EJik+ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNyc0c2IiQiKyMqXHB4QiEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShlX2NfdV8wRzYiJCErRS0/TFQhIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShlX2NfdV8xRzYiJCErMSlcYkAjISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShhbHBoYV9jRzYiJCIrOzUsVVIhIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdmX2lpXzBHNiIkIitMNCMqNDwhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS9lcHNpbG9uX2NfdW5pZkc2IiQhK0UtP0xUISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSViZXRhRzYiJCImRG4nISIn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpnYW1tYV92YXJHNiIkIisnM3AhNEohIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSRwaGlHNiIkIiIiIiIh</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSRrX2ZHNiIkIisjWzI6MikhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSRrX3NHNiIkIitZTnY4NSEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJ0RzYiJCIrPVp5YUshIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJBRzYiJCIrcSxLQnghIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJIRzYiJCIrQW1jZ3EhIzk=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS1lcHNpbG9uX2NHR0FHNiIkIStmJ1JoNyUhIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJkRzYiJCIjRyEiIg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZDX2NoaUc2IiQiI2AhIiM=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZ0YXVfd0c2IiQiKyE9IW9uJyohIzo=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpDX2NoaV9lcHNHNiIkIiNgISIj</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNtYUc2IiQhK1VeRCYpPiEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNtYkc2IiQhK1VeRCYpPiEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STFlcHNpbG9uX2NSZXZQS1pCRzYiJCIrLj88ImUiISIq</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNlY0c2IiQiK15qVnZLISIo</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZrYXBwYUc2IiQiJC8pISIk</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNtdUc2IiQiJl4+IyEiJg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJiRzYiJCIiJSEiIg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJjRzYiJCInJzRmIiEiJg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlX3Zhckc2IiQiJVA6ISIk</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJwRzYiJCIrPjE0cjshIzc=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJ6RzYiJCIrcHI0IlEiISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZhbHBoYUc2IiQhK0UpKVskZSMhIzc=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSl0aWxkZXFfYkc2IiQhK1goXCIpXCUhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJ4RzYiJCIrXVQ1VUAhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNGeEc2IiQiK3FcIlx4IiEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShleF91bmlmRzYiJCErci8kcCM+ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdleF9sZGFHNiIkIStDWTt1ZyEjNw==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdlbmVyZ3lHNiIkIis0Y1B2SyEiKA==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZyc3Job0c2IiQhK1wya2lXISIp</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8wcmhvRzYiJCErPSNRZGskISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STJlcHNpbG9uX2NfdW5pZnJob0c2IiQhKz0jUWRrJCEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX2ZyaG9HNiIkIit3RCNcXiIhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX3NyaG9HNiIkIitYSFg4JiohIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV0cmhvRzYiJCEraTA0UUAhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVBcmhvRzYiJCEreEdjSjchIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVIcmhvRzYiJCErVD90bCMqISM3</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STBlcHNpbG9uX2NHR0FyaG9HNiIkIStRYlJRUCEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSl0YXVfd3Job0c2IiQhKzpPXlZhISM4</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVwcmhvRzYiJCErdV05NEQhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV6cmhvRzYiJCErQCFba3goISIo</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSlhbHBoYXJob0c2IiQiKyIqM20jKlIhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSx0aWxkZXFfYnJob0c2IiQhKnhLY1EjISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV4cmhvRzYiJCErPFtvcUIhIic=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZGeHJob0c2IiQhK2o2VS1KISIq</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStleF91bmlmcmhvRzYiJCErWTdoO08hIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpleF9sZGFyaG9HNiIkISs2PCxhVyEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSlyc19zMXJob0c2IiQhKzxdZEFjISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5lX2NfdV8xX3MxcmhvRzYiJCErMTUraDwhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STVlcHNpbG9uX2NfdW5pZl9zMXJob0c2IiQhKzE1K2g8ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSprX2ZfczFyaG9HNiIkIitZW1ItNyEiKQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSprX3NfczFyaG9HNiIkIitMSV92JSkhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSh0X3MxcmhvRzYiJCErcG1yQkkhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShBX3MxcmhvRzYiJCErPk87JEgiISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShIX3MxcmhvRzYiJCErRy5wVyMqISM3</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STRlcHNpbG9uX2NHR0FfMV8wcmhvRzYiJCErNHpXYD0hIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZtYXJob0c2IiQhKzR6V2A9ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSlyc19zMnJob0c2IiQhKzxdZEFjISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5lX2NfdV8xX3MycmhvRzYiJCErMTUraDwhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STVlcHNpbG9uX2NfdW5pZl9zMnJob0c2IiQhKzE1K2g8ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSprX2ZfczJyaG9HNiIkIitZW1ItNyEiKQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSprX3NfczJyaG9HNiIkIitMSV92JSkhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSh0X3MycmhvRzYiJCErcG1yQkkhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShBX3MycmhvRzYiJCErPk87JEgiISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShIX3MycmhvRzYiJCErRy5wVyMqISM3</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STRlcHNpbG9uX2NHR0FfMF8xcmhvRzYiJCErNHpXYD0hIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZtYnJob0c2IiQhKzR6V2A9ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STRlcHNpbG9uX2NSZXZQS1pCcmhvRzYiJCErc3QjeW0iISIo</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlY3Job0c2IiQhKyx1d2Y1ISIl</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpkZXJpdl9yaG9HNiIkIStiPXhmNSEiJQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSt0bm9ybV9kcmhvRzYiJCIrbSs3eEYhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStIbm9ybV9kcmhvRzYiJCIrKEgxTj8iISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STZlcHNpbG9uX2NHR0Fub3JtX2RyaG9HNiIkIisoSDFOPyIhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS90YXVfd25vcm1fZHJob0c2IiQiK3ZaeFw7ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStwbm9ybV9kcmhvRzYiJCIreC9wXkchIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSt6bm9ybV9kcmhvRzYiJCIrMjYjb04jISIm</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS9hbHBoYW5vcm1fZHJob0c2IiQhK2l1Ikd2JSEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STJ0aWxkZXFfYm5vcm1fZHJob0c2IiQiKkM8KFE+ISIq</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSt4bm9ybV9kcmhvRzYiJCIrXEUxNXMhIiY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxGeG5vcm1fZHJob0c2IiQiK0lIX04lKiEiKQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STBleF9sZGFub3JtX2RyaG9HNiIkIStqOjBISyEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS50X3Mxbm9ybV9kcmhvRzYiJCIrazNXRlIhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5IX3Mxbm9ybV9kcmhvRzYiJCIrN1J4KzchIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STplcHNpbG9uX2NHR0FfMV8wbm9ybV9kcmhvRzYiJCIrN1J4KzchIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxtYW5vcm1fZHJob0c2IiQiKzdSeCs3ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS50X3Mybm9ybV9kcmhvRzYiJCIrazNXRlIhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5IX3Mybm9ybV9kcmhvRzYiJCIrN1J4KzchIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STplcHNpbG9uX2NHR0FfMF8xbm9ybV9kcmhvRzYiJCIrN1J4KzchIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxtYm5vcm1fZHJob0c2IiQiKzdSeCs3ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STplcHNpbG9uX2NSZXZQS1pCbm9ybV9kcmhvRzYiJCIrNiVmWF4mISIn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxlY25vcm1fZHJob0c2IiQiKys8SmhSISIk</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STBkZXJpdl9ub3JtX2RyaG9HNiIkIit4OEpoUiEiJA==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STRlcHNpbG9uX2NSZXZQS1pCdGF1RzYiJCEqKlJfTlkhIiM=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlY3RhdUc2IiQhK11mMkNMIiIh</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV6dGF1RzYiJCErYmYqSCg+ISIj</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSlhbHBoYXRhdUc2IiQiK3InKSkzKUchIig=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSx0aWxkZXFfYnRhdUc2IiQiKzk5JVsuIiEiKA==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV4dGF1RzYiJCErJkcvJltnISIj</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZGeHRhdUc2IiQhKyRlUGEieiEiJg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpleF9sZGF0YXVHNiIkIitATyUpM0YhIig=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpkZXJpdl90YXVHNiIkISt6YzJDTCIiIQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIis0Y1B2SyEiKA==</Equation></Text-field><Text-field layout="Line Printed Output" style="Line Printed Output">`&lt;-- exit `, r_e_lda, ` (now at top level`, `) = `, 327.5375609, `}`
</Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIis0Y1B2SyEiKA==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalf(r_e_lda(0.1776*0.1,0.1172*0.1^2,0.1^5));</Text-field></Input><Output><Text-field layout="Line Printed Output" style="Line Printed Output">`{--&gt; enter `, r_e_lda, `, args = `, 0.1776e-1, `, `, 0.1172e-2, `, `, 0\
.1e-4
</Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdjaGlfczFHNiIkIiIiIiIh</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZyc19zMUc2IiQiK3J6cSYqSCEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8wX3MxRzYiJCErME92J3AkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8xX3MxRzYiJCErJXAyQio+ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSthbHBoYV9jX3MxRzYiJCIrLnpyJlIkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpmX2lpXzBfczFHNiIkIitMNCMqNDwhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVmX3MxRzYiJCIiIiIiIQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STJlcHNpbG9uX2NfdW5pZl9zMUc2IiQhKyVwMkIqPiEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShiZXRhX3MxRzYiJCImRG4nISIn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS1nYW1tYV92YXJfczFHNiIkIisnM3AhNEohIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdwaGlfczFHNiIkIitnXytQeiEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX2ZfczFHNiIkIitRKGZqUychIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX3NfczFHNiIkIitXdF5KISohIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV0X3MxRzYiJCIrIXBnSGclISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVBX3MxRzYiJCIrWCVmbUMpISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVIX3MxRzYiJCIrIz1fRDAoISM5</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STFlcHNpbG9uX2NHR0FfMV8wRzYiJCErVV5EJik+ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdjaGlfczJHNiIkISIiIiIh</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZyc19zMkc2IiQiK3J6cSYqSCEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8wX3MyRzYiJCErME92J3AkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8xX3MyRzYiJCErJXAyQio+ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSthbHBoYV9jX3MyRzYiJCIrLnpyJlIkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpmX2lpXzBfczJHNiIkIitMNCMqNDwhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVmX3MyRzYiJCIiIiIiIQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STJlcHNpbG9uX2NfdW5pZl9zMkc2IiQhKyVwMkIqPiEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShiZXRhX3MyRzYiJCImRG4nISIn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS1nYW1tYV92YXJfczJHNiIkIisnM3AhNEohIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdwaGlfczJHNiIkIitnXytQeiEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX2ZfczJHNiIkIitRKGZqUychIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX3NfczJHNiIkIitXdF5KISohIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV0X3MyRzYiJCIrIXBnSGclISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVBX3MyRzYiJCIrWCVmbUMpISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVIX3MyRzYiJCIrIz1fRDAoISM5</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STFlcHNpbG9uX2NHR0FfMF8xRzYiJCErVV5EJik+ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNyc0c2IiQiKyMqXHB4QiEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShlX2NfdV8wRzYiJCErRS0/TFQhIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShlX2NfdV8xRzYiJCErMSlcYkAjISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShhbHBoYV9jRzYiJCIrOzUsVVIhIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdmX2lpXzBHNiIkIitMNCMqNDwhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS9lcHNpbG9uX2NfdW5pZkc2IiQhK0UtP0xUISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSViZXRhRzYiJCImRG4nISIn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpnYW1tYV92YXJHNiIkIisnM3AhNEohIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSRwaGlHNiIkIiIiIiIh</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSRrX2ZHNiIkIisjWzI6MikhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSRrX3NHNiIkIitZTnY4NSEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJ0RzYiJCIrPVp5YUshIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJBRzYiJCIrcSxLQnghIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJIRzYiJCIrQW1jZ3EhIzk=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS1lcHNpbG9uX2NHR0FHNiIkIStmJ1JoNyUhIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJkRzYiJCIjRyEiIg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZDX2NoaUc2IiQiI2AhIiM=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZ0YXVfd0c2IiQiKyE9IW9uJyohIzo=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpDX2NoaV9lcHNHNiIkIiNgISIj</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNtYUc2IiQhK1VeRCYpPiEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNtYkc2IiQhK1VeRCYpPiEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STFlcHNpbG9uX2NSZXZQS1pCRzYiJCErJEhaNkwkISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNlY0c2IiQhKytSXjxhISM4</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZrYXBwYUc2IiQiJC8pISIk</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNtdUc2IiQiJl4+IyEiJg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJiRzYiJCIiJSEiIg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJjRzYiJCInJzRmIiEiJg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlX3Zhckc2IiQiJVA6ISIk</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJwRzYiJCIrPjE0cjshIzc=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJ6RzYiJCIrIT0hb24nKiEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZhbHBoYUc2IiQiK1NSd3QmKiEjOQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSl0aWxkZXFfYkc2IiQhK0VaXilbJSEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSJ4RzYiJCIrWCI+JjQ6ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSNGeEc2IiQiK0MwNEY2ISIq</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShleF91bmlmRzYiJCErci8kcCM+ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdleF9sZGFHNiIkIStKODtkUSEjNw==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdlbmVyZ3lHNiIkIStARiIqKVIlISM3</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZyc3Job0c2IiQhK1wya2lXISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStlX2NfdV8wcmhvRzYiJCErPSNRZGskISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STJlcHNpbG9uX2NfdW5pZnJob0c2IiQhKz0jUWRrJCEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX2ZyaG9HNiIkIit3RCNcXiIhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSdrX3NyaG9HNiIkIitYSFg4JiohIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV0cmhvRzYiJCEraTA0UUAhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVBcmhvRzYiJCEreEdjSjchIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVIcmhvRzYiJCErVD90bCMqISM3</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STBlcHNpbG9uX2NHR0FyaG9HNiIkIStRYlJRUCEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSl0YXVfd3Job0c2IiQhKzpPXlZhISM4</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVwcmhvRzYiJCErdV05NEQhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV6cmhvRzYiJCErOk9eVmEhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSlhbHBoYXJob0c2IiQiKyN6ciR5OSEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSx0aWxkZXFfYnJob0c2IiQhK0hpXVM2ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV4cmhvRzYiJCErTlFcVjghIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZGeHJob0c2IiQhK1AzQ0ImKiEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStleF91bmlmcmhvRzYiJCErWTdoO08hIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpleF9sZGFyaG9HNiIkISstKGYpcEQhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSlyc19zMXJob0c2IiQhKzxdZEFjISIp</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5lX2NfdV8xX3MxcmhvRzYiJCErMTUraDwhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STVlcHNpbG9uX2NfdW5pZl9zMXJob0c2IiQhKzE1K2g8ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSprX2ZfczFyaG9HNiIkIitZW1ItNyEiKQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSprX3NfczFyaG9HNiIkIitMSV92JSkhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSh0X3MxcmhvRzYiJCErcG1yQkkhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShBX3MxcmhvRzYiJCErPk87JEgiISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShIX3MxcmhvRzYiJCErRy5wVyMqISM3</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STRlcHNpbG9uX2NHR0FfMV8wcmhvRzYiJCErNHpXYD0hIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZtYXJob0c2IiQhKzR6V2A9ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSlyc19zMnJob0c2IiQhKzxdZEFjISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5lX2NfdV8xX3MycmhvRzYiJCErMTUraDwhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STVlcHNpbG9uX2NfdW5pZl9zMnJob0c2IiQhKzE1K2g8ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSprX2ZfczJyaG9HNiIkIitZW1ItNyEiKQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSprX3NfczJyaG9HNiIkIitMSV92JSkhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSh0X3MycmhvRzYiJCErcG1yQkkhIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShBX3MycmhvRzYiJCErPk87JEgiISIp</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SShIX3MycmhvRzYiJCErRy5wVyMqISM3</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STRlcHNpbG9uX2NHR0FfMF8xcmhvRzYiJCErNHpXYD0hIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZtYnJob0c2IiQhKzR6V2A9ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STRlcHNpbG9uX2NSZXZQS1pCcmhvRzYiJCErXkpDKj0iISIq</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlY3Job0c2IiQhKyNvQihbYyEjNg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpkZXJpdl9yaG9HNiIkIStxP3RNSiEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSt0bm9ybV9kcmhvRzYiJCIrbSs3eEYhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStIbm9ybV9kcmhvRzYiJCIrKEgxTj8iISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STZlcHNpbG9uX2NHR0Fub3JtX2RyaG9HNiIkIisoSDFOPyIhIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS90YXVfd25vcm1fZHJob0c2IiQiK3ZaeFw7ISM2</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStwbm9ybV9kcmhvRzYiJCIreC9wXkchIio=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSt6bm9ybV9kcmhvRzYiJCIrdlp4XDshIic=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS9hbHBoYW5vcm1fZHJob0c2IiQhK2x1Ikd2JSEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STJ0aWxkZXFfYm5vcm1fZHJob0c2IiQiKmtNKCoqPSEiKg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSt4bm9ybV9kcmhvRzYiJCIrZE5OcFMhIig=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxGeG5vcm1fZHJob0c2IiQiK3NqXyUpRyEiKA==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STBleF9sZGFub3JtX2RyaG9HNiIkISswJTM6KCkqISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS50X3Mxbm9ybV9kcmhvRzYiJCIrazNXRlIhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5IX3Mxbm9ybV9kcmhvRzYiJCIrN1J4KzchIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STplcHNpbG9uX2NHR0FfMV8wbm9ybV9kcmhvRzYiJCIrN1J4KzchIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxtYW5vcm1fZHJob0c2IiQiKzdSeCs3ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS50X3Mybm9ybV9kcmhvRzYiJCIrazNXRlIhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5IX3Mybm9ybV9kcmhvRzYiJCIrN1J4KzchIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STplcHNpbG9uX2NHR0FfMF8xbm9ybV9kcmhvRzYiJCIrN1J4KzchIzU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxtYm5vcm1fZHJob0c2IiQiKzdSeCs3ISM1</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STplcHNpbG9uX2NSZXZQS1pCbm9ybV9kcmhvRzYiJCIrLi02OUYhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxlY25vcm1fZHJob0c2IiQiKylHWS5jJyEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STBkZXJpdl9ub3JtX2RyaG9HNiIkISs8QDs2TCEjNQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+STRlcHNpbG9uX2NSZXZQS1pCdGF1RzYiJCErSVopKiplIiEiJw==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZlY3RhdUc2IiQhK18lW08lUSEiKQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV6dGF1RzYiJCErIT0hb24nKiEiJg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSlhbHBoYXRhdUc2IiQiK3UnKSkzKUchIig=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSx0aWxkZXFfYnRhdUc2IiQiKz1WP1A1ISIo</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSV4dGF1RzYiJCErbikpeiRRIyEiJg==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZGeHRhdUc2IiQhKyVRTigqbyIhIiY=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpleF9sZGF0YXVHNiIkIis7MW0jeSYhIik=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSpkZXJpdl90YXVHNiIkIitrQCxSPiEiKQ==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIStARiIqKVIlISM3</Equation></Text-field><Text-field layout="Line Printed Output" style="Line Printed Output">`&lt;-- exit `, r_e_lda, ` (now at top level`, `) = `, -0.4398912721e-2, `}\
`
</Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIStARiIqKVIlISM3</Equation></Text-field></Output></Group></Section><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">proc() local dx;
dx:=0.1^6;
(evalf(r_e_lda(0.30073162+dx,0.19290617,0.02710470))-evalf(r_e_lda(0.30073162-dx,0.19290617,0.02710470)))/(2*dx);
end proc();</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkISsrKyt2dCEjNQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalf(r_e_ndrho_lda(0.30073162,0.19290617,0.02710470));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkISsxcz1gJikhIzY=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">proc() local dx;
dx:=0.1^6;
(evalf(r_e_lda(0.30073162,0.19290617+dx,0.02710470))-evalf(r_e_lda(0.30073162,0.19290617-dx,0.02710470)))/(2*dx);
end proc();</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkISsrKytiJikhIzY=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalf(r_e_tau_lda(0.30073162,0.19290617,0.02710470));</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIisoKmUkejQkISM1</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">proc() local dx;
dx:=0.1^6;
(evalf(r_e_lda(0.30073162,0.19290617,0.02710470+dx))-evalf(r_e_lda(0.30073162,0.19290617,0.02710470-dx)))/(2*dx);
end proc();</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMkIisrKyspNCQhIzU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group></Section><Text-field/><Text-field/><Section><Title><Text-field layout="Heading 1" style="Heading 1">LSD</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_ex_lda);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8JkkjUGlHSSpwcm90ZWN0ZWRHRiVJJHRhdUc2Ikkqbm9ybV9kcmhvR0YnSSRyaG9HRic=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_ex_lda_nc:=rmDefs(costanti,eqs_ex_lda):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_ex_lda_nc;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM3Ky9JInBHNiIsJCoqSSpub3JtX2RyaG9HRiYiIiMiIiQjIiIiRisqJEkjUGlHSSpwcm90ZWN0ZWRHRjBGKiMhIiNGK0kkcmhvR0YmIyEiKUYrI0YtIiM3L0kmdGF1X3dHRiYsJComRilGKkYzISIiI0YtIiIpL0kiekdGJiomRjlGLUkkdGF1R0YmRjwvSSZhbHBoYUdGJiwkKiZGJUYtLCYqJEZARjxGLUY8Ri1GLSMiIiZGKy9JKXRpbGRlcV9iR0YmLCYqJiwmRkRGLUY8Ri1GLSwmRi1GLSooSSJiR0YmRi1GREYtRk9GLUYtI0Y8RiojIiIqIiM/RiUjRipGKy9JInhHRiYqJiwuKiYsJiMiIzUiIyIpRi0qKEkiY0dGJkYtRkBGKiwmRi1GLSokRkBGKkYtRjJGLUYtRiVGLUYtKiRGTEYqIyIkWSIiJUQ/KiZGTEYtLCZGXm8iIz0qJEYlRioiI10jRi1GKiMhI3QiJV1TKiZJJmthcHBhR0YmRjxGJUYqIyIkKyIiJWhsKiZJJmVfdmFyR0YmRmhvRkBGKiMiIiUiI1gqKEZicEYtSSNtdUdGJkYtRiVGK0YtRi0sJkYtRi0qJkZicEZob0YlRi1GLUYyL0kjRnhHRiYsKEYtRi1GXXBGLSomRl1wRi0sJkYtRi0qJkZZRi1GXXBGPEYtRjxGPC9JKGV4X3VuaWZHRiYsJCooRi9GPEYrRiwqJkYvRipGM0YtRiwjISIkRmRwL0knZXhfbGRhR0YmKihGM0YtRmFxRi1GW3FGLQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" style="Text">Tau -&gt; tau_a correct? Calculate exchange separately (do ispin=1,2....)?</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_ex_s1:=subs(op(map(x-&gt;x=x||_sp1,loc(eqs_ex_lda_nc))),rho=2*rhoa,norm_drho=2*norm_drhoa,tau=2*tau_a,
eqs_ex_lda_nc):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_ex_s1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8K0kmdGF1X2FHNiJJI1BpR0kqcHJvdGVjdGVkR0YnSSNtdUdGJUkiYkdGJUkiY0dGJUkma2FwcGFHRiVJJmVfdmFyR0YlSSVyaG9hR0YlSStub3JtX2RyaG9hR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_ex_s2:=subs(op(map(x-&gt;x=x||_sp2,loc(eqs_ex_lda_nc))),rho=2*rhob,norm_drho=2*norm_drhob,tau=2*tau_b,
eqs_ex_lda_nc):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_ex_s2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8K0kjUGlHSSpwcm90ZWN0ZWRHRiVJI211RzYiSSJiR0YnSSJjR0YnSSZrYXBwYUdGJ0kmZV92YXJHRidJJnRhdV9iR0YnSSVyaG9iR0YnSStub3JtX2RyaG9iR0Yn</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_c2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8KkkjUGlHSSpwcm90ZWN0ZWRHRiVJJHRhdUc2Ikkqbm9ybV9kcmhvR0YnSSRyaG9HRidJJXJob2FHRidJJXJob2JHRidJK25vcm1fZHJob2FHRidJK25vcm1fZHJob2JHRic=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_lsd0:=[rho=rhoa+rhob,tau=tau_a+tau_b,op(eqs_ex_s1),op(eqs_ex_s2),op(eqs_c2),energy=scale_ex*(ex_lda_sp1/2+ex_lda_sp2/2)+scale_ec*ec]:
eqs_lsd1:=rmDefs(costanti,eqs_lsd0):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_lsd1)minus {op(costanti)};</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8KkkmdGF1X2FHNiJJI1BpR0kqcHJvdGVjdGVkR0YnSSpub3JtX2RyaG9HRiVJJnRhdV9iR0YlSSVyaG9hR0YlSSVyaG9iR0YlSStub3JtX2RyaG9hR0YlSStub3JtX2RyaG9iR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">ima:=indiceDef(ma,eqs_lsd1);
imb:=indiceDef(mb,eqs_lsd1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSRpbWFHNiIiI28=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSRpbWJHNiIiI3A=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqMa:=eqs_lsd1[ima];
eqMb:=eqs_lsd1[imb];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVlcU1hRzYiL0kjbWFHRiUtSSRtYXhHSSpwcm90ZWN0ZWRHRio2JEkxZXBzaWxvbl9jR0dBXzFfMEdGJUktZXBzaWxvbl9jR0dBR0Yl</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSVlcU1iRzYiL0kjbWJHRiUtSSRtYXhHSSpwcm90ZWN0ZWRHRio2JEkxZXBzaWxvbl9jR0dBXzBfMUdGJUktZXBzaWxvbl9jR0dBR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqMas:=[ma=epsilon_cGGA,ma=epsilon_cGGA_1_0]:
eqMbs:=[mb=epsilon_cGGA,mb=epsilon_cGGA_0_1]:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">arg_lsd_names:=[rhoa,rhob,norm_drhoa,norm_drhob,norm_drho,tau_a,tau_b];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5hcmdfbHNkX25hbWVzRzYiNylJJXJob2FHRiVJJXJob2JHRiVJK25vcm1fZHJob2FHRiVJK25vcm1fZHJob2JHRiVJKm5vcm1fZHJob0dGJUkmdGF1X2FHRiVJJnRhdV9iR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">for i from 1 to 2 do
for j from 1 to 2 do
deriv_lsd[i,j]:=calcDerivs(subsop(ima=eqMas[i],imb=eqMbs[j],eqs_lsd1),arg_lsd_names):
end do;
end do;
i:='i':j:='j':</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">ims:= proc(eqs)local i,i1,i2;
i1:=[indiceDef(ma,eqs),
indiceDef(mb,eqs),
op(map(x-&gt;indiceDef(x,eqs),[`||`(ma,arg_lsd_names[i])$i=1..5])),
op(map(x-&gt;indiceDef(x,eqs),[`||`(mb,arg_lsd_names[i])$i=1..5]))];
i2:=select(x-&gt;x&gt;0,i1);
end proc:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqss_lsd2:=[sostConst(eqs_lsd1),seq(seq(seq(deriv_lsd[i,j][ider],i=1..2),j=1..2),
ider=1..nops(arg_lsd_names))]:</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">checkCompatible(eqss_lsd2,ims);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRR2RlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJyaG9hNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIiMiIiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRR2RlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJyaG9hNiI=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIiMiIiY=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRR2RlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJyaG9hNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIiQiIiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRR2RlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJyaG9hNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIiQiIiY=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRR2RlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJyaG9iNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIiciIig=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRR2RlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJyaG9iNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIiciIio=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRR2RlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJyaG9iNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIigiIik=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRR2RlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJyaG9iNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIikiIio=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTWRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9hNiI=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIzUiIzY=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTWRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9hNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIzUiIzg=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTWRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9hNiI=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIzYiIzc=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTWRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9hNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIzciIzg=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTWRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9iNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIzkiIzs=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTWRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9iNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIzkiIzw=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTWRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9iNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIzoiIzs=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTWRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9iNiI=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIzoiIzw=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTGRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG82Ig==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIz0iIz4=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTGRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG82Ig==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIz0iIz8=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTGRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG82Ig==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIz0iI0A=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTGRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG82Ig==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIz4iIz8=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTGRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG82Ig==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIz4iI0A=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNRTGRlZn5kaWZmZXJlbnR+Zm9yfmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG82Ig==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiVROGluY29tcGF0aWJpbGl0eX5iZXR3ZWVuNiIiIz8iI0A=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNJJmZhbHNlR0kqcHJvdGVjdGVkR0Yk</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq1:=getDef(epsilon_cRevPKZBrhoa,eqss_lsd2[2]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMUc2Ii9JNWVwc2lsb25fY1JldlBLWkJyaG9hR0YlLCZJMWVwc2lsb25fY0dHQXJob2FHRiUiIiIqJiwuKihGKUYqSSpDX2NoaV9lcHNHRiVGKkkmdGF1X3dHRiUiIiNGKiooSS1lcHNpbG9uX2NHR0FHRiVGKkkuQ19jaGlfZXBzcmhvYUdGJUYqRi9GMEYqKipGMkYqRi5GKkYvRipJKnRhdV93cmhvYUdGJUYqRjAqKEYzRipGL0YwLCYqKEklcmhvYUdGJUYqSSRyaG9HRiUhIiJJI21hR0YlRipGKiooSSVyaG9iR0YlRipGOkY7SSNtYkdGJUYqRipGKkY7KiosJkYqRipGLkYqRipGL0YqRjdGKkY1RiohIiMqKEZBRipGL0YwLCwqJkY6RjtGPEYqRioqKEY5RipGOkZCRjxGKkY7KihGOUYqRjpGO0knbWFyaG9hR0YlRipGKiooRj5GKkY6RkJGP0YqRjsqKEY+RipGOkY7SSdtYnJob2FHRiVGKkYqRipGO0YqSSR0YXVHRiVGQkYq</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">op([2,2,1,6,4,5],myEq1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMqKEklcmhvYkc2IiIiIkkkcmhvR0YlISIiSSdtYnJob2FHRiVGJg==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq2:=getDef(epsilon_cRevPKZBrhoa,eqss_lsd2[4]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMkc2Ii9JNWVwc2lsb25fY1JldlBLWkJyaG9hR0YlLCZJMWVwc2lsb25fY0dHQXJob2FHRiUiIiIqJiwuKihGKUYqSSpDX2NoaV9lcHNHRiVGKkkmdGF1X3dHRiUiIiNGKiooSS1lcHNpbG9uX2NHR0FHRiVGKkkuQ19jaGlfZXBzcmhvYUdGJUYqRi9GMEYqKipGMkYqRi5GKkYvRipJKnRhdV93cmhvYUdGJUYqRjAqKEYzRipGL0YwLCYqKEklcmhvYUdGJUYqSSRyaG9HRiUhIiJJI21hR0YlRipGKiooSSVyaG9iR0YlRipGOkY7SSNtYkdGJUYqRipGKkY7KiosJkYqRipGLkYqRipGL0YqRjdGKkY1RiohIiMqKEZBRipGL0YwLCoqJkY6RjtGPEYqRioqKEY5RipGOkZCRjxGKkY7KihGOUYqRjpGO0knbWFyaG9hR0YlRipGKiooRj5GKkY6RkJGP0YqRjtGKkY7RipJJHRhdUdGJUZCRio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalb(subsop([2,2,1,6,4,5]=0,myEq1)=myEq2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq1:=getDef(epsilon_cRevPKZBrhob,eqss_lsd2[6]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMUc2Ii9JNWVwc2lsb25fY1JldlBLWkJyaG9iR0YlLCZJMWVwc2lsb25fY0dHQXJob2JHRiUiIiIqJiwuKihGKUYqSSpDX2NoaV9lcHNHRiVGKkkmdGF1X3dHRiUiIiNGKiooSS1lcHNpbG9uX2NHR0FHRiVGKkkuQ19jaGlfZXBzcmhvYkdGJUYqRi9GMEYqKipGMkYqRi5GKkYvRipJKnRhdV93cmhvYkdGJUYqRjAqKEYzRipGL0YwLCYqKEklcmhvYUdGJUYqSSRyaG9HRiUhIiJJI21hR0YlRipGKiooSSVyaG9iR0YlRipGOkY7SSNtYkdGJUYqRipGKkY7KiosJkYqRipGLkYqRipGL0YqRjdGKkY1RiohIiMqKEZBRipGL0YwLCwqKEY5RipGOkZCRjxGKkY7KihGOUYqRjpGO0knbWFyaG9iR0YlRipGKiomRjpGO0Y/RipGKiooRj5GKkY6RkJGP0YqRjsqKEY+RipGOkY7SSdtYnJob2JHRiVGKkYqRipGO0YqSSR0YXVHRiVGQkYq</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">op([2,2,1,6,4,2],myEq1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMqKEklcmhvYUc2IiIiIkkkcmhvR0YlISIiSSdtYXJob2JHRiVGJg==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq2:=getDef(epsilon_cRevPKZBrhob,eqss_lsd2[7]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMkc2Ii9JNWVwc2lsb25fY1JldlBLWkJyaG9iR0YlLCZJMWVwc2lsb25fY0dHQXJob2JHRiUiIiIqJiwuKihGKUYqSSpDX2NoaV9lcHNHRiVGKkkmdGF1X3dHRiUiIiNGKiooSS1lcHNpbG9uX2NHR0FHRiVGKkkuQ19jaGlfZXBzcmhvYkdGJUYqRi9GMEYqKipGMkYqRi5GKkYvRipJKnRhdV93cmhvYkdGJUYqRjAqKEYzRipGL0YwLCYqKEklcmhvYUdGJUYqSSRyaG9HRiUhIiJJI21hR0YlRipGKiooSSVyaG9iR0YlRipGOkY7SSNtYkdGJUYqRipGKkY7KiosJkYqRipGLkYqRipGL0YqRjdGKkY1RiohIiMqKEZBRipGL0YwLCoqKEY5RipGOkZCRjxGKkY7KiZGOkY7Rj9GKkYqKihGPkYqRjpGQkY/RipGOyooRj5GKkY6RjtJJ21icmhvYkdGJUYqRipGKkY7RipJJHRhdUdGJUZCRio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalb(subsop([2,2,1,6,4,2]=0,myEq1)=myEq2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq1:=getDef(epsilon_cRevPKZBnorm_drhoa,eqss_lsd2[10]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMUc2Ii9JO2Vwc2lsb25fY1JldlBLWkJub3JtX2RyaG9hR0YlKiYsJiooSS1lcHNpbG9uX2NHR0FHRiUiIiJJNENfY2hpX2Vwc25vcm1fZHJob2FHRiVGLEkmdGF1X3dHRiUiIiNGLCooRi1GLEYuRi8sJiooSSVyaG9hR0YlRixJJHJob0dGJSEiIkkjbWFHRiVGLEYsKihJJXJob2JHRiVGLEY0RjVJI21iR0YlRixGLEYsRjVGLEkkdGF1R0YlISIj</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq2:=getDef(epsilon_cRevPKZBnorm_drhoa,eqss_lsd2[11]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMkc2Ii9JO2Vwc2lsb25fY1JldlBLWkJub3JtX2RyaG9hR0YlKiYsKCooSS1lcHNpbG9uX2NHR0FHRiUiIiJJNENfY2hpX2Vwc25vcm1fZHJob2FHRiVGLEkmdGF1X3dHRiUiIiNGLCooRi1GLEYuRi8sJiooSSVyaG9hR0YlRixJJHJob0dGJSEiIkkjbWFHRiVGLEYsKihJJXJob2JHRiVGLEY0RjVJI21iR0YlRixGLEYsRjUqLCwmRixGLEkqQ19jaGlfZXBzR0YlRixGLEYuRi9GM0YsRjRGNUktbWFub3JtX2RyaG9hR0YlRixGNUYsSSR0YXVHRiUhIiM=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">op([2,1,3],myEq2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMsJCosLCYiIiJGJkkqQ19jaGlfZXBzRzYiRiZGJkkmdGF1X3dHRigiIiNJJXJob2FHRihGJkkkcmhvR0YoISIiSS1tYW5vcm1fZHJob2FHRihGJkYt</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalb(subsop([2,1,3]=0,myEq2)=myEq1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq1:=getDef(epsilon_cRevPKZBnorm_drhob,eqss_lsd2[14]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMUc2Ii9JO2Vwc2lsb25fY1JldlBLWkJub3JtX2RyaG9iR0YlKiYsJiooSS1lcHNpbG9uX2NHR0FHRiUiIiJJNENfY2hpX2Vwc25vcm1fZHJob2JHRiVGLEkmdGF1X3dHRiUiIiNGLCooRi1GLEYuRi8sJiooSSVyaG9hR0YlRixJJHJob0dGJSEiIkkjbWFHRiVGLEYsKihJJXJob2JHRiVGLEY0RjVJI21iR0YlRixGLEYsRjVGLEkkdGF1R0YlISIj</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq2:=getDef(epsilon_cRevPKZBnorm_drhob,eqss_lsd2[16]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMkc2Ii9JO2Vwc2lsb25fY1JldlBLWkJub3JtX2RyaG9iR0YlKiYsKCooSS1lcHNpbG9uX2NHR0FHRiUiIiJJNENfY2hpX2Vwc25vcm1fZHJob2JHRiVGLEkmdGF1X3dHRiUiIiNGLCooRi1GLEYuRi8sJiooSSVyaG9hR0YlRixJJHJob0dGJSEiIkkjbWFHRiVGLEYsKihJJXJob2JHRiVGLEY0RjVJI21iR0YlRixGLEYsRjUqLCwmRixGLEkqQ19jaGlfZXBzR0YlRixGLEYuRi9GOEYsRjRGNUktbWJub3JtX2RyaG9iR0YlRixGNUYsSSR0YXVHRiUhIiM=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">op([2,1,3],myEq2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMsJCosLCYiIiJGJkkqQ19jaGlfZXBzRzYiRiZGJkkmdGF1X3dHRigiIiNJJXJob2JHRihGJkkkcmhvR0YoISIiSS1tYm5vcm1fZHJob2JHRihGJkYt</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalb(subsop([2,1,3]=0,myEq2)=myEq1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq1:=getDef(epsilon_cRevPKZBnorm_drho,eqss_lsd2[18]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMUc2Ii9JOmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9HRiUsJkk2ZXBzaWxvbl9jR0dBbm9ybV9kcmhvR0YlIiIiKiYsLiooRilGKkkqQ19jaGlfZXBzR0YlRipJJnRhdV93R0YlIiIjRioqKEktZXBzaWxvbl9jR0dBR0YlRipJM0NfY2hpX2Vwc25vcm1fZHJob0dGJUYqRi9GMEYqKipGMkYqRi5GKkYvRipJL3RhdV93bm9ybV9kcmhvR0YlRipGMCooRjNGKkYvRjAsJiooSSVyaG9hR0YlRipJJHJob0dGJSEiIkkjbWFHRiVGKkYqKihJJXJob2JHRiVGKkY6RjtJI21iR0YlRipGKkYqRjsqKiwmRipGKkYuRipGKkYvRipGN0YqRjVGKiEiIyooRkFGKkYvRjAsJiooRjlGKkY6RjtJLG1hbm9ybV9kcmhvR0YlRipGKiooRj5GKkY6RjtJLG1ibm9ybV9kcmhvR0YlRipGKkYqRjtGKkkkdGF1R0YlRkJGKg==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">op([2,2,1,6,4,1],myEq1);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMqKEklcmhvYUc2IiIiIkkkcmhvR0YlISIiSSxtYW5vcm1fZHJob0dGJUYm</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">myEq2:=getDef(epsilon_cRevPKZBnorm_drho,eqss_lsd2[19]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSZteUVxMkc2Ii9JOmVwc2lsb25fY1JldlBLWkJub3JtX2RyaG9HRiUsJkk2ZXBzaWxvbl9jR0dBbm9ybV9kcmhvR0YlIiIiKiYsLiooRilGKkkqQ19jaGlfZXBzR0YlRipJJnRhdV93R0YlIiIjRioqKEktZXBzaWxvbl9jR0dBR0YlRipJM0NfY2hpX2Vwc25vcm1fZHJob0dGJUYqRi9GMEYqKipGMkYqRi5GKkYvRipJL3RhdV93bm9ybV9kcmhvR0YlRipGMCooRjNGKkYvRjAsJiooSSVyaG9hR0YlRipJJHJob0dGJSEiIkkjbWFHRiVGKkYqKihJJXJob2JHRiVGKkY6RjtJI21iR0YlRipGKkYqRjsqKiwmRipGKkYuRipGKkYvRipGN0YqRjVGKiEiIyosRkFGKkYvRjBGPkYqRjpGO0ksbWJub3JtX2RyaG9HRiVGKkY7RipJJHRhdUdGJUZCRio=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">evalb(subsop([2,2,1,6,4,1]=0,myEq1)=myEq2);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiNJJXRydWVHSSpwcm90ZWN0ZWRHRiQ=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqss_lsd3:=subsop(10=op(11,eqss_lsd2),11=op(10,eqss_lsd2),14=op(16,eqss_lsd2),16=op(14,eqss_lsd2),
eqss_lsd2):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" style="Text">Order sequence defs</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">def_eqss_lsd3:=map(definizioni,eqss_lsd3):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">allDefs_eqs_lsd3:=combineDefs(def_eqss_lsd3):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_lsd4:=combineEqs(allDefs_eqs_lsd3,eqss_lsd3,def_eqss_lsd3):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk(eqs_lsd4)minus {op(costanti)};</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8KkkmdGF1X2FHNiJJI1BpR0kqcHJvdGVjdGVkR0YnSSpub3JtX2RyaG9HRiVJJnRhdV9iR0YlSSVyaG9hR0YlSSVyaG9iR0YlSStub3JtX2RyaG9hR0YlSStub3JtX2RyaG9iR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(epsilon_cRevPKZBnorm_drhoa,eqs_lsd4);
getDef(epsilon_cRevPKZBnorm_drhob,eqs_lsd4);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSTtlcHNpbG9uX2NSZXZQS1pCbm9ybV9kcmhvYUc2IiomLCgqKEktZXBzaWxvbl9jR0dBR0YlIiIiSTRDX2NoaV9lcHNub3JtX2RyaG9hR0YlRipJJnRhdV93R0YlIiIjRioqKEYrRipGLEYtLCYqKEklcmhvYUdGJUYqSSRyaG9HRiUhIiJJI21hR0YlRipGKiooSSVyaG9iR0YlRipGMkYzSSNtYkdGJUYqRipGKkYzKiwsJkYqRipJKkNfY2hpX2Vwc0dGJUYqRipGLEYtRjFGKkYyRjNJLW1hbm9ybV9kcmhvYUdGJUYqRjNGKkkkdGF1R0YlISIj</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSTtlcHNpbG9uX2NSZXZQS1pCbm9ybV9kcmhvYkc2IiomLCgqKEktZXBzaWxvbl9jR0dBR0YlIiIiSTRDX2NoaV9lcHNub3JtX2RyaG9iR0YlRipJJnRhdV93R0YlIiIjRioqKEYrRipGLEYtLCYqKEklcmhvYUdGJUYqSSRyaG9HRiUhIiJJI21hR0YlRipGKiooSSVyaG9iR0YlRipGMkYzSSNtYkdGJUYqRipGKkYzKiwsJkYqRipJKkNfY2hpX2Vwc0dGJUYqRipGLEYtRjZGKkYyRjNJLW1ibm9ybV9kcmhvYkdGJUYqRjNGKkkkdGF1R0YlISIj</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(ma,eqs_lsd4);
getDef(mb,eqs_lsd4);
proc() local der;
for der in [rhoa,rhob,norm_drhoa,norm_drhob,norm_drho] do
print(getDef(ma||der,eqs_lsd4));
print(getDef(mb||der,eqs_lsd4));
end do;
end proc();</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSNtYUc2Ii1JJG1heEdJKnByb3RlY3RlZEdGKDYkSTFlcHNpbG9uX2NHR0FfMV8wR0YlSS1lcHNpbG9uX2NHR0FHRiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSNtYkc2Ii1JJG1heEdJKnByb3RlY3RlZEdGKDYkSTFlcHNpbG9uX2NHR0FfMF8xR0YlSS1lcHNpbG9uX2NHR0FHRiU=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSdtYXJob2FHNiJJMWVwc2lsb25fY0dHQXJob2FHRiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSdtYnJob2FHNiJJMWVwc2lsb25fY0dHQXJob2FHRiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSdtYXJob2JHNiJJMWVwc2lsb25fY0dHQXJob2JHRiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSdtYnJob2JHNiJJMWVwc2lsb25fY0dHQXJob2JHRiU=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSS1tYW5vcm1fZHJob2FHNiJJO2Vwc2lsb25fY0dHQV8xXzBub3JtX2RyaG9hR0Yl</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMiIiE=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMiIiE=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSS1tYm5vcm1fZHJob2JHNiJJO2Vwc2lsb25fY0dHQV8wXzFub3JtX2RyaG9iR0Yl</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSxtYW5vcm1fZHJob0c2Ikk2ZXBzaWxvbl9jR0dBbm9ybV9kcmhvR0Yl</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSxtYm5vcm1fZHJob0c2Ikk2ZXBzaWxvbl9jR0dBbm9ybV9kcmhvR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">corrMabEqs:=proc() local res,der;
res:=[];
for der in [rhoa] do
res:=[op(res),
ma||der=myIF(epsilon_cGGA_1_0&gt;epsilon_cGGA,
epsilon_cGGA_1_0||der,epsilon_cGGA||der),
mb||der=myIF(epsilon_cGGA_0_1&gt;epsilon_cGGA,
0,epsilon_cGGA||der)
];
end do;
for der in [rhob] do
res:=[op(res),
ma||der=myIF(epsilon_cGGA_1_0&gt;epsilon_cGGA,
0,epsilon_cGGA||der),
mb||der=myIF(epsilon_cGGA_0_1&gt;epsilon_cGGA,
epsilon_cGGA_0_1||der,epsilon_cGGA||der)
];
end do;
for der in [norm_drhoa] do
res:=[op(res),
ma||der=myIF(epsilon_cGGA_1_0&gt;epsilon_cGGA,
epsilon_cGGA_1_0||der,0)
];
end do;
for der in [norm_drhob] do
res:=[op(res),
mb||der=myIF(epsilon_cGGA_0_1&gt;epsilon_cGGA,
epsilon_cGGA_0_1||der,0)
];
end do;
for der in [norm_drho] do
res:=[op(res),
ma||der=myIF(epsilon_cGGA_1_0&gt;epsilon_cGGA,
0,epsilon_cGGA||der),
mb||der=myIF(epsilon_cGGA_0_1&gt;epsilon_cGGA,
0,epsilon_cGGA||der)
];
end do;
#subs(myIF=`if`,res);
end proc();</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SStjb3JyTWFiRXFzRzYiNyovSSdtYXJob2FHRiUtSSVteUlGR0YlNiUySS1lcHNpbG9uX2NHR0FHRiVJMWVwc2lsb25fY0dHQV8xXzBHRiVJNWVwc2lsb25fY0dHQV8xXzByaG9hR0YlSTFlcHNpbG9uX2NHR0FyaG9hR0YlL0knbWJyaG9hR0YlLUYqNiUyRi1JMWVwc2lsb25fY0dHQV8wXzFHRiUiIiFGMC9JJ21hcmhvYkdGJS1GKjYlRixGN0kxZXBzaWxvbl9jR0dBcmhvYkdGJS9JJ21icmhvYkdGJS1GKjYlRjVJNWVwc2lsb25fY0dHQV8wXzFyaG9iR0YlRjwvSS1tYW5vcm1fZHJob2FHRiUtRio2JUYsSTtlcHNpbG9uX2NHR0FfMV8wbm9ybV9kcmhvYUdGJUY3L0ktbWJub3JtX2RyaG9iR0YlLUYqNiVGNUk7ZXBzaWxvbl9jR0dBXzBfMW5vcm1fZHJob2JHRiVGNy9JLG1hbm9ybV9kcmhvR0YlLUYqNiVGLEY3STZlcHNpbG9uX2NHR0Fub3JtX2RyaG9HRiUvSSxtYm5vcm1fZHJob0dGJS1GKjYlRjVGN0ZQ</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">sostCorrMabEqs:=[seq(indiceDef(lhs(corrMabEqs[i]),eqs_lsd4)=(corrMabEqs[i]),i=1..nops(corrMabEqs))];</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS9zb3N0Q29yck1hYkVxc0c2IjcqLyIkLCIvSSdtYXJob2FHRiUtSSVteUlGR0YlNiUySS1lcHNpbG9uX2NHR0FHRiVJMWVwc2lsb25fY0dHQV8xXzBHRiVJNWVwc2lsb25fY0dHQV8xXzByaG9hR0YlSTFlcHNpbG9uX2NHR0FyaG9hR0YlLyIkLSIvSSdtYnJob2FHRiUtRiw2JTJGL0kxZXBzaWxvbl9jR0dBXzBfMUdGJSIiIUYyLyIkViIvSSdtYXJob2JHRiUtRiw2JUYuRjtJMWVwc2lsb25fY0dHQXJob2JHRiUvIiRXIi9JJ21icmhvYkdGJS1GLDYlRjlJNWVwc2lsb25fY0dHQV8wXzFyaG9iR0YlRkIvIiRyIi9JLW1hbm9ybV9kcmhvYUdGJS1GLDYlRi5JO2Vwc2lsb25fY0dHQV8xXzBub3JtX2RyaG9hR0YlRjsvIiQqPS9JLW1ibm9ybV9kcmhvYkdGJS1GLDYlRjlJO2Vwc2lsb25fY0dHQV8wXzFub3JtX2RyaG9iR0YlRjsvIiQrIy9JLG1hbm9ybV9kcmhvR0YlLUYsNiVGLkY7STZlcHNpbG9uX2NHR0Fub3JtX2RyaG9HRiUvIiQsIy9JLG1ibm9ybV9kcmhvR0YlLUYsNiVGOUY7Rmhu</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_lsd5:=subsop(op(sostCorrMabEqs),eqs_lsd4):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">getDef(mbrhoa,eqs_lsd5);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiMvSSdtYnJob2FHNiItSSVteUlGR0YlNiUySS1lcHNpbG9uX2NHR0FHRiVJMWVwc2lsb25fY0dHQV8wXzFHRiUiIiFJMWVwc2lsb25fY0dHQXJob2FHRiU=</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">unk([op(eqs_lsd5),result=deriv_rhoa]);</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM8S0kiZEc2IkkmdGF1X2FHRiVJI1BpR0kqcHJvdGVjdGVkR0YoSSNtdUdGJUkiYkdGJUkiY0dGJUkkcF8xR0YlSSRBXzFHRiVJJHBfMkdGJUkkQV8yR0YlSSRwXzNHRiVJJEFfM0dGJUkqYWxwaGFfMV8xR0YlSSliZXRhXzFfMUdGJUkpYmV0YV8yXzFHRiVJKWJldGFfM18xR0YlSSliZXRhXzRfMUdGJUkqYWxwaGFfMV8yR0YlSSliZXRhXzFfMkdGJUkpYmV0YV8yXzJHRiVJKWJldGFfM18yR0YlSSliZXRhXzRfMkdGJUkqYWxwaGFfMV8zR0YlSSliZXRhXzFfM0dGJUkpYmV0YV8yXzNHRiVJKWJldGFfM18zR0YlSSliZXRhXzRfM0dGJUkpc2NhbGVfZWNHRiVJKXNjYWxlX2V4R0YlSSpub3JtX2RyaG9HRiVJJmthcHBhR0YlSSViZXRhR0YlSSZlX3ZhckdGJUknZl9paV8wR0YlSSpnYW1tYV92YXJHRiVJJnRhdV9iR0YlSSVyaG9hR0YlSSVyaG9iR0YlSStub3JtX2RyaG9hR0YlSStub3JtX2RyaG9iR0YlSTVlcHNpbG9uX2NHR0FfMV8wcmhvYUdGJQ==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">eqs_lsd6:=enforceDependencies([my_tau_a=max(tau_a,norm_drhoa^2/(8*rhoa)),
my_tau_b=max(tau_b,norm_drhob^2/(8*rhob)),my_rhoa=rhoa,my_rhob=rhob,
my_norm_drho=min(norm_drho,8*rho*(my_tau_a+my_tau_b)),my_norm_drhoa=norm_drhoa,
my_norm_drhob=norm_drhob,
op(subs(tau_a=my_tau_a,tau_b=my_tau_b,rhoa=my_rhoa,rhob=my_rhob,
norm_drho=my_norm_drho,norm_drhoa=my_norm_drhoa,norm_drhob=my_norm_drhob,
eqs_lsd5))]):</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">res_eqs_lsd:={energy,deriv_rhoa,deriv_rhob,deriv_norm_drhoa,deriv_norm_drhob,deriv_norm_drho,
deriv_tau_a,deriv_tau_b};
for my_symb in res_eqs_lsd do
print(my_symb,unk([op(eqs_lsd6),result=my_symb])minus convert(arg_lsd_names,set)minus {op(costanti)});
end do;</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SSxyZXNfZXFzX2xzZEc2IjwqSTFkZXJpdl9ub3JtX2RyaG9hR0YlSTFkZXJpdl9ub3JtX2RyaG9iR0YlSSdlbmVyZ3lHRiVJK2Rlcml2X3Job2FHRiVJK2Rlcml2X3Job2JHRiVJLGRlcml2X3RhdV9hR0YlSSxkZXJpdl90YXVfYkdGJUkwZGVyaXZfbm9ybV9kcmhvR0Yl</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiRJMWRlcml2X25vcm1fZHJob2FHNiI8I0kjUGlHSSpwcm90ZWN0ZWRHRic=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiRJMWRlcml2X25vcm1fZHJob2JHNiI8I0kjUGlHSSpwcm90ZWN0ZWRHRic=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiRJJ2VuZXJneUc2IjwjSSNQaUdJKnByb3RlY3RlZEdGJw==</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiRJK2Rlcml2X3Job2FHNiI8I0kjUGlHSSpwcm90ZWN0ZWRHRic=</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiRJK2Rlcml2X3Job2JHNiI8I0kjUGlHSSpwcm90ZWN0ZWRHRic=</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiRJLGRlcml2X3RhdV9hRzYiPCNJI1BpR0kqcHJvdGVjdGVkR0Yn</Equation></Text-field></Output><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiRJLGRlcml2X3RhdV9iRzYiPCNJI1BpR0kqcHJvdGVjdGVkR0Yn</Equation></Text-field><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiRJMGRlcml2X25vcm1fZHJob0c2IjwjSSNQaUdJKnByb3RlY3RlZEdGJw==</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">glob_eqs_lsd6:={my_rhoa,my_rhob,my_norm_drho,my_norm_drhoa,my_norm_drhob,my_tau_a,my_tau_b}union res_eqs_lsd union {op(costanti)};</Text-field></Input><Output><Text-field layout="Maple Output" style="2D Output"><Equation style="2D Output">NiM+SS5nbG9iX2Vxc19sc2Q2RzYiPFFJImRHRiVJMWRlcml2X25vcm1fZHJob2FHRiVJMWRlcml2X25vcm1fZHJob2JHRiVJLm15X25vcm1fZHJob2JHRiVJKW15X3RhdV9iR0YlSSNtdUdGJUkiYkdGJUkiY0dGJUkkcF8xR0YlSSRBXzFHRiVJJHBfMkdGJUkkQV8yR0YlSSRwXzNHRiVJJEFfM0dGJUkqYWxwaGFfMV8xR0YlSSliZXRhXzFfMUdGJUkpYmV0YV8yXzFHRiVJKWJldGFfM18xR0YlSSliZXRhXzRfMUdGJUkqYWxwaGFfMV8yR0YlSSliZXRhXzFfMkdGJUkpYmV0YV8yXzJHRiVJKWJldGFfM18yR0YlSSliZXRhXzRfMkdGJUkqYWxwaGFfMV8zR0YlSSliZXRhXzFfM0dGJUkpYmV0YV8yXzNHRiVJKWJldGFfM18zR0YlSSliZXRhXzRfM0dGJUkpc2NhbGVfZWNHRiVJKXNjYWxlX2V4R0YlSSZrYXBwYUdGJUklYmV0YUdGJUkmZV92YXJHRiVJJ2ZfaWlfMEdGJUkqZ2FtbWFfdmFyR0YlSSdlbmVyZ3lHRiVJK2Rlcml2X3Job2FHRiVJK2Rlcml2X3Job2JHRiVJLGRlcml2X3RhdV9hR0YlSSxkZXJpdl90YXVfYkdGJUkobXlfcmhvYkdGJUkobXlfcmhvYUdGJUkpbXlfdGF1X2FHRiVJMGRlcml2X25vcm1fZHJob0dGJUktbXlfbm9ybV9kcmhvR0YlSS5teV9ub3JtX2RyaG9hR0Yl</Equation></Text-field></Output></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">cs_eqs_lsd6:=CompSeq(locals=loc(eqs_lsd6)minus glob_eqs_lsd6,
globals=glob_eqs_lsd6,params=[rhoa,rhob,norm_drhoa,norm_drhob,norm_drho,tau_a,tau_b],subs(Pi=pi,eqs_lsd6)):
r_eqs_lsd6:=convert(cs_eqs_lsd6,procedure):</Text-field></Input></Group><Section><Title><Text-field layout="Heading 2" style="Heading 2">Fortran code</Text-field></Title><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">Fortran(r_eqs_lsd6,defaulttype=float,optimize);</Text-field></Input><Output><Text-field layout="Warning" style="Warning">Warning, the function names {myIF} are not recognized in the target language</Text-field></Output><Output><Text-field layout="Warning" style="Warning">Warning, The following variable name replacements were made: ["cg", "cg0", "cg1", "cg10", "cg100", "cg101", "cg102", "cg103", "cg104", "cg105", "cg11", "cg12", "cg13", "cg14", "cg15", "cg16", "cg17", "cg18", "cg19", "cg2", "cg20", "cg21", "cg22", "cg23", "cg24", "cg25", "cg26", "cg27", "cg28", "cg29", "cg3", "cg30", "cg31", "cg32", "cg33", "cg34", "cg35", "cg36", "cg37", "cg38", "cg39", "cg4", "cg40", "cg41", "cg42", "cg43", "cg44", "cg45", "cg46", "cg47", "cg48", "cg49", "cg5", "cg50", "cg51", "cg52", "cg53", "cg54", "cg55", "cg56", "cg57", "cg58", "cg59", "cg6", "cg60", "cg61", "cg62", "cg63", "cg64", "cg65", "cg66", "cg67", "cg68", "cg69", "cg7", "cg70", "cg71", "cg72", "cg73", "cg74", "cg75", "cg76", "cg77", "cg78", "cg79", "cg8", "cg80", "cg81", "cg82", "cg83", "cg84", "cg85", "cg86", "cg87", "cg88", "cg89", "cg9", "cg90", "cg91", "cg92", "cg93", "cg94", "cg95", "cg96", "cg97", "cg98", "cg99"] = ["norm_drhoa", "norm_drhob", "norm_drho", "C_chi_epsrhoa", "epsilon_c_unifrhob", "rs_s2rhob", "phirhoa", "k_frhoa", "alpha_sp2rhob", "r_eqs_lsd6", "epsilon_cRevPKZBtau_a", "A_s1rhoa", "z_sp1tau_a", "e_c_u_0rhoa", "epsilon_cRevPKZBnorm_drhoa", "t_s2rhob", "alpha_sp2", "epsilon_c_unifrhoa", "k_s", "tau_a", "p_sp1rhoa", "tau_wnorm_drho", "tau_w_sp2", "ex_unif_sp2", "epsilon_cRevPKZBrhob", "tildeq_b_sp1norm_drhoa", "tildeq_b_sp2norm_drhob", "e_c_u_0", "alpha_c", "A_s1", "tau_b", "epsilon_cRevPKZBtau_b", "alpha_sp1tau_a", "t_s1rhoa", "epsilon_cGGA_0_1", "epsilon_cGGA_1_0", "A_s2rhob", "phirhob", "ex_unif_sp1", "phi_s1", "alpha_sp2tau_b", "t_s2norm_drhob", "tnorm_drho", "C_chi", "C_chi_eps", "e_c_u_1_s2", "p_sp2rhob", "k_s_s1", "t_s1", "rs_s2", "phi_s2", "k_s_s2", "tildeq_b_sp1tau_a", "t_s2", "Hnorm_drho", "z_sp2tau_b", "A_s2", "z_sp2rhob", "alpha_sp1", "t_s1norm_drhoa", "p_sp1", "z_sp1", "rs_s1rhoa", "C_chi_epsnorm_drho", "chirhob", "manorm_drho", "tau_w_sp1", "chirhoa", "epsilon_cRevPKZB", "e_c_u_1_s1", "Fx_sp1", "p_sp2", "z_sp2", "rs_s1", "C_chi_epsnorm_drhob", "manorm_drhoa", "p_sp2norm_drhob", "z_sp2norm_drhob", "mbnorm_drho", "e_c_u_1_s1rhoa", "epsilon_cGGArhoa", "tildeq_b_sp1rhoa", "epsilon_c_unif", "epsilon_cGGA", "tildeq_b_sp1", "tildeq_b_sp2tau_b", "C_chi_epsrhob", "tildeq_b_sp2", "z_sp1rhoa", "epsilon_cRevPKZBnorm_drho", "tau_w", "e_c_u_1_s2rhob", "p_sp1norm_drhoa", "z_sp1norm_drhoa", "tau_wrhob", "tildeq_b_sp2rhob", "mbnorm_drhob", "epsilon_cRevPKZBnorm_drhob", "alpha_sp1rhoa", "e_c_u_0rhob", "tau_wrhoa", "epsilon_cGGArhob", "epsilon_cRevPKZBrhoa", "Fx_sp2", "alpha_sp1norm_drhoa", "C_chi_epsnorm_drhoa", "alpha_sp2norm_drhob"]
</Text-field></Output><Output><Text-field layout="Normal" style="Line Printed Output"> doubleprecision function cg105 (rhoa, rhob, cg, cg0, cg1, cg2, cg3
#)
doubleprecision d
doubleprecision deriv_norm_drhoa
doubleprecision deriv_norm_drhob
doubleprecision my_norm_drhob
doubleprecision my_tau_b
doubleprecision mu
doubleprecision b
doubleprecision c
doubleprecision p_1
doubleprecision A_1
doubleprecision p_2
doubleprecision A_2
doubleprecision p_3
doubleprecision A_3
doubleprecision alpha_1_1
doubleprecision beta_1_1
doubleprecision beta_2_1
doubleprecision beta_3_1
doubleprecision beta_4_1
doubleprecision alpha_1_2
doubleprecision beta_1_2
doubleprecision beta_2_2
doubleprecision beta_3_2
doubleprecision beta_4_2
doubleprecision alpha_1_3
doubleprecision beta_1_3
doubleprecision beta_2_3
doubleprecision beta_3_3
doubleprecision beta_4_3
doubleprecision scale_ec
doubleprecision scale_ex
doubleprecision kappa
doubleprecision beta
doubleprecision e_var
doubleprecision f_ii_0
doubleprecision gamma_var
doubleprecision energy
doubleprecision deriv_rhoa
doubleprecision deriv_rhob
doubleprecision deriv_tau_a
doubleprecision deriv_tau_b
doubleprecision my_rhob
doubleprecision my_rhoa
doubleprecision my_tau_a
doubleprecision deriv_norm_drho
doubleprecision my_norm_drho
doubleprecision my_norm_drhoa
common d, deriv_norm_drhoa, deriv_norm_drhob, my_norm_drhob, my_
#tau_b, mu, b, c, p_1, A_1, p_2, A_2, p_3, A_3, alpha_1_1, beta_1_1
#, beta_2_1, beta_3_1, beta_4_1, alpha_1_2, beta_1_2, beta_2_2, bet
#a_3_2, beta_4_2, alpha_1_3, beta_1_3, beta_2_3, beta_3_3, beta_4_3
#, scale_ec, scale_ex, kappa, beta, e_var, f_ii_0, gamma_var, energ
#y, deriv_rhoa, deriv_rhob, deriv_tau_a, deriv_tau_b, my_rhob, my_r
#hoa, my_tau_a, deriv_norm_drho, my_norm_drho, my_norm_drhoa
doubleprecision rhoa
doubleprecision rhob
doubleprecision cg
doubleprecision cg0
doubleprecision cg1
doubleprecision cg2
doubleprecision cg3
doubleprecision t338
doubleprecision t452
doubleprecision t9
doubleprecision t173
doubleprecision t174
doubleprecision t20
doubleprecision t331
doubleprecision t332
doubleprecision cg4
doubleprecision cg5
doubleprecision t71
doubleprecision cg6
doubleprecision t310
doubleprecision cg7
doubleprecision t668
doubleprecision t3
doubleprecision cg8
doubleprecision t407
doubleprecision t408
doubleprecision t409
doubleprecision t412
doubleprecision t414
doubleprecision t560
doubleprecision t430
doubleprecision t431
doubleprecision t437
doubleprecision t415
logical t784
integer t785
doubleprecision t239
doubleprecision eps
doubleprecision t245
doubleprecision t187
doubleprecision t1162
doubleprecision t118
doubleprecision cg9
doubleprecision cg10
doubleprecision t351
doubleprecision t352
doubleprecision t355
doubleprecision t570
doubleprecision t839
doubleprecision t841
doubleprecision t846
doubleprecision t849
doubleprecision t639
doubleprecision t144
doubleprecision t196
doubleprecision cg11
doubleprecision trhob
doubleprecision Arhob
doubleprecision t422
doubleprecision cg12
doubleprecision t604
doubleprecision t606
doubleprecision t607
doubleprecision cg13
doubleprecision t373
doubleprecision t374
doubleprecision t375
doubleprecision t377
doubleprecision t378
doubleprecision cg14
doubleprecision t215
doubleprecision t216
doubleprecision t217
doubleprecision t395
doubleprecision t397
doubleprecision t398
doubleprecision t280
doubleprecision t660
doubleprecision t663
doubleprecision t382
doubleprecision t383
doubleprecision t385
doubleprecision t386
doubleprecision t388
doubleprecision t389
doubleprecision t282
doubleprecision t285
doubleprecision t67
doubleprecision cg15
doubleprecision cg16
doubleprecision t699
doubleprecision t21
doubleprecision t86
doubleprecision t198
doubleprecision t625
doubleprecision t921
doubleprecision t250
doubleprecision t37
doubleprecision t463
doubleprecision mbrhoa
doubleprecision marhoa
integer t18
doubleprecision t320
doubleprecision t321
doubleprecision t326
doubleprecision t1169
doubleprecision t1170
doubleprecision t164
doubleprecision t165
doubleprecision cg17
doubleprecision marhob
doubleprecision mbrhob
doubleprecision t627
doubleprecision cg18
doubleprecision t103
doubleprecision t102
doubleprecision t52
doubleprecision t403
doubleprecision cg19
doubleprecision cg20
doubleprecision t305
doubleprecision t769
doubleprecision t771
doubleprecision t773
doubleprecision t775
doubleprecision t838
doubleprecision t22
doubleprecision cg21
doubleprecision t1506
doubleprecision t193
doubleprecision t464
doubleprecision t466
doubleprecision t879
doubleprecision t736
doubleprecision t739
doubleprecision cg22
doubleprecision t690
doubleprecision t691
doubleprecision mb
doubleprecision cg23
doubleprecision t87
doubleprecision t478
doubleprecision t479
doubleprecision t481
doubleprecision t628
doubleprecision t632
doubleprecision t471
doubleprecision t540
doubleprecision t543
doubleprecision t107
doubleprecision t828
doubleprecision t929
doubleprecision t577
doubleprecision cg24
doubleprecision cg25
integer t5
doubleprecision cg26
doubleprecision t345
doubleprecision t346
integer t19
doubleprecision t287
doubleprecision t288
doubleprecision t289
doubleprecision t293
doubleprecision t294
doubleprecision t121
doubleprecision t111
doubleprecision cg27
doubleprecision t110
doubleprecision cg28
doubleprecision cg29
doubleprecision t716
doubleprecision t717
doubleprecision t719
doubleprecision t720
doubleprecision t581
doubleprecision t584
doubleprecision t585
doubleprecision t113
doubleprecision cg30
doubleprecision cg31
doubleprecision cg32
doubleprecision t936
doubleprecision t83
doubleprecision cg33
doubleprecision t411
doubleprecision t341
doubleprecision t678
doubleprecision t680
doubleprecision t847
doubleprecision cg34
doubleprecision t69
doubleprecision t275
doubleprecision t359
doubleprecision t360
doubleprecision t361
doubleprecision t232
doubleprecision t233
doubleprecision t234
doubleprecision t88
doubleprecision cg35
doubleprecision frhob
doubleprecision cg36
doubleprecision t115
doubleprecision t882
doubleprecision t888
doubleprecision t746
doubleprecision t1121
doubleprecision phi
doubleprecision cg37
doubleprecision t298
doubleprecision t583
doubleprecision cg38
integer t6
doubleprecision t618
doubleprecision t758
doubleprecision t309
logical t863
doubleprecision t41
doubleprecision cg39
doubleprecision t400
doubleprecision t366
doubleprecision t333
doubleprecision t589
doubleprecision t593
doubleprecision t404
doubleprecision t339
doubleprecision t340
integer t150
doubleprecision t109
doubleprecision t156
doubleprecision t249
doubleprecision t7
doubleprecision t222
doubleprecision t553
integer t440
doubleprecision t441
doubleprecision t442
doubleprecision t438
doubleprecision t436
doubleprecision t356
doubleprecision t427
integer t1111
integer t77
doubleprecision t364
doubleprecision t367
doubleprecision t370
doubleprecision t371
doubleprecision t343
doubleprecision cg40
doubleprecision t827
doubleprecision cg41
doubleprecision cg42
doubleprecision t328
doubleprecision t329
doubleprecision t330
doubleprecision t218
doubleprecision t672
doubleprecision t675
doubleprecision t70
doubleprecision t417
doubleprecision t419
doubleprecision t420
doubleprecision t55
doubleprecision t908
doubleprecision t492
doubleprecision cg43
doubleprecision t426
doubleprecision t130
doubleprecision cg44
doubleprecision t25
doubleprecision t1132
doubleprecision frhoa
doubleprecision t392
doubleprecision t79
doubleprecision t14
doubleprecision t475
doubleprecision t15
doubleprecision t134
doubleprecision t133
doubleprecision t132
doubleprecision t703
doubleprecision t704
doubleprecision t319
doubleprecision cg45
doubleprecision cg46
doubleprecision cg47
doubleprecision cg48
doubleprecision cg49
doubleprecision cg50
doubleprecision t209
doubleprecision cg51
doubleprecision t708
doubleprecision t709
doubleprecision t711
doubleprecision t505
doubleprecision t363
doubleprecision t468
doubleprecision t470
doubleprecision t472
doubleprecision t456
doubleprecision cg52
doubleprecision cg53
doubleprecision cg54
doubleprecision t33
doubleprecision t136
doubleprecision t166
doubleprecision cg55
doubleprecision t98
doubleprecision t948
doubleprecision t455
doubleprecision t402
doubleprecision t520
doubleprecision cg56
doubleprecision cg57
doubleprecision cg58
doubleprecision t64
doubleprecision t96
doubleprecision t101
doubleprecision t532
doubleprecision t91
doubleprecision t58
doubleprecision chi
doubleprecision rs
doubleprecision rho
doubleprecision t684
doubleprecision t686
doubleprecision t873
doubleprecision t687
doubleprecision cg59
doubleprecision ma
doubleprecision t959
doubleprecision t1184
doubleprecision t1303
doubleprecision t380
integer t76
doubleprecision t650
doubleprecision t651
doubleprecision t934
doubleprecision t571
doubleprecision cg60
doubleprecision rsrhob
doubleprecision t498
integer t16
doubleprecision t956
doubleprecision cg61
doubleprecision t825
doubleprecision cg62
doubleprecision t277
doubleprecision t211
integer t12
doubleprecision t853
doubleprecision t854
doubleprecision t861
doubleprecision t557
doubleprecision t558
integer t559
doubleprecision t621
doubleprecision tau
doubleprecision t
doubleprecision A
doubleprecision t140
doubleprecision t1161
doubleprecision cg63
doubleprecision rsrhoa
doubleprecision t611
doubleprecision t177
doubleprecision t457
doubleprecision t35
doubleprecision cg64
doubleprecision t833
doubleprecision t834
doubleprecision t43
doubleprecision t754
doubleprecision cg65
doubleprecision cg66
doubleprecision cg67
doubleprecision cg68
doubleprecision cg69
doubleprecision cg70
doubleprecision cg71
doubleprecision cg72
doubleprecision t969
doubleprecision t974
doubleprecision t27
doubleprecision cg73
integer t161
doubleprecision t723
doubleprecision t724
doubleprecision t735
doubleprecision t459
doubleprecision t460
doubleprecision t462
integer t147
doubleprecision t44
doubleprecision t45
doubleprecision cg74
doubleprecision t348
doubleprecision t349
doubleprecision cg75
doubleprecision t766
doubleprecision t767
doubleprecision cg76
integer t2
doubleprecision cg77
doubleprecision cg78
doubleprecision t394
doubleprecision t393
doubleprecision t806
doubleprecision t227
integer t148
doubleprecision t32
doubleprecision cg79
doubleprecision cg80
doubleprecision cg81
doubleprecision t353
doubleprecision t975
doubleprecision t976
doubleprecision t167
doubleprecision t1496
doubleprecision t1500
doubleprecision t223
doubleprecision cg82
doubleprecision t423
doubleprecision cg83
doubleprecision t99
doubleprecision cg84
integer t337
doubleprecision cg85
doubleprecision cg86
doubleprecision cg87
doubleprecision cg88
doubleprecision t73
doubleprecision t272
doubleprecision t274
doubleprecision t36
doubleprecision t47
doubleprecision t381
doubleprecision t325
doubleprecision t1457
doubleprecision t893
doubleprecision t795
doubleprecision t1172
doubleprecision t449
doubleprecision t474
doubleprecision t476
integer t152
doubleprecision t238
doubleprecision t93
doubleprecision cg89
doubleprecision t458
doubleprecision t1164
integer t146
doubleprecision t416
doubleprecision cg90
doubleprecision cg91
doubleprecision t406
doubleprecision t257
doubleprecision cg92
doubleprecision t30
integer t13
doubleprecision cg93
doubleprecision cg94
doubleprecision t665
doubleprecision t205
doubleprecision t358
doubleprecision t561
doubleprecision t1043
doubleprecision t731
doubleprecision t518
doubleprecision cg95
doubleprecision cg96
doubleprecision t1151
doubleprecision t401
doubleprecision t154
doubleprecision t314
doubleprecision t265
doubleprecision t513
integer t1
doubleprecision cg97
doubleprecision t61
doubleprecision t179
doubleprecision t180
doubleprecision t49
integer t85
doubleprecision t303
doubleprecision t304
doubleprecision t597
doubleprecision t600
doubleprecision cg98
doubleprecision cg99
doubleprecision t973
doubleprecision cg100
doubleprecision cg101</Text-field></Output><Output><Text-field layout="Normal" style="Line Printed Output"> doubleprecision t1156
doubleprecision t1157
doubleprecision f
doubleprecision cg102
doubleprecision cg103
doubleprecision trhoa
doubleprecision Arhoa
doubleprecision t155
doubleprecision t914
doubleprecision cg104
doubleprecision t1070
doubleprecision t1072
doubleprecision t157
doubleprecision t1176
doubleprecision t1177
t1 = int(cg ** 2)
t2 = 1 / int(rhoa)
t3 = dble(t1) * dble(t2)
my_tau_a = max(cg2, t3 / 0.8D1)
t5 = int(cg0 ** 2)
t6 = 1 / int(rhob)
t7 = dble(t5) * dble(t6)
my_tau_b = max(t7 / 0.8D1, cg3)
my_rhoa = rhoa
my_rhob = rhob
my_norm_drhoa = cg
my_norm_drhob = cg0
rho = rhoa + rhob
t9 = my_tau_a + my_tau_b
my_norm_drho = min(0.8D1 * rho * t9, cg1)
tau = t9
t12 = 3 ** (0.1D1 / 0.3D1)
t13 = t1 * t12
t14 = pi ** 2
t15 = t14 ** (0.1D1 / 0.3D1)
t16 = int(t15 ** 2)
t18 = 2 ** (0.1D1 / 0.3D1)
t19 = 1 / t16 * t18
t20 = rhoa ** 2
t21 = rhoa ** (0.1D1 / 0.3D1)
t22 = t21 ** 2
t25 = dble(t19) / t22 / t20
cg57 = dble(t13) * t25 / 0.24D2
cg62 = t3 / 0.4D1
t27 = 0.1D1 / my_tau_a
cg58 = cg62 * t27 / 0.2D1
t30 = 0.1D1 / cg58 - 0.1D1
cg55 = 0.5D1 / 0.3D1 * cg57 * t30
t32 = cg55 - 0.1D1
t33 = b * cg55
t35 = 0.1D1 + t33 * t32
t36 = sqrt(t35)
t37 = 0.1D1 / t36
cg79 = 0.9D1 / 0.20D2 * t32 * t37 + 0.2D1 / 0.3D1 * cg57
t41 = cg58 ** 2
t43 = 0.1D1 + t41
t44 = t43 ** 2
t45 = 0.1D1 / t44
t47 = 0.10D2 / 0.81D2 + c * t41 * t45
t49 = cg79 ** 2
t52 = cg57 ** 2
t55 = sqrt(0.18D2 * t41 + 0.50D2 * t52)
t58 = 0.1D1 / kappa
t61 = sqrt(e_var)
t64 = e_var * mu
t67 = t47 * cg57 + 0.146D3 / 0.2025D4 * t49 - 0.73D2 / 0.4050D4
#* cg79 * t55 + 0.100D3 / 0.6561D4 * t58 * t52 + 0.4D1 / 0.45D2 * t
#61 * t41 + t64 * t52 * cg57
t69 = 0.1D1 + t61 * cg57
t70 = t69 ** 2
t71 = 0.1D1 / t70
t73 = 0.1D1 + t67 * t71 * t58
cg66 = 0.1D1 + kappa - kappa / t73
t76 = 1 / int(pi)
t77 = t76 * t12
t79 = (t14 * rhoa) ** (0.1D1 / 0.3D1)
cg37 = -0.3D1 / 0.4D1 * dble(t77) * dble(t18) * t79
t83 = rhoa * cg37
t85 = t5 * t12
t86 = rhob ** 2
t87 = rhob ** (0.1D1 / 0.3D1)
t88 = t87 ** 2
t91 = dble(t19) / t88 / t86
cg67 = dble(t85) * t91 / 0.24D2
cg22 = t7 / 0.4D1
t93 = 0.1D1 / my_tau_b
cg68 = cg22 * t93 / 0.2D1
t96 = 0.1D1 / cg68 - 0.1D1
cg17 = 0.5D1 / 0.3D1 * cg67 * t96
t98 = cg17 - 0.1D1
t99 = b * cg17
t101 = 0.1D1 + t99 * t98
t102 = sqrt(t101)
t103 = 0.1D1 / t102
cg81 = 0.9D1 / 0.20D2 * t98 * t103 + 0.2D1 / 0.3D1 * cg67
t107 = cg68 ** 2
t109 = 0.1D1 + t107
t110 = t109 ** 2
t111 = 0.1D1 / t110
t113 = 0.10D2 / 0.81D2 + c * t107 * t111
t115 = cg81 ** 2
t118 = cg67 ** 2
t121 = sqrt(0.18D2 * t107 + 0.50D2 * t118)
t130 = t113 * cg67 + 0.146D3 / 0.2025D4 * t115 - 0.73D2 / 0.4050
#D4 * cg81 * t121 + 0.100D3 / 0.6561D4 * t58 * t118 + 0.4D1 / 0.45D
#2 * t61 * t107 + t64 * t118 * cg67
t132 = 0.1D1 + t61 * cg67
t133 = t132 ** 2
t134 = 0.1D1 / t133
t136 = 0.1D1 + t130 * t134 * t58
cg96 = 0.1D1 + kappa - kappa / t136
t140 = (t14 * rhob) ** (0.1D1 / 0.3D1)
cg23 = -0.3D1 / 0.4D1 * dble(t77) * dble(t18) * t140
t144 = rhob * cg23
t146 = 4 ** (0.1D1 / 0.3D1)
t147 = t146 ** 2
t148 = t12 * t147
t150 = (t76 * t2) ** (0.1D1 / 0.3D1)
cg69 = dble(t148 * t150) / 0.4D1
t152 = t18 ** 2
cg38 = dble(t152) / 0.2D1
t154 = sqrt(dble(t12) * t79 * dble(t76))
cg45 = 0.2D1 * t154
t155 = 0.1D1 / cg38
t156 = cg * t155
t157 = 0.1D1 / cg45
cg46 = t156 * t157 * dble(t2) / 0.2D1
t161 = (t76 * t6) ** (0.1D1 / 0.3D1)
cg47 = dble(t148 * t161) / 0.4D1
cg48 = cg38
t164 = sqrt(dble(t12) * t140 * dble(t76))
cg49 = 0.2D1 * t164
t165 = 0.1D1 / cg48
t166 = cg0 * t165
t167 = 0.1D1 / cg49
cg50 = t166 * t167 * dble(t6) / 0.2D1
t173 = 0.1D1 / A_1
t174 = sqrt(cg47)
t177 = t174 * cg47
t179 = p_1 + 0.1D1
t180 = cg47 ** t179
t187 = log(0.1D1 + t173 / (beta_1_1 * t174 + beta_2_1 * cg47 + b
#eta_3_1 * t177 + beta_4_1 * t180) / 0.2D1)
t193 = sqrt(cg69)
t196 = t193 * cg69
t198 = cg69 ** t179
t205 = log(0.1D1 + t173 / (beta_1_1 * t193 + beta_2_1 * cg69 + b
#eta_3_1 * t196 + beta_4_1 * t198) / 0.2D1)
t209 = 0.1D1 + alpha_1_2 * cg47
t211 = 0.1D1 / A_2
t215 = p_2 + 0.1D1
t216 = cg47 ** t215
t217 = beta_4_2 * t216
t218 = beta_1_2 * t174 + beta_2_2 * cg47 + beta_3_2 * t177 + t21
#7
t222 = 0.1D1 + t211 / t218 / 0.2D1
t223 = log(t222)
cg43 = -0.2D1 * A_2 * t209 * t223
t227 = 0.1D1 + alpha_1_2 * cg69
t232 = cg69 ** t215
t233 = beta_4_2 * t232
t234 = beta_1_2 * t193 + beta_2_2 * cg69 + beta_3_2 * t196 + t23
#3
t238 = 0.1D1 + t211 / t234 / 0.2D1
t239 = log(t238)
cg65 = -0.2D1 * A_2 * t227 * t239
t245 = 0.1D1 / A_3
t249 = p_3 + 0.1D1
t250 = cg47 ** t249
t257 = log(0.1D1 + t245 / (beta_1_3 * t174 + beta_2_3 * cg47 + b
#eta_3_3 * t177 + beta_4_3 * t250) / 0.2D1)
t265 = cg69 ** t249
t272 = log(0.1D1 + t245 / (beta_1_3 * t193 + beta_2_3 * cg69 + b
#eta_3_3 * t196 + beta_4_3 * t265) / 0.2D1)
t274 = rhoa - rhob
t275 = 0.1D1 / rho
chi = t274 * t275
t277 = (dble(t76) * t275) ** (0.1D1 / 0.3D1)
rs = dble(t148) * t277 / 0.4D1
t280 = 0.1D1 + alpha_1_1 * rs
t282 = sqrt(rs)
t285 = t282 * rs
t287 = rs ** t179
t288 = beta_4_1 * t287
t289 = beta_1_1 * t282 + beta_2_1 * rs + beta_3_1 * t285 + t288
t293 = 0.1D1 + t173 / t289 / 0.2D1
t294 = log(t293)
cg27 = -0.2D1 * A_1 * t280 * t294
t298 = 0.1D1 + alpha_1_2 * rs
t303 = rs ** t215
t304 = beta_4_2 * t303
t305 = beta_1_2 * t282 + beta_2_2 * rs + beta_3_2 * t285 + t304
t309 = 0.1D1 + t211 / t305 / 0.2D1
t310 = log(t309)
t314 = 0.1D1 + alpha_1_3 * rs
t319 = rs ** t249
t320 = beta_4_3 * t319
t321 = beta_1_3 * t282 + beta_2_3 * rs + beta_3_3 * t285 + t320
t325 = 0.1D1 + t245 / t321 / 0.2D1
t326 = log(t325)
cg28 = 0.2D1 * A_3 * t314 * t326
t328 = 0.1D1 + chi
t329 = t328 ** (0.1D1 / 0.3D1)
t330 = t329 * t328
t331 = 0.1D1 - chi
t332 = t331 ** (0.1D1 / 0.3D1)
t333 = t332 * t331
t337 = 1 / (2 * t18 - 2)
f = (t330 + t333 - 0.2D1) * dble(t337)
t338 = cg28 * f
t339 = 0.1D1 / f_ii_0
t340 = chi ** 2
t341 = t340 ** 2
t343 = t339 * (0.1D1 - t341)
t345 = -0.2D1 * A_2 * t298 * t310 - cg27
t346 = t345 * f
cg77 = cg27 + t338 * t343 + t346 * t341
t348 = 0.1D1 / gamma_var
t349 = beta * t348
t351 = cg38 ** 2
t352 = t351 * cg38
t353 = 0.1D1 / t352
t355 = exp(-cg65 * t348 * t353)
t356 = t355 - 0.1D1</Text-field></Output><Output><Text-field layout="Normal" style="Line Printed Output"> cg29 = t349 / t356
t358 = gamma_var * t352
t359 = cg46 ** 2
t360 = cg29 * t359
t361 = 0.1D1 + t360
t363 = cg29 ** 2
t364 = t359 ** 2
t366 = 0.1D1 + t360 + t363 * t364
t367 = 0.1D1 / t366
t370 = 0.1D1 + t349 * t359 * t361 * t367
t371 = log(t370)
cg34 = cg65 + t358 * t371
t373 = cg48 ** 2
t374 = t373 * cg48
t375 = 0.1D1 / t374
t377 = exp(-cg43 * t348 * t375)
t378 = t377 - 0.1D1
cg53 = t349 / t378
t380 = gamma_var * t374
t381 = cg50 ** 2
t382 = cg53 * t381
t383 = 0.1D1 + t382
t385 = cg53 ** 2
t386 = t381 ** 2
t388 = 0.1D1 + t382 + t385 * t386
t389 = 0.1D1 / t388
t392 = 0.1D1 + t349 * t381 * t383 * t389
t393 = log(t392)
cg33 = cg43 + t380 * t393
t394 = t329 ** 2
t395 = t332 ** 2
phi = t394 / 0.2D1 + t395 / 0.2D1
t397 = t14 * rho
t398 = t397 ** (0.1D1 / 0.3D1)
t400 = sqrt(dble(t12) * t398 * dble(t76))
cg19 = 0.2D1 * t400
t401 = 0.1D1 / phi
t402 = my_norm_drho * t401
t403 = 0.1D1 / cg19
t404 = t403 * t275
t = t402 * t404 / 0.2D1
t406 = cg77 * t348
t407 = phi ** 2
t408 = t407 * phi
t409 = 0.1D1 / t408
t411 = exp(-t406 * t409)
t412 = t411 - 0.1D1
A = t349 / t412
t414 = gamma_var * t408
t415 = t ** 2
t416 = A * t415
t417 = 0.1D1 + t416
t419 = A ** 2
t420 = t415 ** 2
t422 = 0.1D1 + t416 + t419 * t420
t423 = 0.1D1 / t422
t426 = 0.1D1 + t349 * t415 * t417 * t423
t427 = log(t426)
cg78 = cg77 + t414 * t427
t430 = rhoa * rhob
t431 = my_norm_drho ** 2
t436 = sqrt(dble(t1) * t86 + dble(t5) * t20 - t430 * t431 + t430
# * dble(t1) + t430 * dble(t5))
t437 = rho ** 2
t438 = 0.1D1 / t437
t440 = t12 ** 2
t441 = 0.2D1 * t436 * t438 * dble(t440)
t442 = 0.1D1 / t398
eps = t441 * t442 / 0.6D1
cg41 = 0.53D0 + 0.87D0 * t340 + 0.5D0 * t341 + 0.226D1 * t341 *
#t340
cg84 = t431 * t275 / 0.8D1
t449 = eps ** 2
t452 = 0.1D1 / t330 + 0.1D1 / t333
t455 = 0.1D1 + t449 * t452 / 0.2D1
t456 = t455 ** 2
t457 = t456 ** 2
t458 = 0.1D1 / t457
cg42 = cg41 * t458
ma = max(cg34, cg78)
mb = max(cg33, cg78)
t459 = cg78 * cg42
t460 = cg84 ** 2
t462 = 0.1D1 + cg42
t463 = t462 * t460
t464 = rhoa * t275
t466 = rhob * t275
t468 = t464 * ma + t466 * mb
t470 = t459 * t460 - t463 * t468
t471 = tau ** 2
t472 = 0.1D1 / t471
cg64 = cg78 + t470 * t472
t474 = rho * cg64
t475 = d * cg64
t476 = t460 * cg84
t478 = 0.1D1 / t471 / tau
t479 = t476 * t478
t481 = 0.1D1 + t475 * t479
energy = scale_ex * (t83 * cg66 + t144 * cg96) + scale_ec * t474
# * t481
cg20 = -dble(t13) * dble(t19) / t22 / t20 / rhoa / 0.9D1
t492 = 0.1D1 / t20
cg82 = -dble(t1) * t492 * t27 / 0.8D1
t498 = cg57 / t41
cg91 = 0.5D1 / 0.3D1 * cg20 * t30 - 0.5D1 / 0.3D1 * t498 * cg82
t505 = t32 / t36 / t35
cg76 = 0.9D1 / 0.20D2 * cg91 * t37 - 0.9D1 / 0.40D2 * t505 * (b
#* cg91 * t32 + t33 * cg91) + 0.2D1 / 0.3D1 * cg20
t513 = c * cg58
t518 = c * t41 * cg58
t520 = 0.1D1 / t44 / t43
t532 = cg79 / t55
t540 = t58 * cg57
t543 = t61 * cg58
t553 = t67 / t70 / t69
t557 = t73 ** 2
t558 = 0.1D1 / t557
t559 = pi * t12
t560 = t79 ** 2
t561 = 0.1D1 / t560
t570 = t274 * t438
cg63 = t275 - t570
t571 = t277 ** 2
rsrhoa = -dble(t148) / t571 * dble(t76) * t438 / 0.12D2
t577 = A_1 * alpha_1_1
t581 = t289 ** 2
t583 = t280 / t581
t584 = 0.1D1 / t282
t585 = beta_1_1 * t584
t589 = beta_3_1 * t282
t593 = 0.1D1 / rs
t597 = 0.1D1 / t293
cg14 = -0.2D1 * t577 * rsrhoa * t294 + t583 * (t585 * rsrhoa / 0
#.2D1 + beta_2_1 * rsrhoa + 0.3D1 / 0.2D1 * t589 * rsrhoa + t288 *
#t179 * rsrhoa * t593) * t597
t600 = A_2 * alpha_1_2
t604 = t305 ** 2
t606 = t298 / t604
t607 = beta_1_2 * t584
t611 = beta_3_2 * t282
t618 = 0.1D1 / t309
t621 = A_3 * alpha_1_3
t625 = t321 ** 2
t627 = t314 / t625
t628 = beta_1_3 * t584
t632 = beta_3_3 * t282
t639 = 0.1D1 / t325
frhoa = (0.4D1 / 0.3D1 * t329 * cg63 - 0.4D1 / 0.3D1 * t332 * cg
#63) * dble(t337)
t650 = t340 * chi
t651 = t339 * t650
t660 = t650 * cg63
cg18 = cg14 + (0.2D1 * t621 * rsrhoa * t326 - t627 * (t628 * rsr
#hoa / 0.2D1 + beta_2_3 * rsrhoa + 0.3D1 / 0.2D1 * t632 * rsrhoa +
#t320 * t249 * rsrhoa * t593) * t639) * f * t343 + cg28 * frhoa * t
#343 - 0.4D1 * t338 * t651 * cg63 + (-0.2D1 * t600 * rsrhoa * t310
#+ t606 * (t607 * rsrhoa / 0.2D1 + beta_2_2 * rsrhoa + 0.3D1 / 0.2D
#1 * t611 * rsrhoa + t304 * t215 * rsrhoa * t593) * t618 - cg14) *
#f * t341 + t345 * frhoa * t341 + 0.4D1 * t346 * t660
t663 = 0.1D1 / t329
t665 = 0.1D1 / t332
cg102 = t663 * cg63 / 0.3D1 - t665 * cg63 / 0.3D1
t668 = t398 ** 2
cg103 = dble(t12) / t668 * t14 / 0.3D1
t672 = 0.1D1 / t400
t675 = my_norm_drho / t407
t678 = cg19 ** 2
t680 = 0.1D1 / t678 * t275
t684 = t402 * t403 * t438
trhoa = -t675 * t404 * cg102 / 0.2D1 - t402 * t680 * t672 * cg10
#3 * dble(t76) / 0.2D1 - t684 / 0.2D1
t686 = t412 ** 2
t687 = 0.1D1 / t686
t690 = t407 ** 2
t691 = 0.1D1 / t690
Arhoa = -t349 * t687 * (-cg18 * t348 * t409 + 0.3D1 * t406 * t69
#1 * cg102) * t411
t699 = gamma_var * t407
t703 = t349 * t
t704 = t417 * t423
t708 = Arhoa * t415
t709 = A * t
t711 = 0.2D1 * t709 * trhoa
t716 = t349 * t415
t717 = t422 ** 2
t719 = t417 / t717
t720 = A * t420
t723 = t415 * t
t724 = t419 * t723
t731 = 0.1D1 / t426
cg75 = cg18 + 0.3D1 * t699 * t427 * cg102 + t414 * (0.2D1 * t703
# * t704 * trhoa + t349 * t415 * (t708 + t711) * t423 - t716 * t719
# * (t708 + t711 + 0.2D1 * t720 * Arhoa + 0.4D1 * t724 * trhoa)) *
#t731
t735 = 0.1D1 / t436 * t438
t736 = dble(t5) * rhoa
t739 = rhob * dble(t1)
t746 = 0.4D1 * t436 / t437 / rho
t754 = t441 / t398 / t397 * t14 / 0.18D2
t758 = t341 * chi
cg93 = -t431 * t438 / 0.8D1
t766 = cg41 / t457 / t455
t767 = eps * t452
t769 = t328 ** 2
t771 = 0.1D1 / t329 / t769
t773 = t331 ** 2
t775 = 0.1D1 / t332 / t773
cg10 = (0.174D1 * chi * cg63 + 0.20D1 * t660 + 0.1356D2 * t758 *
# cg63) * t458 - 0.4D1 * t766 * (t767 * ((t735 * (0.2D1 * t736 - rh
#ob * t431 + t739 + rhob * dble(t5)) - t746) * dble(t440) * t442 /
#0.6D1 - t754) + t449 * (-0.4D1 / 0.3D1 * t771 * cg63 + 0.4D1 / 0.3
#D1 * t775 * cg63) / 0.2D1)
t784 = cg78 .lt. cg33
mbrhoa = myIF(t784, 0, cg75)
t785 = t150 ** 2
cg59 = -dble(t148) / dble(t785) * dble(t76) * t492 / 0.12D2
t795 = cg45 ** 2
cg32 = -t156 / t795 * dble(t2) / t154 * dble(t12) * t561 * t14 *
# dble(t76) / 0.6D1 - t156 * t157 * t492 / 0.2D1
t806 = t234 ** 2
cg74 = -0.2D1 * t600 * cg59 * t239 + t227 / t806 * (beta_1_2 / t
#193 * cg59 / 0.2D1 + beta_2_2 * cg59 + 0.3D1 / 0.2D1 * beta_3_2 *
#t193 * cg59 + t233 * t215 * cg59 / cg69) / t238
t825 = gamma_var ** 2
t827 = beta / t825
t828 = t356 ** 2
cg12 = t827 / t828 * cg74 * t353 * t355
t833 = t349 * cg46
t834 = t361 * t367
t838 = cg12 * t359
t839 = cg29 * cg46
t841 = 0.2D1 * t839 * cg32
t846 = t349 * t359
t847 = t366 ** 2
t849 = t361 / t847
t853 = t359 * cg46
t854 = t363 * t853
t861 = 0.1D1 / t370
t863 = cg78 .lt. cg34
marhoa = myIF(t863, cg74 + t358 * (0.2D1 * t833 * t834 * cg32 +
#t349 * t359 * (t838 + t841) * t367 - t846 * t849 * (t838 + t841 +
#0.2D1 * cg29 * t364 * cg12 + 0.4D1 * t854 * cg32)) * t861, cg75)
t873 = t462 * cg84
t879 = rhoa * t438 * ma
t882 = rhob * t438 * mb
cg95 = cg75 + (cg75 * cg42 * t460 + cg78 * cg10 * t460 + 0.2D1 *
# t459 * cg84 * cg93 - cg10 * t460 * t468 - 0.2D1 * t873 * t468 * c
#g93 - t463 * (t275 * ma - t879 + t464 * marhoa - t882 + t466 * mbr
#hoa)) * t472
t888 = cg64 * t481
t893 = t460 * t478
deriv_rhoa = scale_ex * (0.2D1 * cg37 * cg66 - rhoa * dble(t559)
# * dble(t18) * t561 * cg66 / 0.2D1 + 0.2D1 * t83 * t558 * (((0.2D1
# * t513 * t45 * cg82 - 0.4D1 * t518 * t520 * cg82) * cg57 + t47 *
#cg20 + 0.292D3 / 0.2025D4 * cg79 * cg76 - 0.73D2 / 0.4050D4 * cg76
# * t55 - 0.73D2 / 0.8100D4 * t532 * (0.36D2 * cg58 * cg82 + 0.100D
#3 * cg57 * cg20) + 0.200D3 / 0.6561D4 * t540 * cg20 + 0.8D1 / 0.45
#D2 * t543 * cg82 + 0.3D1 * t64 * t52 * cg20) * t71 - 0.2D1 * t553
#* t61 * cg20)) / 0.2D1 + scale_ec * (t888 + rho * cg95 * t481 + t4
#74 * (d * cg95 * t479 + 0.3D1 * t475 * t893 * cg93))
cg44 = -dble(t85) * dble(t19) / t88 / t86 / rhob / 0.9D1
t908 = 0.1D1 / t86
cg54 = -dble(t5) * t908 * t93 / 0.8D1
t914 = cg67 / t107
cg104 = 0.5D1 / 0.3D1 * cg44 * t96 - 0.5D1 / 0.3D1 * t914 * cg54
t921 = t98 / t102 / t101
cg89 = 0.9D1 / 0.20D2 * cg104 * t103 - 0.9D1 / 0.40D2 * t921 * (
#b * cg104 * t98 + t99 * cg104) + 0.2D1 / 0.3D1 * cg44
t929 = c * cg68
t934 = c * t107 * cg68
t936 = 0.1D1 / t110 / t109
t948 = cg81 / t121
t956 = t58 * cg67
t959 = t61 * cg68
t969 = t130 / t133 / t132
t973 = t136 ** 2
t974 = 0.1D1 / t973
t975 = t140 ** 2
t976 = 0.1D1 / t975
cg60 = -t275 - t570
rsrhob = rsrhoa
cg92 = -0.2D1 * t577 * rsrhob * t294 + t583 * (t585 * rsrhob / 0
#.2D1 + beta_2_1 * rsrhob + 0.3D1 / 0.2D1 * t589 * rsrhob + t288 *
#t179 * rsrhob * t593) * t597
frhob = (0.4D1 / 0.3D1 * t329 * cg60 - 0.4D1 / 0.3D1 * t332 * cg
#60) * dble(t337)
t1043 = t650 * cg60
cg100 = cg92 + (0.2D1 * t621 * rsrhob * t326 - t627 * (t628 * rs
#rhob / 0.2D1 + beta_2_3 * rsrhob + 0.3D1 / 0.2D1 * t632 * rsrhob +
# t320 * t249 * rsrhob * t593) * t639) * f * t343 + cg28 * frhob *
#t343 - 0.4D1 * t338 * t651 * cg60 + (-0.2D1 * t600 * rsrhob * t310
# + t606 * (t607 * rsrhob / 0.2D1 + beta_2_2 * rsrhob + 0.3D1 / 0.2
#D1 * t611 * rsrhob + t304 * t215 * rsrhob * t593) * t618 - cg92) *
# f * t341 + t345 * frhob * t341 + 0.4D1 * t346 * t1043
cg36 = t663 * cg60 / 0.3D1 - t665 * cg60 / 0.3D1
trhob = -t675 * t404 * cg36 / 0.2D1 - t402 * t680 * t672 * cg103
# * dble(t76) / 0.2D1 - t684 / 0.2D1
Arhob = -t349 * t687 * (-cg100 * t348 * t409 + 0.3D1 * t406 * t6
#91 * cg36) * t411
t1070 = Arhob * t415
t1072 = 0.2D1 * t709 * trhob
cg94 = cg100 + 0.3D1 * t699 * t427 * cg36 + t414 * (0.2D1 * t703
# * t704 * trhob + t349 * t415 * (t1070 + t1072) * t423 - t716 * t7
#19 * (t1070 + t1072 + 0.2D1 * t720 * Arhob + 0.4D1 * t724 * trhob)
#) * t731
cg88 = cg93
cg80 = (0.174D1 * chi * cg60 + 0.20D1 * t1043 + 0.1356D2 * t758
#* cg60) * t458 - 0.4D1 * t766 * (t767 * ((t735 * (0.2D1 * t739 - r
#hoa * t431 + rhoa * dble(t1) + t736) - t746) * dble(t440) * t442 /
# 0.6D1 - t754) + t449 * (-0.4D1 / 0.3D1 * t771 * cg60 + 0.4D1 / 0.
#3D1 * t775 * cg60) / 0.2D1)
marhob = myIF(t863, 0, cg94)
t1111 = t161 ** 2
cg101 = -dble(t148) / dble(t1111) * dble(t76) * t908 / 0.12D2
t1121 = cg49 ** 2
cg16 = -t166 / t1121 * dble(t6) / t164 * dble(t12) * t976 * t14
#* dble(t76) / 0.6D1 - t166 * t167 * t908 / 0.2D1
t1132 = t218 ** 2
cg85 = -0.2D1 * t600 * cg101 * t223 + t209 / t1132 * (beta_1_2 /
# t174 * cg101 / 0.2D1 + beta_2_2 * cg101 + 0.3D1 / 0.2D1 * beta_3_
#2 * t174 * cg101 + t217 * t215 * cg101 / cg47) / t222
t1151 = t378 ** 2
cg35 = t827 / t1151 * cg85 * t375 * t377
t1156 = t349 * cg50
t1157 = t383 * t389
t1161 = cg35 * t381
t1162 = cg53 * cg50
t1164 = 0.2D1 * t1162 * cg16
t1169 = t349 * t381
t1170 = t388 ** 2
t1172 = t383 / t1170
t1176 = t381 * cg50
t1177 = t385 * t1176
t1184 = 0.1D1 / t392
mbrhob = myIF(t784, cg85 + t380 * (0.2D1 * t1156 * t1157 * cg16
#+ t349 * t381 * (t1161 + t1164) * t389 - t1169 * t1172 * (t1161 +
#t1164 + 0.2D1 * cg53 * t386 * cg35 + 0.4D1 * t1177 * cg16)) * t118
#4, cg94)
cg24 = cg94 + (cg94 * cg42 * t460 + cg78 * cg80 * t460 + 0.2D1 *
# t459 * cg84 * cg88 - cg80 * t460 * t468 - 0.2D1 * t873 * t468 * c
#g88 - t463 * (-t879 + t464 * marhob + t275 * mb - t882 + t466 * mb
#rhob)) * t472
deriv_rhob = scale_ex * (0.2D1 * cg23 * cg96 - rhob * dble(t559)
# * dble(t18) * t976 * cg96 / 0.2D1 + 0.2D1 * t144 * t974 * (((0.2D
#1 * t929 * t111 * cg54 - 0.4D1 * t934 * t936 * cg54) * cg67 + t113
# * cg44 + 0.292D3 / 0.2025D4 * cg81 * cg89 - 0.73D2 / 0.4050D4 * c
#g89 * t121 - 0.73D2 / 0.8100D4 * t948 * (0.36D2 * cg68 * cg54 + 0.
#100D3 * cg67 * cg44) + 0.200D3 / 0.6561D4 * t956 * cg44 + 0.8D1 /
#0.45D2 * t959 * cg54 + 0.3D1 * t64 * t118 * cg44) * t134 - 0.2D1 *
# t969 * t61 * cg44)) / 0.2D1 + scale_ec * (t888 + rho * cg24 * t48
#1 + t474 * (d * cg24 * t479 + 0.3D1 * t475 * t893 * cg88))
cg86 = cg * dble(t12) * t25 / 0.12D2
cg87 = cg * dble(t2) * t27 / 0.4D1
cg97 = 0.5D1 / 0.3D1 * cg86 * t30 - 0.5D1 / 0.3D1 * t498 * cg87
cg25 = 0.9D1 / 0.20D2 * cg97 * t37 - 0.9D1 / 0.40D2 * t505 * (b
#* cg97 * t32 + t33 * cg97) + 0.2D1 / 0.3D1 * cg86
cg56 = t155 * t157 * dble(t2) / 0.2D1
cg98 = -0.2D1 / 0.3D1 * t766 * t767 * t735 * (0.2D1 * cg * t86 +
# 0.2D1 * t430 * cg) * dble(t440) * t442
cg70 = myIF(t863, t358 * (0.2D1 * t833 * t834 * cg56 + 0.2D1 * t
#349 * t853 * cg29 * cg56 * t367 - t846 * t849 * (0.2D1 * t839 * cg
#56 + 0.4D1 * t854 * cg56)) * t861, 0)
cg15 = (cg78 * cg98 * t460 - cg98 * t460 * t468 - t463 * t464 *
#cg70) * t472
t1303 = t474 * d
deriv_norm_drhoa = scale_ex * t83 * t558 * (((0.2D1 * t513 * t45
# * cg87 - 0.4D1 * t518 * t520 * cg87) * cg57 + t47 * cg86 + 0.292D
#3 / 0.2025D4 * cg79 * cg25 - 0.73D2 / 0.4050D4 * cg25 * t55 - 0.73
#D2 / 0.8100D4 * t532 * (0.36D2 * cg58 * cg87 + 0.100D3 * cg57 * cg
#86) + 0.200D3 / 0.6561D4 * t540 * cg86 + 0.8D1 / 0.45D2 * t543 * c
#g87 + 0.3D1 * t64 * t52 * cg86) * t71 - 0.2D1 * t553 * t61 * cg86)
# + scale_ec * (rho * cg15 * t481 + t1303 * cg15 * t476 * t478)
cg71 = cg0 * dble(t12) * t91 / 0.12D2
cg72 = cg0 * dble(t6) * t93 / 0.4D1
cg99 = 0.5D1 / 0.3D1 * cg71 * t96 - 0.5D1 / 0.3D1 * t914 * cg72
cg26 = 0.9D1 / 0.20D2 * cg99 * t103 - 0.9D1 / 0.40D2 * t921 * (b
# * cg99 * t98 + t99 * cg99) + 0.2D1 / 0.3D1 * cg71
cg4 = t165 * t167 * dble(t6) / 0.2D1
cg7 = -0.2D1 / 0.3D1 * t766 * t767 * t735 * (0.2D1 * cg0 * t20 +
# 0.2D1 * t430 * cg0) * dble(t440) * t442
cg9 = myIF(t784, t380 * (0.2D1 * t1156 * t1157 * cg4 + 0.2D1 * t
#349 * t1176 * cg53 * cg4 * t389 - t1169 * t1172 * (0.2D1 * t1162 *
# cg4 + 0.4D1 * t1177 * cg4)) * t1184, 0)
cg90 = (cg78 * cg7 * t460 - cg7 * t460 * t468 - t463 * t466 * cg
#9) * t472
deriv_norm_drhob = scale_ex * t144 * t974 * (((0.2D1 * t929 * t1
#11 * cg72 - 0.4D1 * t934 * t936 * cg72) * cg67 + t113 * cg71 + 0.2
#92D3 / 0.2025D4 * cg81 * cg26 - 0.73D2 / 0.4050D4 * cg26 * t121 -
#0.73D2 / 0.8100D4 * t948 * (0.36D2 * cg68 * cg72 + 0.100D3 * cg67
#* cg71) + 0.200D3 / 0.6561D4 * t956 * cg71 + 0.8D1 / 0.45D2 * t959
# * cg72 + 0.3D1 * t64 * t118 * cg71) * t134 - 0.2D1 * t969 * t61 *
# cg71) + scale_ec * (rho * cg90 * t481 + t1303 * cg90 * t476 * t47
#8)
cg40 = t401 * t403 * t275 / 0.2D1
cg51 = t414 * (0.2D1 * t703 * t704 * cg40 + 0.2D1 * t349 * t723
#* A * cg40 * t423 - t716 * t719 * (0.2D1 * t709 * cg40 + 0.4D1 * t
#724 * cg40)) * t731
cg21 = my_norm_drho * t275 / 0.4D1
cg6 = 0.4D1 / 0.3D1 * t766 * t767 * t735 * t430 * my_norm_drho *
# dble(t440) * t442
cg61 = myIF(t863, 0, cg51)
cg73 = myIF(t784, 0, cg51)
cg83 = cg51 + (cg51 * cg42 * t460 + cg78 * cg6 * t460 + 0.2D1 *
#t459 * cg84 * cg21 - cg6 * t460 * t468 - 0.2D1 * t873 * t468 * cg2
#1 - t463 * (t464 * cg61 + t466 * cg73)) * t472
deriv_norm_drho = scale_ec * (rho * cg83 * t481 + t474 * (d * cg
#83 * t479 + 0.3D1 * t475 * t893 * cg21))
t1457 = my_tau_a ** 2
cg13 = -cg62 / t1457 / 0.2D1
cg31 = -0.5D1 / 0.3D1 * t498 * cg13
cg5 = 0.9D1 / 0.20D2 * cg31 * t37 - 0.9D1 / 0.40D2 * t505 * (b *
# cg31 * t32 + t33 * cg31)
cg11 = -0.2D1 * t470 * t478
t1496 = t471 ** 2
t1500 = 0.3D1 * t475 * t476 / t1496
deriv_tau_a = scale_ex * t83 * t558 * ((0.2D1 * t513 * t45 * cg1
#3 - 0.4D1 * t518 * t520 * cg13) * cg57 + 0.292D3 / 0.2025D4 * cg79
# * cg5 - 0.73D2 / 0.4050D4 * cg5 * t55 - 0.73D2 / 0.225D3 * t532 *
# cg58 * cg13 + 0.8D1 / 0.45D2 * t543 * cg13) * t71 + scale_ec * (r
#ho * cg11 * t481 + t474 * (d * cg11 * t479 - t1500))
t1506 = my_tau_b ** 2
cg52 = -cg22 / t1506 / 0.2D1
cg39 = -0.5D1 / 0.3D1 * t914 * cg52
cg8 = 0.9D1 / 0.20D2 * cg39 * t103 - 0.9D1 / 0.40D2 * t921 * (b
#* cg39 * t98 + t99 * cg39)
cg30 = cg11
deriv_tau_b = scale_ex * t144 * t974 * ((0.2D1 * t929 * t111 * c
#g52 - 0.4D1 * t934 * t936 * cg52) * cg67 + 0.292D3 / 0.2025D4 * cg
#81 * cg8 - 0.73D2 / 0.4050D4 * cg8 * t121 - 0.73D2 / 0.225D3 * t94
#8 * cg68 * cg52 + 0.8D1 / 0.45D2 * t959 * cg52) * t134 + scale_ec
#* (rho * cg30 * t481 + t474 * (d * cg30 * t479 - t1500))
cg105 = deriv_tau_b
return
end</Text-field></Output></Group></Section><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group></Section><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/><Text-field/></Worksheet>
Reference in a new issue View git blame Copy permalink