ctotal:='((wavefunl nil) (nfn 0) (nz 0) (nz0 0) (nout 1) (
state 0) (nsy 1) (hand 0) (xi 3) (nauto 0) (escale wm));
 
group:='(((236 236)))$
 
maslist:='nil$
 
ndiagfile:='100$
 
alldiagram:='(((0 a1a0a1 a1a0a2 a1a0a3)))$
 
coupling_order_list:='(((g . 3)))$
 
array aa(100),aaaa(100)$
 
rangelist:='nil$
 
gresonance_list:='(((plus p3 p5) (233 p3m (plus (minus p3) (
minus p5))) (229 p6m (plus (minus p3) (minus p5))) (225 p8m
(plus (minus p3) (minus p5))) (221 p9m (plus (minus p3) (
minus p5))) (217 p11m (plus (minus p3) (minus p5))) (211 
p13m (plus (minus p3) (minus p5))) (207 p17m (plus (minus p3
) (minus p5))) (203 p2m (plus (minus p3) (minus p5))) (199 
p7m (plus (minus p3) (minus p5))) (195 p15m (plus (minus p3)
(minus p5))) (191 p3m (plus p3 p5)) (187 p6m (plus p3 p5)) (
183 p8m (plus p3 p5)) (179 p9m (plus p3 p5)) (175 p11m (plus
p3 p5)) (169 p13m (plus p3 p5)) (165 p17m (plus p3 p5)) (161
p2m (plus p3 p5)) (157 p7m (plus p3 p5)) (153 p15m (plus p3
p5)) (152 p14m (plus (minus p3) (minus p5))) (149 p2m (plus
(minus p3) (minus p5))) (148 p19m (plus (minus p3) (minus p5
))) (145 p2m (plus (minus p3) (minus p5))) (144 p3m (plus (
minus p3) (minus p5))) (141 p3m (plus (minus p3) (minus p5))
) (140 p6m (plus (minus p3) (minus p5))) (137 p3m (plus (
minus p3) (minus p5))) (136 p6m (plus (minus p3) (minus p5))
) (133 p6m (plus (minus p3) (minus p5))) (132 p8m (plus (
minus p3) (minus p5))) (129 p3m (plus (minus p3) (minus p5))
) (128 p8m (plus (minus p3) (minus p5))) (125 p6m (plus (
minus p3) (minus p5))) (124 p9m (plus (minus p3) (minus p5))
) (121 p3m (plus (minus p3) (minus p5))) (120 p9m (plus (
minus p3) (minus p5))) (117 p6m (plus (minus p3) (minus p5))
) (116 p13m (plus (minus p3) (minus p5))) (113 p3m (plus (
minus p3) (minus p5))) (109 p2m (plus (minus p3) (minus p5))
) (105 p2m (plus p3 p5)) (101 p3m (plus (minus p3) (minus p5
))) (97 p6m (plus (minus p3) (minus p5))) (93 p8m (plus (
minus p3) (minus p5))) (89 p9m (plus (minus p3) (minus p5)))
(85 p2m (plus (minus p3) (minus p5))) (81 p7m (plus (minus 
p3) (minus p5))) (77 p3m (plus p3 p5)) (73 p6m (plus p3 p5))
(69 p8m (plus p3 p5)) (65 p9m (plus p3 p5)) (61 p2m (plus p3
p5)) (57 p7m (plus p3 p5)) (56 p2m (plus (minus p3) (minus 
p5))) (53 p2m (plus (minus p3) (minus p5))) (52 p7m (plus (
minus p3) (minus p5))) (49 p2m (plus (minus p3) (minus p5)))
(48 p7m (plus (minus p3) (minus p5))) (45 p7m (plus (minus 
p3) (minus p5))) (44 p15m (plus (minus p3) (minus p5))) (41
p2m (plus (minus p3) (minus p5))) (40 p18m (plus (minus p3)
(minus p5))) (37 p2m (plus (minus p3) (minus p5))) (36 p21m
(plus (minus p3) (minus p5))) (33 p2m (plus (minus p3) (
minus p5))) (29 p2m (plus (minus p3) (minus p5))) (25 p2m (
plus p3 p5)) (21 p3m (plus (minus p3) (minus p5))) (17 p6m (
plus (minus p3) (minus p5))) (13 p2m (plus (minus p3) (minus
p5))) (9 p3m (plus p3 p5)) (5 p6m (plus p3 p5)) (1 p2m (plus
p3 p5))) ((plus p3 p4 p5) (192 p20m (plus p1 p2)) (191 p20m
(plus p1 p2)) (188 p20m (plus p1 p2)) (187 p20m (plus p1 p2)
) (184 p20m (plus p1 p2)) (183 p20m (plus p1 p2)) (180 p20m
(plus p1 p2)) (179 p20m (plus p1 p2)) (176 p20m (plus p1 p2)
) (175 p20m (plus p1 p2)) (173 p20m (plus p1 p2)) (170 p20m
(plus p1 p2)) (169 p20m (plus p1 p2)) (166 p20m (plus p1 p2)
) (165 p20m (plus p1 p2)) (162 p20m (plus p1 p2)) (161 p20m
(plus p1 p2)) (158 p20m (plus p1 p2)) (157 p20m (plus p1 p2)
) (154 p20m (plus p1 p2)) (153 p20m (plus p1 p2)) (106 p4m (
plus p1 p2)) (105 p4m (plus p1 p2)) (78 p16m (plus p1 p2)) (
77 p16m (plus p1 p2)) (74 p16m (plus p1 p2)) (73 p16m (plus
p1 p2)) (70 p16m (plus p1 p2)) (69 p16m (plus p1 p2)) (66 
p16m (plus p1 p2)) (65 p16m (plus p1 p2)) (62 p16m (plus p1
p2)) (61 p16m (plus p1 p2)) (58 p16m (plus p1 p2)) (57 p16m
(plus p1 p2)) (26 p5m (plus p1 p2)) (25 p5m (plus p1 p2)) (
10 p10m (plus p1 p2)) (9 p10m (plus p1 p2)) (6 p10m (plus p1
p2)) (5 p10m (plus p1 p2)) (2 p10m (plus p1 p2)) (1 p10m (
plus p1 p2))) ((plus p3 p4) (234 p3m (plus (minus p3) (minus
p4))) (230 p6m (plus (minus p3) (minus p4))) (226 p8m (plus
(minus p3) (minus p4))) (222 p9m (plus (minus p3) (minus p4)
)) (218 p11m (plus (minus p3) (minus p4))) (212 p13m (plus (
minus p3) (minus p4))) (208 p17m (plus (minus p3) (minus p4)
)) (204 p2m (plus (minus p3) (minus p4))) (200 p7m (plus (
minus p3) (minus p4))) (196 p15m (plus (minus p3) (minus p4)
)) (192 p3m (plus p3 p4)) (188 p6m (plus p3 p4)) (184 p8m (
plus p3 p4)) (180 p9m (plus p3 p4)) (176 p11m (plus p3 p4))
(170 p13m (plus p3 p4)) (166 p17m (plus p3 p4)) (162 p2m (
plus p3 p4)) (158 p7m (plus p3 p4)) (154 p15m (plus p3 p4))
(151 p14m (plus (minus p3) (minus p4))) (150 p2m (plus (
minus p3) (minus p4))) (147 p19m (plus (minus p3) (minus p4)
)) (146 p2m (plus (minus p3) (minus p4))) (143 p3m (plus (
minus p3) (minus p4))) (142 p3m (plus (minus p3) (minus p4))
) (139 p6m (plus (minus p3) (minus p4))) (138 p3m (plus (
minus p3) (minus p4))) (135 p6m (plus (minus p3) (minus p4))
) (134 p6m (plus (minus p3) (minus p4))) (131 p8m (plus (
minus p3) (minus p4))) (130 p3m (plus (minus p3) (minus p4))
) (127 p8m (plus (minus p3) (minus p4))) (126 p6m (plus (
minus p3) (minus p4))) (123 p9m (plus (minus p3) (minus p4))
) (122 p3m (plus (minus p3) (minus p4))) (119 p9m (plus (
minus p3) (minus p4))) (118 p6m (plus (minus p3) (minus p4))
) (115 p13m (plus (minus p3) (minus p4))) (114 p3m (plus (
minus p3) (minus p4))) (110 p2m (plus (minus p3) (minus p4))
) (106 p2m (plus p3 p4)) (102 p3m (plus (minus p3) (minus p4
))) (98 p6m (plus (minus p3) (minus p4))) (94 p8m (plus (
minus p3) (minus p4))) (90 p9m (plus (minus p3) (minus p4)))
(86 p2m (plus (minus p3) (minus p4))) (82 p7m (plus (minus 
p3) (minus p4))) (78 p3m (plus p3 p4)) (74 p6m (plus p3 p4))
(70 p8m (plus p3 p4)) (66 p9m (plus p3 p4)) (62 p2m (plus p3
p4)) (58 p7m (plus p3 p4)) (55 p2m (plus (minus p3) (minus 
p4))) (54 p2m (plus (minus p3) (minus p4))) (51 p7m (plus (
minus p3) (minus p4))) (50 p2m (plus (minus p3) (minus p4)))
(47 p7m (plus (minus p3) (minus p4))) (46 p7m (plus (minus 
p3) (minus p4))) (43 p15m (plus (minus p3) (minus p4))) (42
p2m (plus (minus p3) (minus p4))) (39 p18m (plus (minus p3)
(minus p4))) (38 p2m (plus (minus p3) (minus p4))) (35 p21m
(plus (minus p3) (minus p4))) (34 p2m (plus (minus p3) (
minus p4))) (30 p2m (plus (minus p3) (minus p4))) (26 p2m (
plus p3 p4)) (22 p3m (plus (minus p3) (minus p4))) (18 p6m (
plus (minus p3) (minus p4))) (14 p2m (plus (minus p3) (minus
p4))) (10 p3m (plus p3 p4)) (6 p6m (plus p3 p4)) (2 p2m (
plus p3 p4))) ((plus p2 p5) (235 p3m (plus p2 p5)) (231 p6m
(plus p2 p5)) (227 p8m (plus p2 p5)) (223 p9m (plus p2 p5))
(219 p11m (plus p2 p5)) (213 p13m (plus p2 p5)) (209 p17m (
plus p2 p5)) (205 p2m (plus p2 p5)) (201 p7m (plus p2 p5)) (
197 p15m (plus p2 p5)) (193 p3m (plus p2 p5)) (189 p6m (plus
p2 p5)) (185 p8m (plus p2 p5)) (181 p9m (plus p2 p5)) (177 
p11m (plus p2 p5)) (171 p13m (plus p2 p5)) (167 p17m (plus 
p2 p5)) (163 p2m (plus p2 p5)) (159 p7m (plus p2 p5)) (155 
p15m (plus p2 p5)) (151 p2m (plus p2 p5)) (150 p14m (plus p2
p5)) (147 p2m (plus p2 p5)) (146 p19m (plus p2 p5)) (143 p3m
(plus p2 p5)) (142 p3m (plus p2 p5)) (139 p3m (plus p2 p5))
(138 p6m (plus p2 p5)) (135 p6m (plus p2 p5)) (134 p6m (plus
p2 p5)) (131 p3m (plus p2 p5)) (130 p8m (plus p2 p5)) (127 
p6m (plus p2 p5)) (126 p8m (plus p2 p5)) (123 p3m (plus p2 
p5)) (122 p9m (plus p2 p5)) (119 p6m (plus p2 p5)) (118 p9m
(plus p2 p5)) (115 p3m (plus p2 p5)) (114 p13m (plus p2 p5))
(111 p2m (plus p2 p5)) (107 p2m (plus p2 p5)) (103 p3m (plus
p2 p5)) (99 p6m (plus p2 p5)) (95 p8m (plus p2 p5)) (91 p9m
(plus p2 p5)) (87 p2m (plus p2 p5)) (83 p7m (plus p2 p5)) (
79 p3m (plus p2 p5)) (75 p6m (plus p2 p5)) (71 p8m (plus p2
p5)) (67 p9m (plus p2 p5)) (63 p2m (plus p2 p5)) (59 p7m (
plus p2 p5)) (55 p2m (plus p2 p5)) (54 p2m (plus p2 p5)) (51
p2m (plus p2 p5)) (50 p7m (plus p2 p5)) (47 p7m (plus p2 p5)
) (46 p7m (plus p2 p5)) (43 p2m (plus p2 p5)) (42 p15m (plus
p2 p5)) (39 p2m (plus p2 p5)) (38 p18m (plus p2 p5)) (35 p2m
(plus p2 p5)) (34 p21m (plus p2 p5)) (31 p2m (plus p2 p5)) (
27 p2m (plus p2 p5)) (23 p3m (plus p2 p5)) (19 p6m (plus p2
p5)) (15 p2m (plus p2 p5)) (11 p3m (plus p2 p5)) (7 p6m (
plus p2 p5)) (3 p2m (plus p2 p5))) ((plus p2 p4 p5) (194 
p20m (plus p1 p3)) (193 p20m (plus p1 p3)) (190 p20m (plus 
p1 p3)) (189 p20m (plus p1 p3)) (186 p20m (plus p1 p3)) (185
p20m (plus p1 p3)) (182 p20m (plus p1 p3)) (181 p20m (plus 
p1 p3)) (178 p20m (plus p1 p3)) (177 p20m (plus p1 p3)) (174
p20m (plus p1 p3)) (172 p20m (plus p1 p3)) (171 p20m (plus 
p1 p3)) (168 p20m (plus p1 p3)) (167 p20m (plus p1 p3)) (164
p20m (plus p1 p3)) (163 p20m (plus p1 p3)) (160 p20m (plus 
p1 p3)) (159 p20m (plus p1 p3)) (156 p20m (plus p1 p3)) (155
p20m (plus p1 p3)) (108 p4m (plus p1 p3)) (107 p4m (plus p1
p3)) (80 p16m (plus p1 p3)) (79 p16m (plus p1 p3)) (76 p16m
(plus p1 p3)) (75 p16m (plus p1 p3)) (72 p16m (plus p1 p3))
(71 p16m (plus p1 p3)) (68 p16m (plus p1 p3)) (67 p16m (plus
p1 p3)) (64 p16m (plus p1 p3)) (63 p16m (plus p1 p3)) (60 
p16m (plus p1 p3)) (59 p16m (plus p1 p3)) (28 p5m (plus p1 
p3)) (27 p5m (plus p1 p3)) (12 p10m (plus p1 p3)) (11 p10m (
plus p1 p3)) (8 p10m (plus p1 p3)) (7 p10m (plus p1 p3)) (4
p10m (plus p1 p3)) (3 p10m (plus p1 p3))) ((plus p2 p4) (236
p3m (plus p2 p4)) (232 p6m (plus p2 p4)) (228 p8m (plus p2 
p4)) (224 p9m (plus p2 p4)) (220 p11m (plus p2 p4)) (214 
p13m (plus p2 p4)) (210 p17m (plus p2 p4)) (206 p2m (plus p2
p4)) (202 p7m (plus p2 p4)) (198 p15m (plus p2 p4)) (194 p3m
(plus p2 p4)) (190 p6m (plus p2 p4)) (186 p8m (plus p2 p4))
(182 p9m (plus p2 p4)) (178 p11m (plus p2 p4)) (172 p13m (
plus p2 p4)) (168 p17m (plus p2 p4)) (164 p2m (plus p2 p4))
(160 p7m (plus p2 p4)) (156 p15m (plus p2 p4)) (152 p2m (
plus p2 p4)) (149 p14m (plus p2 p4)) (148 p2m (plus p2 p4))
(145 p19m (plus p2 p4)) (144 p3m (plus p2 p4)) (141 p3m (
plus p2 p4)) (140 p3m (plus p2 p4)) (137 p6m (plus p2 p4)) (
136 p6m (plus p2 p4)) (133 p6m (plus p2 p4)) (132 p3m (plus
p2 p4)) (129 p8m (plus p2 p4)) (128 p6m (plus p2 p4)) (125 
p8m (plus p2 p4)) (124 p3m (plus p2 p4)) (121 p9m (plus p2 
p4)) (120 p6m (plus p2 p4)) (117 p9m (plus p2 p4)) (116 p3m
(plus p2 p4)) (113 p13m (plus p2 p4)) (112 p2m (plus p2 p4))
(108 p2m (plus p2 p4)) (104 p3m (plus p2 p4)) (100 p6m (plus
p2 p4)) (96 p8m (plus p2 p4)) (92 p9m (plus p2 p4)) (88 p2m
(plus p2 p4)) (84 p7m (plus p2 p4)) (80 p3m (plus p2 p4)) (
76 p6m (plus p2 p4)) (72 p8m (plus p2 p4)) (68 p9m (plus p2
p4)) (64 p2m (plus p2 p4)) (60 p7m (plus p2 p4)) (56 p2m (
plus p2 p4)) (53 p2m (plus p2 p4)) (52 p2m (plus p2 p4)) (49
p7m (plus p2 p4)) (48 p7m (plus p2 p4)) (45 p7m (plus p2 p4)
) (44 p2m (plus p2 p4)) (41 p15m (plus p2 p4)) (40 p2m (plus
p2 p4)) (37 p18m (plus p2 p4)) (36 p2m (plus p2 p4)) (33 
p21m (plus p2 p4)) (32 p2m (plus p2 p4)) (28 p2m (plus p2 p4
)) (24 p3m (plus p2 p4)) (20 p6m (plus p2 p4)) (16 p2m (plus
p2 p4)) (12 p3m (plus p2 p4)) (8 p6m (plus p2 p4)) (4 p2m (
plus p2 p4))) ((plus p2 p3 p5) (235 p20m (plus (minus p1) (
minus p4))) (233 p20m (plus (minus p1) (minus p4))) (231 
p20m (plus (minus p1) (minus p4))) (229 p20m (plus (minus p1
) (minus p4))) (227 p20m (plus (minus p1) (minus p4))) (225
p20m (plus (minus p1) (minus p4))) (223 p20m (plus (minus p1
) (minus p4))) (221 p20m (plus (minus p1) (minus p4))) (219
p20m (plus (minus p1) (minus p4))) (217 p20m (plus (minus p1
) (minus p4))) (215 p20m (plus (minus p1) (minus p4))) (213
p20m (plus (minus p1) (minus p4))) (211 p20m (plus (minus p1
) (minus p4))) (209 p20m (plus (minus p1) (minus p4))) (207
p20m (plus (minus p1) (minus p4))) (205 p20m (plus (minus p1
) (minus p4))) (203 p20m (plus (minus p1) (minus p4))) (201
p20m (plus (minus p1) (minus p4))) (199 p20m (plus (minus p1
) (minus p4))) (197 p20m (plus (minus p1) (minus p4))) (195
p20m (plus (minus p1) (minus p4))) (111 p4m (plus (minus p1)
(minus p4))) (109 p4m (plus (minus p1) (minus p4))) (103 
p16m (plus (minus p1) (minus p4))) (101 p16m (plus (minus p1
) (minus p4))) (99 p16m (plus (minus p1) (minus p4))) (97 
p16m (plus (minus p1) (minus p4))) (95 p16m (plus (minus p1)
(minus p4))) (93 p16m (plus (minus p1) (minus p4))) (91 p16m
(plus (minus p1) (minus p4))) (89 p16m (plus (minus p1) (
minus p4))) (87 p16m (plus (minus p1) (minus p4))) (85 p16m
(plus (minus p1) (minus p4))) (83 p16m (plus (minus p1) (
minus p4))) (81 p16m (plus (minus p1) (minus p4))) (31 p5m (
plus (minus p1) (minus p4))) (29 p5m (plus (minus p1) (minus
p4))) (23 p10m (plus (minus p1) (minus p4))) (21 p10m (plus
(minus p1) (minus p4))) (19 p10m (plus (minus p1) (minus p4)
)) (17 p10m (plus (minus p1) (minus p4))) (15 p10m (plus (
minus p1) (minus p4))) (13 p10m (plus (minus p1) (minus p4))
)) ((plus p2 p3 p4) (236 p20m (plus (minus p1) (minus p5)))
(234 p20m (plus (minus p1) (minus p5))) (232 p20m (plus (
minus p1) (minus p5))) (230 p20m (plus (minus p1) (minus p5)
)) (228 p20m (plus (minus p1) (minus p5))) (226 p20m (plus (
minus p1) (minus p5))) (224 p20m (plus (minus p1) (minus p5)
)) (222 p20m (plus (minus p1) (minus p5))) (220 p20m (plus (
minus p1) (minus p5))) (218 p20m (plus (minus p1) (minus p5)
)) (216 p20m (plus (minus p1) (minus p5))) (214 p20m (plus (
minus p1) (minus p5))) (212 p20m (plus (minus p1) (minus p5)
)) (210 p20m (plus (minus p1) (minus p5))) (208 p20m (plus (
minus p1) (minus p5))) (206 p20m (plus (minus p1) (minus p5)
)) (204 p20m (plus (minus p1) (minus p5))) (202 p20m (plus (
minus p1) (minus p5))) (200 p20m (plus (minus p1) (minus p5)
)) (198 p20m (plus (minus p1) (minus p5))) (196 p20m (plus (
minus p1) (minus p5))) (112 p4m (plus (minus p1) (minus p5))
) (110 p4m (plus (minus p1) (minus p5))) (104 p16m (plus (
minus p1) (minus p5))) (102 p16m (plus (minus p1) (minus p5)
)) (100 p16m (plus (minus p1) (minus p5))) (98 p16m (plus (
minus p1) (minus p5))) (96 p16m (plus (minus p1) (minus p5))
) (94 p16m (plus (minus p1) (minus p5))) (92 p16m (plus (
minus p1) (minus p5))) (90 p16m (plus (minus p1) (minus p5))
) (88 p16m (plus (minus p1) (minus p5))) (86 p16m (plus (
minus p1) (minus p5))) (84 p16m (plus (minus p1) (minus p5))
) (82 p16m (plus (minus p1) (minus p5))) (32 p5m (plus (
minus p1) (minus p5))) (30 p5m (plus (minus p1) (minus p5)))
(24 p10m (plus (minus p1) (minus p5))) (22 p10m (plus (minus
p1) (minus p5))) (20 p10m (plus (minus p1) (minus p5))) (18
p10m (plus (minus p1) (minus p5))) (16 p10m (plus (minus p1)
(minus p5))) (14 p10m (plus (minus p1) (minus p5)))) ((plus
p4 p5) (174 p12m (plus (minus p4) (minus p5))) (173 p12m (
plus (minus p4) (minus p5)))) ((plus p2 p3) (216 p12m (plus
p2 p3)) (215 p12m (plus p2 p3))))$
 
nsum:='236$
 
nallterm:='236$
 
;end;
 
