#-----------------------------------------------------------------------------
#                       Coefficients of the HTSE 
#           for the dimerised and frustrated S=11/2 chain
#-----------------------------------------------------------------------------
#                     (Phys. Rev. B, Vol. 64, 024428 (2001))
#
#
#         Alexander Buehler, Ute Loew and Goetz S. Uhrig
#
#                      University of Cologne
#                Institute for Theoretical Physics
#                         February 2001
#
#	
#
#		          Maple version
#                        ---------------
#
#       Read this file in Maple with:   read"filename"; 
#
#
#
#


#
# DIMERISED AND FRUSTRATED S=1/2 CHAIN
#


# Coefficients for the T*susceptibility:
# (n,l,r) == (beta*J)^n*delta^l*alpha^r
for n from 0 to 10 do
 for l from 0 to n do 
  for r from 0 to n do
    cchi[n][l][r] := 0:
   od:
  od:
 od:
cchi[0][0][0]:= 1/4:
cchi[1][0][0]:= -1/8:
cchi[1][0][1]:= -1/8:
cchi[2][0][1]:= 1/8:
cchi[2][2][0]:= -1/16:
cchi[3][0][0]:= 1/96:
cchi[3][0][1]:= 1/128:
cchi[3][0][2]:= -1/32:
cchi[3][0][3]:= 1/96:
cchi[3][2][1]:= 3/128:
cchi[4][0][0]:= 5/1536:
cchi[4][0][1]:= -23/768:
cchi[4][0][2]:= 1/512:
cchi[4][0][3]:= -1/96:
cchi[4][0][4]:= 5/1536:
cchi[4][2][0]:= 7/768:
cchi[4][2][1]:= -3/256:
cchi[4][2][2]:= 7/512:
cchi[4][4][0]:= 7/512:
cchi[5][0][0]:= -7/5120:
cchi[5][0][1]:= -49/6144:
cchi[5][0][2]:= 37/1536:
cchi[5][0][3]:= -1/128:
cchi[5][0][4]:= 1/512:
cchi[5][0][5]:= -7/5120:
cchi[5][2][0]:= 1/1536:
cchi[5][2][1]:= -67/3072:
cchi[5][2][2]:= 1/512:
cchi[5][2][3]:= -1/384:
cchi[5][4][0]:= 23/3072:
cchi[5][4][1]:= 7/6144:
cchi[6][0][0]:= -133/122880:
cchi[6][0][1]:= 9/1280:
cchi[6][0][2]:= 221/61440:
cchi[6][0][3]:= -163/92160:
cchi[6][0][4]:= 7/15360:
cchi[6][0][5]:= 23/7680:
cchi[6][0][6]:= -133/122880:
cchi[6][2][0]:= -83/40960:
cchi[6][2][1]:= 1/1536:
cchi[6][2][2]:= 49/30720:
cchi[6][2][3]:= 97/30720:
cchi[6][2][4]:= -13/2560:
cchi[6][4][0]:= -21/40960:
cchi[6][4][1]:= 3/2560:
cchi[6][4][2]:= -117/20480:
cchi[6][6][0]:= -1129/368640:
cchi[7][0][0]:= 1/16128:
cchi[7][0][1]:= 5863/1474560:
cchi[7][0][2]:= -805/73728:
cchi[7][0][3]:= 3023/737280:
cchi[7][0][4]:= -381/81920:
cchi[7][0][5]:= 943/368640:
cchi[7][0][6]:= 67/368640:
cchi[7][0][7]:= 1/16128:
cchi[7][2][0]:= -59/92160:
cchi[7][2][1]:= 4289/491520:
cchi[7][2][2]:= -131/36864:
cchi[7][2][3]:= 1009/122880:
cchi[7][2][4]:= 113/147456:
cchi[7][2][5]:= -199/368640:
cchi[7][4][0]:= -11/9216:
cchi[7][4][1]:= 571/98304:
cchi[7][4][2]:= -857/368640:
cchi[7][4][3]:= -583/245760:
cchi[7][6][0]:= -307/92160:
cchi[7][6][1]:= -3167/1474560:
cchi[8][0][0]:= 1269/4587520:
cchi[8][0][1]:= -23629/20643840:
cchi[8][0][2]:= -58651/13762560:
cchi[8][0][3]:= 28751/5160960:
cchi[8][0][4]:= -59/20160:
cchi[8][0][5]:= -877/1290240:
cchi[8][0][6]:= 5389/20643840:
cchi[8][0][7]:= -1271/1720320:
cchi[8][0][8]:= 1269/4587520:
cchi[8][2][0]:= 89/229376:
cchi[8][2][1]:= 36983/20643840:
cchi[8][2][2]:= -4203/655360:
cchi[8][2][3]:= 479/1290240:
cchi[8][2][4]:= 5119/2580480:
cchi[8][2][5]:= -61/64512:
cchi[8][2][6]:= 6095/4128768:
cchi[8][4][0]:= 1507/20643840:
cchi[8][4][1]:= 76009/20643840:
cchi[8][4][2]:= 1061/393216:
cchi[8][4][3]:= -3947/5160960:
cchi[8][4][4]:= 29/15360:
cchi[8][6][0]:= -10831/10321920:
cchi[8][6][1]:= -1927/983040:
cchi[8][6][2]:= 33017/41287680:
cchi[8][8][0]:= 9623/13762560:
cchi[9][0][0]:= 3737/74317824:
cchi[9][0][1]:= -34337/23592960:
cchi[9][0][2]:= 14125/4128768:
cchi[9][0][3]:= -1249/35389440:
cchi[9][0][4]:= 317/229376:
cchi[9][0][5]:= -969/655360:
cchi[9][0][6]:= 93463/61931520:
cchi[9][0][7]:= -67097/82575360:
cchi[9][0][8]:= -361/1720320:
cchi[9][0][9]:= 3737/74317824:
cchi[9][2][0]:= 979/3440640:
cchi[9][2][1]:= -3899/1474560:
cchi[9][2][2]:= 79/458752:
cchi[9][2][3]:= -29209/9175040:
cchi[9][2][4]:= 4099/2949120:
cchi[9][2][5]:= -1387/430080:
cchi[9][2][6]:= -13529/20643840:
cchi[9][2][7]:= 5233/9175040:
cchi[9][4][0]:= 481/1376256:
cchi[9][4][1]:= -2423/1835008:
cchi[9][4][2]:= 699/458752:
cchi[9][4][3]:= -74989/27525120:
cchi[9][4][4]:= 12337/20643840:
cchi[9][4][5]:= 69103/41287680:
cchi[9][6][0]:= 263/1474560:
cchi[9][6][1]:= -12323/6881280:
cchi[9][6][2]:= 22877/20643840:
cchi[9][6][3]:= 138421/82575360:
cchi[9][8][0]:= 15607/13762560:
cchi[9][8][1]:= 158933/165150720:
cchi[10][0][0]:= -339691/5945425920:
cchi[10][0][1]:= -22843/1486356480:
cchi[10][0][2]:= 15205963/5945425920:
cchi[10][0][3]:= -311903/82575360:
cchi[10][0][4]:= 9659/3932160:
cchi[10][0][5]:= -1177787/825753600:
cchi[10][0][6]:= 599639/594542592:
cchi[10][0][7]:= 791221/1486356480:
cchi[10][0][8]:= -367481/1486356480:
cchi[10][0][9]:= 22433/148635648:
cchi[10][0][10]:= -339691/5945425920:
cchi[10][2][0]:= -215221/5945425920:
cchi[10][2][1]:= -322247/247726080:
cchi[10][2][2]:= 515117/123863040:
cchi[10][2][3]:= -1295087/743178240:
cchi[10][2][4]:= 3402433/1486356480:
cchi[10][2][5]:= 52919/106168320:
cchi[10][2][6]:= -370969/212336640:
cchi[10][2][7]:= 14941/99090432:
cchi[10][2][8]:= -31027/99090432:
cchi[10][4][0]:= 195049/2972712960:
cchi[10][4][1]:= -15173/7741440:
cchi[10][4][2]:= 2661047/2972712960:
cchi[10][4][3]:= -1311053/743178240:
cchi[10][4][4]:= -128473/41287680:
cchi[10][4][5]:= 153863/495452160:
cchi[10][4][6]:= -816989/2972712960:
cchi[10][6][0]:= 145961/990904320:
cchi[10][6][1]:= -14683/9175040:
cchi[10][6][2]:= -33937/27525120:
cchi[10][6][3]:= 943507/743178240:
cchi[10][6][4]:= 102007/495452160:
cchi[10][8][0]:= 1374211/1981808640:
cchi[10][8][1]:= 97039/70778880:
cchi[10][8][2]:= 1754671/5945425920:
cchi[10][10][0]:= -4776949/29727129600:
Tchi:=0:
for n from 0 to 10 do
 for l from 0 to n do 
  for r from 0 to n do
    if cchi[n][l][r] <> 0 then     
     Tchi:=Tchi+cchi[n][l][r]*beta^n*delta^l*alpha^r:
    fi:
   od:
  od:
 od:
