A := sqrt(Re((.6464803077-.4828731949*I)*exp^(.2855687726*I)*exp^(0.1424795999e-1*I)*exp^(-0.1083035759e-1*I)+(1.066544981-.5030764237*I)*exp^(.1817298422*I)*exp^(-0.8880952959e-1*I)*exp^(-0.1194914427e-1*I)+(.8462956280-.4323948377*I)*exp^(.2755693665*I)*exp^(-0.2570149377e-1*I)*exp^(-0.1580945174e-1*I)+(.3136006600-.2050339269*I)*exp^(-.2840946301*I)*exp^(0.2298267104e-1*I)*exp^(-0.7739236852e-2*I)+(.8606597083-.2390807965*I)*exp^(.2555798841*I)*exp^(0.4849482118e-1*I)*exp^(-0.1589203319e-1*I)+(.9734826083-.4337158339*I)*exp^(.2368480659*I)*exp^(-0.5356383478e-1*I)*exp^(-0.2326547043e-1*I)+(.8341697468-.4249840052*I)*exp^(-.2549741932*I)*exp^(-0.5077920436e-1*I)*exp^(-0.1411425575e-1*I)+(0.7017653378e-1-0.5932625233e-1*I)*exp^(.2887601689*I)*exp^(0.1237648676e-1*I)*exp^(-0.6632000322e-2*I)+(.7530344728-.4988229334*I)*exp^(.2341383316*I)*exp^(0.6798723022e-1*I)*exp^(-0.8671735894e-2*I)+(.5835969287-.3757825520*I)*exp^(.2809466233*I)*exp^(-0.2670632306e-1*I)*exp^(-0.9482392321e-2*I)+(.9432290721-.4732459447*I)*exp^(.2248747925*I)*exp^(0.7182276222e-1*I)*exp^(-0.1089451857e-1*I)+(0.5350683910e-1-0.3875519860e-1*I)*exp^(-.2897519488*I)*exp^(-0.8337398508e-2*I)*exp^(-0.6443394213e-2*I)+(.7404311272-.4039738777*I)*exp^(-.2847884280*I)*exp^(0.9925261066e-2*I)*exp^(-0.1304546864e-1*I)+(1.164184063-.5202999261*I)*exp^(-.1555532833*I)*exp^(-0.9614964856e-1*I)*exp^(-0.1263361810e-1*I)+(.9393972738-.4529975363*I)*exp^(-.2631727483*I)*exp^(-0.3343630962e-1*I)*exp^(-0.2083401168e-1*I)+(1.006577109-.4580661876*I)*exp^(-.1897064897*I)*exp^(0.8608801871e-1*I)*exp^(-0.1196963648e-1*I)+(.5376934948-.3252629836*I)*exp^(-.2789036241*I)*exp^(-0.3020802404e-1*I)*exp^(-0.9222164474e-2*I)+(1.124526396-.4437134765*I)*exp^(.1667688641*I)*exp^(0.9330674829e-1*I)*exp^(-0.1214575876e-1*I)+(0.5649088026e-1-0.3919632991e-1*I)*exp^(-.2757076077*I)*exp^(-0.3676823937e-1*I)*exp^(-0.6182907208e-2*I)+(1.025592312-.4273106362*I)*exp^(.2280636153*I)*exp^(0.1520916976e-1*I)*exp^(-0.3913830144e-1*I)+(.7228442512-.4299765936*I)*exp^(.2667814055*I)*exp^(-0.4229535578e-1*I)*exp^(-0.1183325758e-1*I)+(.9463468059-.4689735087*I)*exp^(-.2200770731*I)*exp^(-0.7368680694e-1*I)*exp^(-0.1182873936e-1*I)+(.9529809951-.3211139669*I)*exp^(.2171256862*I)*exp^(0.6763633370e-1*I)*exp^(-0.2143354968e-1*I)+(.5010278535-.3002645096*I)*exp^(-.2615900305*I)*exp^(-0.4973741227e-1*I)*exp^(-0.8128538423e-2*I)+(.6581642236-.3714644191*I)*exp^(-.2804114821*I)*exp^(-0.2445382560e-1*I)*exp^(-0.1179265308e-1*I)+(1.238807260-.4735199298*I)*exp^(.1343727904*I)*exp^(0.9912531441e-1*I)*exp^(-0.1675126722e-1*I)+(.4542251450-.2782883784*I)*exp^(-.2671644415*I)*exp^(0.4506283732e-1*I)*exp^(-0.7577649459e-2*I)+(.6025828982-.3447512681*I)*exp^(-.2794751214*I)*exp^(0.2748871440e-1*I)*exp^(-0.1081144072e-1*I)+(.8293506901-.4313718720*I)*exp^(-.2467650527*I)*exp^(0.5943531271e-1*I)*exp^(-0.1051494983e-1*I)+(.2695818060-.2035257939*I)*exp^(.2812956856*I)*exp^(-0.2876820419e-1*I)*exp^(-0.6785296435e-2*I)+(.8710961498-.4645748273*I)*exp^(.2347998107*I)*exp^(-0.6661509629e-1*I)*exp^(-0.1076254745e-1*I)+(.2921057560-.2033539264*I)*exp^(.2609376114*I)*exp^(-0.5109203652e-1*I)*exp^(-0.6433955232e-2*I)+(.4980294069-.4523605010*I)*exp^(.2743167464*I)*exp^(0.3562746371e-1*I)*exp^(-0.9996888223e-2*I)+(.6813031740-.3728561405*I)*exp^(.2497168264*I)*exp^(0.5648201769e-1*I)*exp^(-0.1195723313e-1*I)+(1.305583032-.5368483684*I)*exp^(0.2234161417e-1*I)*exp^(-.1127181473*I)*exp^(-0.1612299900e-1*I)+(.2403134306-.1671855396*I)*exp^(-.2857648095*I)*exp^(-0.2043549800e-1*I)*exp^(-0.6879024388e-2*I)+(.4841994161-.3144227725*I)*exp^(.2598459876*I)*exp^(-0.5141209787e-1*I)*exp^(-0.7675467686e-2*I)+(1.082408370-.4657749498*I)*exp^(-.1820921108*I)*exp^(-0.7154792302e-1*I)*exp^(-0.3113508911e-1*I)+(.6830730581-.4003947299*I)*exp^(.2386178954*I)*exp^(-0.6551139078e-1*I)*exp^(-0.8522337684e-2*I)+(.4008972987-.3359239594*I)*exp^(.2748485917*I)*exp^(0.3644402742e-1*I)*exp^(-0.8255700708e-2*I)+(0.4070302620e-1-0.2942311106e-1*I)*exp^(-.2861714879*I)*exp^(0.2017231416e-1*I)*exp^(-0.6271439067e-2*I)+(0.5490425922e-1-0.4771885009e-1*I)*exp^(.2880025214*I)*exp^(-0.1515233549e-1*I)*exp^(-0.6483937591e-2*I)+(0.5292642641e-1-0.4323673163e-1*I)*exp^(.2741137488*I)*exp^(0.3866206479e-1*I)*exp^(-0.6120605775e-2*I)+(1.092755113-.4775975432*I)*exp^(-.2002100549*I)*exp^(0.7908715112e-1*I)*exp^(-0.1714448373e-1*I)+(.2884519793-.2641992117*I)*exp^(.2820654735*I)*exp^(0.2735754089e-1*I)*exp^(-0.6998003961e-2*I)+(1.163595931-.4753396435*I)*exp^(-0.7125221404e-1*I)*exp^(0.3387693585e-1*I)*exp^(-0.5930754140e-1*I)+(.3779059772-.2722291787*I)*exp^(.2759867914*I)*exp^(-0.3528066819e-1*I)*exp^(-0.7941026499e-2*I)+(1.320224214-.4847115499*I)*exp^(0.8447698913e-2*I)*exp^(.1131751140*I)*exp^(-0.1579551306e-1*I)+(.2848487451-.2303678452*I)*exp^(.2605397736*I)*exp^(0.5139026964e-1*I)*exp^(-0.6495676598e-2*I)+(.4954474658-.3647366201*I)*exp^(.2576404751*I)*exp^(0.5310661327e-1*I)*exp^(-0.7784875804e-2*I)+(.4270831588-.3360959158*I)*exp^(.2888083959*I)*exp^(-0.4654779304e-2*I)*exp^(-0.9067298527e-2*I)+(.7638474199-.4131782440*I)*exp^(-.2348028031*I)*exp^(-0.6750214030e-1*I)*exp^(-0.8942293325e-2*I)+(.6419178706-.3525533719*I)*exp^(-.2432406719*I)*exp^(0.6274480786e-1*I)*exp^(-0.8490452674e-2*I)+(.2967616722-.2488575083*I)*exp^(.2900668540*I)*exp^(-0.1720531154e-2*I)*exp^(-0.7262745447e-2*I)+(0.4167942709e-1-0.2934346687e-1*I)*exp^(-.2758645361*I)*exp^(0.3665551190e-1*I)*exp^(-0.6045562409e-2*I)+(1.203524693-.5279248706*I)*exp^(.1503155775*I)*exp^(-0.9506118595e-1*I)*exp^(-0.1730383729e-1*I)+(.3136878274-.2035886032*I)*exp^(-.2628916574*I)*exp^(-0.4939569231e-1*I)*exp^(-0.6586084597e-2*I)+(1.280200922-.5406273599*I)*exp^(-0.9276475277e-1*I)*exp^(-.1054633250*I)*exp^(-0.1859375952e-1*I)+(.4784503168-.2995047627*I)*exp^(-.2877347148*I)*exp^(0.1154231284e-1*I)*exp^(-0.8858290895e-2*I)+(.8268166828-.4122907112*I)*exp^(-.2742390746*I)*exp^(0.2318322509e-1*I)*exp^(-0.1795054209e-1*I)+(.7745148237-.3823152931*I)*exp^(.2818398662*I)*exp^(0.1423407703e-1*I)*exp^(-0.1481056291e-1*I)+(.3489757029-.2266111824*I)*exp^(-.2874899422*I)*exp^(-0.1383402567e-1*I)*exp^(-0.8231197289e-2*I)+(1.230082248-.4904824775*I)*exp^(-0.9781793130e-1*I)*exp^(.1022922772*I)*exp^(-0.2230645914e-1*I)+(.2559615837-.1652861681*I)*exp^(-.2644304158*I)*exp^(0.4813319908e-1*I)*exp^(-0.6429288667e-2*I)+(.1974646446-.1390014773*I)*exp^(-.2889652999*I)*exp^(0.1128370250e-1*I)*exp^(-0.6786332122e-2*I)+(0.5268307535e-1-0.4499834109e-1*I)*exp^(.2734627066*I)*exp^(-0.3941975476e-1*I)*exp^(-0.6069116124e-2*I))^2+Im((.6464803077-.4828731949*I)*exp^(.2855687726*I)*exp^(0.1424795999e-1*I)*exp^(-0.1083035759e-1*I)+(1.066544981-.5030764237*I)*exp^(.1817298422*I)*exp^(-0.8880952959e-1*I)*exp^(-0.1194914427e-1*I)+(.8462956280-.4323948377*I)*exp^(.2755693665*I)*exp^(-0.2570149377e-1*I)*exp^(-0.1580945174e-1*I)+(.3136006600-.2050339269*I)*exp^(-.2840946301*I)*exp^(0.2298267104e-1*I)*exp^(-0.7739236852e-2*I)+(.8606597083-.2390807965*I)*exp^(.2555798841*I)*exp^(0.4849482118e-1*I)*exp^(-0.1589203319e-1*I)+(.9734826083-.4337158339*I)*exp^(.2368480659*I)*exp^(-0.5356383478e-1*I)*exp^(-0.2326547043e-1*I)+(.8341697468-.4249840052*I)*exp^(-.2549741932*I)*exp^(-0.5077920436e-1*I)*exp^(-0.1411425575e-1*I)+(0.7017653378e-1-0.5932625233e-1*I)*exp^(.2887601689*I)*exp^(0.1237648676e-1*I)*exp^(-0.6632000322e-2*I)+(.7530344728-.4988229334*I)*exp^(.2341383316*I)*exp^(0.6798723022e-1*I)*exp^(-0.8671735894e-2*I)+(.5835969287-.3757825520*I)*exp^(.2809466233*I)*exp^(-0.2670632306e-1*I)*exp^(-0.9482392321e-2*I)+(.9432290721-.4732459447*I)*exp^(.2248747925*I)*exp^(0.7182276222e-1*I)*exp^(-0.1089451857e-1*I)+(0.5350683910e-1-0.3875519860e-1*I)*exp^(-.2897519488*I)*exp^(-0.8337398508e-2*I)*exp^(-0.6443394213e-2*I)+(.7404311272-.4039738777*I)*exp^(-.2847884280*I)*exp^(0.9925261066e-2*I)*exp^(-0.1304546864e-1*I)+(1.164184063-.5202999261*I)*exp^(-.1555532833*I)*exp^(-0.9614964856e-1*I)*exp^(-0.1263361810e-1*I)+(.9393972738-.4529975363*I)*exp^(-.2631727483*I)*exp^(-0.3343630962e-1*I)*exp^(-0.2083401168e-1*I)+(1.006577109-.4580661876*I)*exp^(-.1897064897*I)*exp^(0.8608801871e-1*I)*exp^(-0.1196963648e-1*I)+(.5376934948-.3252629836*I)*exp^(-.2789036241*I)*exp^(-0.3020802404e-1*I)*exp^(-0.9222164474e-2*I)+(1.124526396-.4437134765*I)*exp^(.1667688641*I)*exp^(0.9330674829e-1*I)*exp^(-0.1214575876e-1*I)+(0.5649088026e-1-0.3919632991e-1*I)*exp^(-.2757076077*I)*exp^(-0.3676823937e-1*I)*exp^(-0.6182907208e-2*I)+(1.025592312-.4273106362*I)*exp^(.2280636153*I)*exp^(0.1520916976e-1*I)*exp^(-0.3913830144e-1*I)+(.7228442512-.4299765936*I)*exp^(.2667814055*I)*exp^(-0.4229535578e-1*I)*exp^(-0.1183325758e-1*I)+(.9463468059-.4689735087*I)*exp^(-.2200770731*I)*exp^(-0.7368680694e-1*I)*exp^(-0.1182873936e-1*I)+(.9529809951-.3211139669*I)*exp^(.2171256862*I)*exp^(0.6763633370e-1*I)*exp^(-0.2143354968e-1*I)+(.5010278535-.3002645096*I)*exp^(-.2615900305*I)*exp^(-0.4973741227e-1*I)*exp^(-0.8128538423e-2*I)+(.6581642236-.3714644191*I)*exp^(-.2804114821*I)*exp^(-0.2445382560e-1*I)*exp^(-0.1179265308e-1*I)+(1.238807260-.4735199298*I)*exp^(.1343727904*I)*exp^(0.9912531441e-1*I)*exp^(-0.1675126722e-1*I)+(.4542251450-.2782883784*I)*exp^(-.2671644415*I)*exp^(0.4506283732e-1*I)*exp^(-0.7577649459e-2*I)+(.6025828982-.3447512681*I)*exp^(-.2794751214*I)*exp^(0.2748871440e-1*I)*exp^(-0.1081144072e-1*I)+(.8293506901-.4313718720*I)*exp^(-.2467650527*I)*exp^(0.5943531271e-1*I)*exp^(-0.1051494983e-1*I)+(.2695818060-.2035257939*I)*exp^(.2812956856*I)*exp^(-0.2876820419e-1*I)*exp^(-0.6785296435e-2*I)+(.8710961498-.4645748273*I)*exp^(.2347998107*I)*exp^(-0.6661509629e-1*I)*exp^(-0.1076254745e-1*I)+(.2921057560-.2033539264*I)*exp^(.2609376114*I)*exp^(-0.5109203652e-1*I)*exp^(-0.6433955232e-2*I)+(.4980294069-.4523605010*I)*exp^(.2743167464*I)*exp^(0.3562746371e-1*I)*exp^(-0.9996888223e-2*I)+(.6813031740-.3728561405*I)*exp^(.2497168264*I)*exp^(0.5648201769e-1*I)*exp^(-0.1195723313e-1*I)+(1.305583032-.5368483684*I)*exp^(0.2234161417e-1*I)*exp^(-.1127181473*I)*exp^(-0.1612299900e-1*I)+(.2403134306-.1671855396*I)*exp^(-.2857648095*I)*exp^(-0.2043549800e-1*I)*exp^(-0.6879024388e-2*I)+(.4841994161-.3144227725*I)*exp^(.2598459876*I)*exp^(-0.5141209787e-1*I)*exp^(-0.7675467686e-2*I)+(1.082408370-.4657749498*I)*exp^(-.1820921108*I)*exp^(-0.7154792302e-1*I)*exp^(-0.3113508911e-1*I)+(.6830730581-.4003947299*I)*exp^(.2386178954*I)*exp^(-0.6551139078e-1*I)*exp^(-0.8522337684e-2*I)+(.4008972987-.3359239594*I)*exp^(.2748485917*I)*exp^(0.3644402742e-1*I)*exp^(-0.8255700708e-2*I)+(0.4070302620e-1-0.2942311106e-1*I)*exp^(-.2861714879*I)*exp^(0.2017231416e-1*I)*exp^(-0.6271439067e-2*I)+(0.5490425922e-1-0.4771885009e-1*I)*exp^(.2880025214*I)*exp^(-0.1515233549e-1*I)*exp^(-0.6483937591e-2*I)+(0.5292642641e-1-0.4323673163e-1*I)*exp^(.2741137488*I)*exp^(0.3866206479e-1*I)*exp^(-0.6120605775e-2*I)+(1.092755113-.4775975432*I)*exp^(-.2002100549*I)*exp^(0.7908715112e-1*I)*exp^(-0.1714448373e-1*I)+(.2884519793-.2641992117*I)*exp^(.2820654735*I)*exp^(0.2735754089e-1*I)*exp^(-0.6998003961e-2*I)+(1.163595931-.4753396435*I)*exp^(-0.7125221404e-1*I)*exp^(0.3387693585e-1*I)*exp^(-0.5930754140e-1*I)+(.3779059772-.2722291787*I)*exp^(.2759867914*I)*exp^(-0.3528066819e-1*I)*exp^(-0.7941026499e-2*I)+(1.320224214-.4847115499*I)*exp^(0.8447698913e-2*I)*exp^(.1131751140*I)*exp^(-0.1579551306e-1*I)+(.2848487451-.2303678452*I)*exp^(.2605397736*I)*exp^(0.5139026964e-1*I)*exp^(-0.6495676598e-2*I)+(.4954474658-.3647366201*I)*exp^(.2576404751*I)*exp^(0.5310661327e-1*I)*exp^(-0.7784875804e-2*I)+(.4270831588-.3360959158*I)*exp^(.2888083959*I)*exp^(-0.4654779304e-2*I)*exp^(-0.9067298527e-2*I)+(.7638474199-.4131782440*I)*exp^(-.2348028031*I)*exp^(-0.6750214030e-1*I)*exp^(-0.8942293325e-2*I)+(.6419178706-.3525533719*I)*exp^(-.2432406719*I)*exp^(0.6274480786e-1*I)*exp^(-0.8490452674e-2*I)+(.2967616722-.2488575083*I)*exp^(.2900668540*I)*exp^(-0.1720531154e-2*I)*exp^(-0.7262745447e-2*I)+(0.4167942709e-1-0.2934346687e-1*I)*exp^(-.2758645361*I)*exp^(0.3665551190e-1*I)*exp^(-0.6045562409e-2*I)+(1.203524693-.5279248706*I)*exp^(.1503155775*I)*exp^(-0.9506118595e-1*I)*exp^(-0.1730383729e-1*I)+(.3136878274-.2035886032*I)*exp^(-.2628916574*I)*exp^(-0.4939569231e-1*I)*exp^(-0.6586084597e-2*I)+(1.280200922-.5406273599*I)*exp^(-0.9276475277e-1*I)*exp^(-.1054633250*I)*exp^(-0.1859375952e-1*I)+(.4784503168-.2995047627*I)*exp^(-.2877347148*I)*exp^(0.1154231284e-1*I)*exp^(-0.8858290895e-2*I)+(.8268166828-.4122907112*I)*exp^(-.2742390746*I)*exp^(0.2318322509e-1*I)*exp^(-0.1795054209e-1*I)+(.7745148237-.3823152931*I)*exp^(.2818398662*I)*exp^(0.1423407703e-1*I)*exp^(-0.1481056291e-1*I)+(.3489757029-.2266111824*I)*exp^(-.2874899422*I)*exp^(-0.1383402567e-1*I)*exp^(-0.8231197289e-2*I)+(1.230082248-.4904824775*I)*exp^(-0.9781793130e-1*I)*exp^(.1022922772*I)*exp^(-0.2230645914e-1*I)+(.2559615837-.1652861681*I)*exp^(-.2644304158*I)*exp^(0.4813319908e-1*I)*exp^(-0.6429288667e-2*I)+(.1974646446-.1390014773*I)*exp^(-.2889652999*I)*exp^(0.1128370250e-1*I)*exp^(-0.6786332122e-2*I)+(0.5268307535e-1-0.4499834109e-1*I)*exp^(.2734627066*I)*exp^(-0.3941975476e-1*I)*exp^(-0.6069116124e-2*I))^2):