"First set i=1, n=3, and h=3. The values of m are in table1."

table1:=[[0,0,0],[-1,0,0],[1,0,0],[-2,0,0],[-1,-1,0],[-1,1,0],[1,1,0],[2,0,0]~
,[-3,0,0],[-2,-1,0],[-2,1,0],[-1,-1,-1],[-1,-1,1],[-1,1,1],[-1,2,0],[1,1,1],[~
1,2,0],[3,0,0]]

"Generate the table for all values of m in table1."

GENERATE(table1,1,3,3)

S0:
IHAT(0)=IHAT(0)

S1:
IHAT(-ei)=IHAT(-ei)

IHAT(ei)=2*AHAT(ej+ek)+rij*rik*IHAT(-ei)

S2:
IHAT(-2*ei)=-(2*AHAT(-ei+ej+ek)-2*(rij+rik)*IHAT(-ei)+IHAT(0))/(3*rij*rik)

IHAT(-ei-ej)=IHAT(-ej)/rij-IHAT(-ei)/rij

IHAT(ej-ei)=IHAT(0)-rij*IHAT(-ei)

IHAT(ei+ej)=(2*AHAT(ei+ej+ek)+2*(2*rik-rij)*AHAT(ej+ek)
-rij*rik*((rij-2*rik)*IHAT(-ei)+IHAT(0)))/3

IHAT(2*ei)=(2*AHAT(ei+ej+ek)+4*(rij+rik)*AHAT(ej+ek)
+rij*rik*(2*(rij+rik)*IHAT(-ei)-IHAT(0)))/3

S3:
IHAT(-3*ei)=-(6*rij*rik*AHAT(-2*ei+ej+ek)+8*(rij+rik)*AHAT(-ei+ej+ek)
-(8*rij^2+7*rij*rik+8*rik^2)*IHAT(-ei)+4*(rij+rik)*IHAT(0))/(15*rij^2*rik^2)

IHAT(-2*ei-ej)=(2*AHAT(-ei+ej+ek)-(2*rij+5*rik)*IHAT(-ei)+3*rik*IHAT(-ej)
+IHAT(0))/(3*rij^2*rik)

IHAT(ej-2*ei)=(2*AHAT(-ei+ej+ek)+(rik-2*rij)*IHAT(-ei)+IHAT(0))/(3*rik)

IHAT(-ei-ej-ek)=IHAT(-ei)/(rij*rik)-IHAT(-ej)/(rij*rjk)+IHAT(-ek)/(rik*rjk)

IHAT(-ei-ej+ek)=rik*IHAT(-ei)/rij-rjk*IHAT(-ej)/rij

IHAT(-ei+ej+ek)=2*AHAT(ej+ek)+2*rij*rik*IHAT(-ei)-(rij+rik)*IHAT(0)

IHAT(2*ej-ei)=2*AHAT(ej+ek)+(rij^2+rij*rik)*IHAT(-ei)-2*rij*IHAT(0)

IHAT(ei+ej+ek)=(6*AHAT(2*ei+ej+ek)-2*(rij+rik)*AHAT(ei+ej+ek)
-4*(rij^2-rij*rik+rik^2)*AHAT(ej+ek)
-rij*rik*(2*(rij^2-rij*rik+rik^2)*IHAT(-ei)-(rij+rik)*IHAT(0)))/15

IHAT(ei+2*ej)=(6*AHAT(2*ei+ej+ek)+4*(2*rik-3*rij)*AHAT(ei+ej+ek)
+2*(3*rij^2-13*rij*rik+8*rik^2)*AHAT(ej+ek)
+rij*rik*((3*rij^2-13*rij*rik+8*rik^2)*IHAT(-ei)+2*(3*rij-2*rik)*IHAT(0)))/15

IHAT(3*ei)=(6*AHAT(2*ei+ej+ek)+8*(rij+rik)*AHAT(ei+ej+ek)
+2*(8*rij^2+7*rij*rik+8*rik^2)*AHAT(ej+ek)
+rij*rik*((8*rij^2+7*rij*rik+8*rik^2)*IHAT(-ei)-4*(rij+rik)*IHAT(0)))/15]