Tchi:=collect(Tchi,[beta,delta,alpha]);

# Coefficients for the specific heat:
# (n,l,r) == (beta*J)^n*delta^l*alpha^r
for n from 0 to 10 do
 for l from 0 to n do 
  for r from 0 to n do
    cheat[n][l][r] := 0:
   od:
  od:
 od:
cheat[2][0][0]:= 3/16:
cheat[2][0][2]:= 3/16:
cheat[2][2][0]:= 3/16:
cheat[3][0][0]:= 3/32:
cheat[3][0][1]:= -9/32:
cheat[3][0][3]:= 3/32:
cheat[3][2][0]:= 9/32:
cheat[3][2][1]:= 9/32:
cheat[4][0][0]:= -15/256:
cheat[4][0][1]:= -3/32:
cheat[4][0][2]:= -3/32:
cheat[4][0][4]:= -15/256:
cheat[4][2][0]:= 3/128:
cheat[4][2][1]:= 3/32:
cheat[4][4][0]:= -15/256:
cheat[5][0][0]:= -15/256:
cheat[5][0][1]:= 25/128:
cheat[5][0][2]:= -5/128:
cheat[5][0][3]:= 15/128:
cheat[5][0][5]:= -15/256:
cheat[5][2][0]:= -15/128:
cheat[5][2][2]:= -15/128:
cheat[5][2][3]:= -25/128:
cheat[5][4][0]:= -35/256:
cheat[5][4][1]:= -25/128:
cheat[6][0][0]:= 21/4096:
cheat[6][0][1]:= 63/512:
cheat[6][0][2]:= -363/4096:
cheat[6][0][3]:= 17/512:
cheat[6][0][4]:= 105/1024:
cheat[6][0][6]:= 21/4096:
cheat[6][2][0]:= -177/4096:
cheat[6][2][1]:= 15/128:
cheat[6][2][2]:= 303/2048:
cheat[6][2][3]:= -45/512:
cheat[6][2][4]:= -69/1024:
cheat[6][4][0]:= -333/4096:
cheat[6][4][1]:= -123/512:
cheat[6][4][2]:= -579/4096:
cheat[6][6][0]:= 73/4096:
cheat[7][0][0]:= 917/40960:
cheat[7][0][1]:= -2611/40960:
cheat[7][0][2]:= -119/4096:
cheat[7][0][3]:= -413/4096:
cheat[7][0][4]:= 651/20480:
cheat[7][0][5]:= -245/8192:
cheat[7][0][7]:= 917/40960:
cheat[7][2][0]:= 1393/40960:
cheat[7][2][1]:= 1281/40960:
cheat[7][2][2]:= 1491/10240:
cheat[7][2][3]:= 651/10240:
cheat[7][2][4]:= 637/20480:
cheat[7][2][5]:= 3297/40960:
cheat[7][4][0]:= 623/40960:
cheat[7][4][1]:= -2009/40960:
cheat[7][4][2]:= -819/20480:
cheat[7][4][3]:= 1379/20480:
cheat[7][6][0]:= 399/8192:
cheat[7][6][1]:= 3339/40960:
cheat[8][0][0]:= 1417/327680:
cheat[8][0][1]:= -4793/61440:
cheat[8][0][2]:= 2323/24576:
cheat[8][0][3]:= -59/960:
cheat[8][0][4]:= 35/2048:
cheat[8][0][5]:= -407/61440:
cheat[8][0][6]:= -2449/40960:
cheat[8][0][8]:= 1417/327680:
cheat[8][2][0]:= 2199/81920:
cheat[8][2][1]:= -1999/20480:
cheat[8][2][2]:= -1347/40960:
cheat[8][2][3]:= -41/1280:
cheat[8][2][4]:= -259/2048:
cheat[8][2][5]:= 2951/61440:
cheat[8][2][6]:= 6943/122880:
cheat[8][4][0]:= 5803/163840:
cheat[8][4][1]:= 59/4096:
cheat[8][4][2]:= -1369/40960:
cheat[8][4][3]:= 571/3840:
cheat[8][4][4]:= 1287/10240:
cheat[8][6][0]:= 11221/245760:
cheat[8][6][1]:= 1981/12288:
cheat[8][6][2]:= 4679/40960:
cheat[8][8][0]:= -4997/983040:
cheat[9][0][0]:= -4303/688128:
cheat[9][0][1]:= 2613/573440:
cheat[9][0][2]:= 3855/57344:
cheat[9][0][3]:= 1/10240:
cheat[9][0][4]:= -261/286720:
cheat[9][0][5]:= 5901/81920:
cheat[9][0][6]:= -2411/143360:
cheat[9][0][7]:= -2229/573440:
cheat[9][0][9]:= -4303/688128:
cheat[9][2][0]:= -1401/286720:
cheat[9][2][1]:= -7821/143360:
cheat[9][2][2]:= -6261/286720:
cheat[9][2][3]:= 1359/35840:
cheat[9][2][4]:= -111/896:
cheat[9][2][5]:= -26673/286720:
cheat[9][2][6]:= -27/143360:
cheat[9][2][7]:= -11103/573440:
cheat[9][4][0]:= 3177/573440:
cheat[9][4][1]:= -5913/286720:
cheat[9][4][2]:= -7923/57344:
cheat[9][4][3]:= -4311/71680:
cheat[9][4][4]:= 21597/286720:
cheat[9][4][5]:= 537/81920:
cheat[9][6][0]:= 3531/286720:
cheat[9][6][1]:= 14211/143360:
cheat[9][6][2]:= 40137/286720:
cheat[9][6][3]:= 1131/35840:
cheat[9][8][0]:= -18369/1146880:
cheat[9][8][1]:= -16347/573440:
cheat[10][0][0]:= -334433/110100480:
cheat[10][0][1]:= 92629/2752512:
cheat[10][0][2]:= -420475/11010048:
cheat[10][0][3]:= 59305/2752512:
cheat[10][0][4]:= -138811/2752512:
cheat[10][0][5]:= 51701/1376256:
cheat[10][0][6]:= 27641/2752512:
cheat[10][0][7]:= -1817/917504:
cheat[10][0][8]:= 38993/1572864:
cheat[10][0][10]:= -334433/110100480:
cheat[10][2][0]:= -249061/22020096:
cheat[10][2][1]:= 6463/172032:
cheat[10][2][2]:= 6235/393216:
cheat[10][2][3]:= 38011/393216:
cheat[10][2][4]:= 116115/1835008:
cheat[10][2][5]:= -14075/688128:
cheat[10][2][6]:= 3069/57344:
cheat[10][2][7]:= -53813/2752512:
cheat[10][2][8]:= -324557/11010048:
cheat[10][4][0]:= -133325/11010048:
cheat[10][4][1]:= -981/458752:
cheat[10][4][2]:= -276889/5505024:
cheat[10][4][3]:= -297061/2752512:
cheat[10][4][4]:= 5375/688128:
cheat[10][4][5]:= -83087/1376256:
cheat[10][4][6]:= -9087/131072:
cheat[10][6][0]:= -33811/3670016:
cheat[10][6][1]:= 621/114688:
cheat[10][6][2]:= 51407/917504:
cheat[10][6][3]:= -35787/917504:
cheat[10][6][4]:= -125561/1835008:
cheat[10][8][0]:= -431449/22020096:
cheat[10][8][1]:= -205055/2752512:
cheat[10][8][2]:= -214825/3670016:
cheat[10][10][0]:= 49649/36700160:
heat:=0:
for n from 0 to 10 do
 for l from 0 to n do 
  for r from 0 to n do
    if cheat[n][l][r] <> 0 then     
     heat:=heat+cheat[n][l][r]*beta^n*delta^l*alpha^r:
    fi:
   od:
  od:
 od:
