/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 15.08.2 ] */ /* [wxMaxima: input start ] */ phi(alpha,r):=(2*alpha/%pi)^(3/4)*exp(-alpha*r^2); P1s(Z,r):=Z^(3/2)/sqrt(%pi)*exp(-Z*r); P2s(Z,r):=Z^(3/2)/(4*sqrt(2*%pi))*(2-Z*r)*exp(-Z*r/2); sij(a1,a2):=bfloat(2^(3/2)*(a1*a2)^(3/4)/(a1+a2)^(3/2)); hij(a1,a2):=bfloat(3*2^(3/2)*(a1*a2)^(7/4)/(a1+a2)^(5/2)-Z/sqrt(%pi)*2^(5/2)*(a1*a2)^(3/4)/(a1+a2)); gijkl(a1,a2,a3,a4):=bfloat(16/sqrt(%pi)*(a1*a2*a3*a4)^(3/4)/((a1+a2)*(a3+a4)*sqrt(a1+a2+a3+a4))); /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$