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