heat:=collect(heat,[beta,delta,alpha]);



#
# DIMERISED  S=1/2 CHAIN
#
# (n,l) == (beta*J)^n*delta^l
for n from 0 to 18 do
 for l from 0 to n do 
    cheatd[n][l] := 0:
  od:
 od:
cheatd[2][0]:= 3/16:
cheatd[2][2]:= 3/16:
cheatd[3][0]:= 3/32:
cheatd[3][2]:= 9/32:
cheatd[4][0]:= -15/256:
cheatd[4][2]:= 3/128:
cheatd[4][4]:= -15/256:
cheatd[5][0]:= -15/256:
cheatd[5][2]:= -15/128:
cheatd[5][4]:= -35/256:
cheatd[6][0]:= 21/4096:
cheatd[6][2]:= -177/4096:
cheatd[6][4]:= -333/4096:
cheatd[6][6]:= 73/4096:
cheatd[7][0]:= 917/40960:
cheatd[7][2]:= 1393/40960:
cheatd[7][4]:= 623/40960:
cheatd[7][6]:= 399/8192:
cheatd[8][0]:= 1417/327680:
cheatd[8][2]:= 2199/81920:
cheatd[8][4]:= 5803/163840:
cheatd[8][6]:= 11221/245760:
cheatd[8][8]:= -4997/983040:
cheatd[9][0]:= -4303/688128:
cheatd[9][2]:= -1401/286720:
cheatd[9][4]:= 3177/573440:
cheatd[9][6]:= 3531/286720:
cheatd[9][8]:= -18369/1146880:
cheatd[10][0]:= -334433/110100480:
cheatd[10][2]:= -249061/22020096:
cheatd[10][4]:= -133325/11010048:
cheatd[10][6]:= -33811/3670016:
cheatd[10][8]:= -431449/22020096:
cheatd[10][10]:= 49649/36700160:
cheatd[11][0]:= 37543/31457280:
cheatd[11][2]:= -2943281/1981808640:
cheatd[11][4]:= -1231703/198180864:
cheatd[11][6]:= -2446939/330301440:
cheatd[11][8]:= -4199591/396361728:
cheatd[11][10]:= 9792739/1981808640:
cheatd[12][0]:= 3987607/3170893824:
cheatd[12][2]:= 47342317/13212057600:
cheatd[12][4]:= 70948027/26424115200:
cheatd[12][6]:= 16985329/19818086400:
cheatd[12][8]:= -238381/1056964608:
cheatd[12][10]:= 2809583/377487360:
cheatd[12][12]:= -40555/117440512:
cheatd[13][0]:= -1925339/41523609600:
cheatd[13][2]:= 60223033/39636172800:
cheatd[13][4]:= 2856603451/871995801600:
cheatd[13][6]:= 63260587/19818086400:
cheatd[13][8]:= 168008737/58133053440:
cheatd[13][10]:= 2484478763/435997900800:
cheatd[13][12]:= -140182523/96888422400:
cheatd[14][0]:= -369233453/930128855040:
cheatd[14][2]:= -967322681/1195879956480:
cheatd[14][4]:= 29175427/1993133260800:
cheatd[14][6]:= 5006543507/5979399782400:
cheatd[14][8]:= 2068244921/1993133260800:
cheatd[14][10]:= 1193462617/664377753600:
cheatd[14][12]:= -1410199439/543581798400:
cheatd[14][14]:= 3603293663/41855798476800:
cheatd[15][0]:= -31504270817/362750253465600:
cheatd[15][2]:= -7632645211/10364292956160:
cheatd[15][4]:= -89314894561/72550050693120:
cheatd[15][6]:= -210219285347/217650152079360:
cheatd[15][8]:= -3750596387/5580773130240:
cheatd[15][10]:= -28368692533/51821464780800:
cheatd[15][12]:= -110329916941/43530030415872:
cheatd[15][14]:= 5917497137/14510010138624:
cheatd[16][0]:= 851758334701/8706006083174400:
cheatd[16][2]:= 48804050567/692523211161600:
cheatd[16][4]:= -448010792927/1171962357350400:
cheatd[16][6]:= -577431395917/846417258086400:
cheatd[16][8]:= -199750102373/307788093849600:
cheatd[16][10]:= -141175079351/217650152079360:
cheatd[16][12]:= -6744074943121/5078503548518400:
cheatd[16][14]:= 718080430229/846417258086400:
cheatd[16][16]:= -1288308081349/60942042582220800:
cheatd[17][0]:= 184265505341/3627502534656000:
cheatd[17][2]:= 501069785641/1904438830694400:
cheatd[17][4]:= 1750455145427/5193924083712000:
cheatd[17][6]:= 65018005163/453437816832000:
cheatd[17][8]:= 747694294049/114266329841664000:
cheatd[17][10]:= -170193679963/5713316492083200:
cheatd[17][12]:= -221941384979/1269625887129600:
cheatd[17][14]:= 28645978566427/28566582460416000:
cheatd[17][16]:= -25549233744557/228532659683328000:
cheatd[18][0]:= -80067486241427/4875363406577664000:
cheatd[18][2]:= 5145779287709/108341409035059200:
cheatd[18][4]:= 8816140320217/36934571261952000:
cheatd[18][6]:= 129505647760939/406280283881472000:
cheatd[18][8]:= 211128422793049/812560567762944000:
cheatd[18][10]:= 19613319318773/90284507529216000:
cheatd[18][12]:= 88360795513999/406280283881472000:
cheatd[18][14]:= 5854118848751/8291434364928000:
cheatd[18][16]:= -85986647698741/325024227105177600:
cheatd[18][18]:= 6827887220393/1329644565430272000:
heat_dim:=0:
for n from 0 to 18 do
 for l from 0 to n do 
    if cheatd[n][l] <> 0 then     
     heat_dim:=heat_dim+cheatd[n][l]*beta^n*delta^l:
    fi:
  od:
 od:
heat_dim:=collect(heat_dim,[beta,delta]);


# Coefficients for the T*susceptibility:
# (n,l) == (beta*J)^n*delta^l
for n from 0 to 18 do
 for l from 0 to n do 
    cchid[n][l] := 0:
  od:
 od:
cchid[0][0]:= 1/4:
cchid[1][0]:= -1/8:
cchid[2][2]:= -1/16:
cchid[3][0]:= 1/96:
cchid[4][0]:= 5/1536:
cchid[4][2]:= 7/768:
cchid[4][4]:= 7/512:
cchid[5][0]:= -7/5120:
cchid[5][2]:= 1/1536:
cchid[5][4]:= 23/3072:
cchid[6][0]:= -133/122880:
cchid[6][2]:= -83/40960:
cchid[6][4]:= -21/40960:
cchid[6][6]:= -1129/368640:
cchid[7][0]:= 1/16128:
cchid[7][2]:= -59/92160:
cchid[7][4]:= -11/9216:
cchid[7][6]:= -307/92160:
cchid[8][0]:= 1269/4587520:
cchid[8][2]:= 89/229376:
cchid[8][4]:= 1507/20643840:
cchid[8][6]:= -10831/10321920:
cchid[8][8]:= 9623/13762560:
cchid[9][0]:= 3737/74317824:
cchid[9][2]:= 979/3440640:
cchid[9][4]:= 481/1376256:
cchid[9][6]:= 263/1474560:
cchid[9][8]:= 15607/13762560:
cchid[10][0]:= -339691/5945425920:
cchid[10][2]:= -215221/5945425920:
cchid[10][4]:= 195049/2972712960:
cchid[10][6]:= 145961/990904320:
cchid[10][8]:= 1374211/1981808640:
cchid[10][10]:= -4776949/29727129600:
cchid[11][0]:= -1428209/54499737600:
cchid[11][2]:= -2683/29030400:
cchid[11][4]:= -674059/7431782400:
cchid[11][6]:= -56827/1238630400:
cchid[11][8]:= 98731/707788800:
cchid[11][10]:= -9539/27525120:
cchid[12][0]:= 18710029/2242274918400:
cchid[12][2]:= -35760853/2615987404800:
cchid[12][4]:= -50519537/1046394961920:
cchid[12][6]:= -18989863/356725555200:
cchid[12][8]:= -212653873/5231974809600:
cchid[12][10]:= -161397977/523197480960:
cchid[12][12]:= 193615997/5231974809600:
cchid[13][0]:= 7045849/809710387200:
cchid[13][2]:= 2790083/118908518400:
cchid[13][4]:= 9861031/653996851200:
cchid[13][6]:= 16757/19818086400:
cchid[13][8]:= -56229473/3923981107200:
cchid[13][10]:= -9467111/71345111040:
cchid[13][12]:= 2172449/21799895040:
cchid[14][0]:= -358847/3957275492352:
cchid[14][2]:= 361148659/35876398694400:
cchid[14][4]:= 9492225643/466393183027200:
cchid[14][6]:= 5394474767/296795661926400:
cchid[14][8]:= 7897101007/652950456238080:
cchid[14][10]:= -10743048697/652950456238080:
cchid[14][12]:= 378600476623/3264752281190400:
cchid[14][14]:= -656281799/76947023462400:
cchid[15][0]:= -65174099663/28566582460416000:
cchid[15][2]:= -49949749/11719623573504:
cchid[15][4]:= 373889611/357082280755200:
cchid[15][6]:= 196672854197/34279898952499200:
cchid[15][8]:= 1134039913/173130802790400:
cchid[15][10]:= 86433646963/11426632984166400:
cchid[15][12]:= 125245014907/1713994947624960:
cchid[15][14]:= -104930723893/3808877661388800:
cchid[16][0]:= -258645079463/498616712036352000:
cchid[16][2]:= -15175092143/3767021862912000:
cchid[16][4]:= -8706451935593/1371195958099968000:
cchid[16][6]:= -381013820701/85699747381248000:
cchid[16][8]:= -6536122273267/2742391916199936000:
cchid[16][10]:= 176252096491/342798989524992000:
cchid[16][12]:= 32635888627387/1371195958099968000:
cchid[16][14]:= -150602416817/3808877661388800:
cchid[16][16]:= 10785364513867/5484783832399872000:
cchid[17][0]:= 1228965600979/2590036809744384000:
cchid[17][2]:= 146506668199/685597979049984000:
cchid[17][4]:= -134460640739/62327089004544000:
cchid[17][6]:= -804378832603/228532659683328000:
cchid[17][8]:= -1051886885537/342798989524992000:
cchid[17][10]:= -535584743809/228532659683328000:
cchid[17][12]:= 344293742347/228532659683328000:
cchid[17][14]:= -22234161829843/685597979049984000:
cchid[17][16]:= 52097662147/7031774144102400:
cchid[18][0]:= 1116582102301823/4475583607238295552000:
cchid[18][2]:= 33268250832001/27124749134777548800:
cchid[18][4]:= 301983779893/208944145996185600:
cchid[18][6]:= 30860378761391/74593060120638259200:
cchid[18][8]:= -182357607317269/745930601206382592000:
cchid[18][10]:= -114706799537333/248643533735460864000:
cchid[18][12]:= -90442750894411/74593060120638259200:
cchid[18][14]:= -169097404668739/10656151445805465600:
cchid[18][16]:= 6285092004168191/497287067470921728000:
cchid[18][18]:= -468309667465837/1032826986285760512000:
Tchi_dim:=0:
for n from 0 to 18 do
 for l from 0 to n do 
    if cchid[n][l] <> 0 then     
     Tchi_dim:=Tchi_dim+cchid[n][l]*beta^n*delta^l:
    fi:
  od:
 od:
Tchi_dim:=collect(Tchi_dim,[beta,delta]);


# END OF FILE