source: git/Tst/Long/intdet_l.tst @ c2da0a

spielwiese
Last change on this file since c2da0a was b35b93, checked in by Olaf Bachmann <obachman@…>, 26 years ago
This commit was generated by cvs2svn to compensate for changes in r1396, which included commits to RCS files with non-trunk default branches. git-svn-id: file:///usr/local/Singular/svn/trunk@1397 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 12.6 KB
Line 
1// $Id: intdet_l.tst,v 1.1.1.1 1998-04-17 15:07:35 obachman Exp $
2
3//
4// indet_l.tst - long tests for integer determinant.
5//
6
7LIB "tst.lib";
8tst_init();
9tst_ignore("CVS ID  : $Id: intdet_l.tst,v 1.1.1.1 1998-04-17 15:07:35 obachman Exp $");
10
11ring r=0,x,dp;
12
13// some zero matrices
14matrix zero1[100][100];
15det(zero1);
16
17// some singular matrices
18matrix singular1[40][40] =
19  0,899389655,0,0,0,545125421,0,591965874,0,0,822521142,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,925841662,0,0,0,0,0,15427512,0,0,0,479185967,0,0,0,
20  0,0,0,0,0,527034510,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
21  0,0,956091443,37107837,0,0,0,0,0,0,233603489,458368626,880379195,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,361476414,0,0,0,0,0,0,0,0,0,0,0,
22  0,0,0,0,0,0,0,0,945670550,0,0,252826806,251905527,0,83020677,0,0,0,810724321,0,0,0,0,0,0,0,0,0,0,75606228,0,0,289429600,2426850,0,0,0,0,0,0,
23  0,0,0,0,0,0,0,0,0,0,0,0,0,0,10949302,0,0,0,0,0,51706876,0,0,0,0,0,186239261,0,561278433,583189649,0,0,0,0,0,0,0,318572765,0,0,
24  25948588,0,0,0,0,0,0,0,0,5210652,0,0,0,0,0,0,388917350,940143040,0,0,504702663,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
25  430200614,0,634681001,0,0,0,548956228,0,263006793,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,552364835,0,
26  0,0,0,198708583,0,0,449127317,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,585297414,0,0,0,0,0,
27  0,0,0,0,0,0,0,91815123,0,0,0,0,0,0,0,0,410361477,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
28  0,0,0,0,0,691598243,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,769470716,0,0,0,0,0,0,0,
29  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,677755699,818215380,0,0,0,0,0,0,0,0,0,0,182002142,761459510,0,0,
30  0,0,0,690520609,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,579563756,0,9684310,0,287947992,342023629,0,0,0,0,0,0,0,0,0,0,0,0,0,
31  0,0,0,0,0,0,0,662638509,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80842053,0,0,0,0,0,0,0,
32  0,0,0,0,0,0,0,80552892,0,128117020,0,0,0,0,0,310722806,0,446318140,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
33  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,637084102,0,0,0,781286216,0,0,0,
34  0,0,0,244973609,0,0,0,0,0,0,0,0,0,221484471,0,0,0,0,0,0,0,0,121250532,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,257469698,626767712,
35  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,478929101,100429011,0,0,0,0,0,0,0,0,0,0,0,0,459922313,0,0,0,0,0,0,0,0,0,
36  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,157491734,0,0,0,0,0,
37  0,0,0,0,0,0,0,0,786589709,0,0,0,0,0,0,0,0,0,575876535,0,0,0,0,0,0,0,895340635,0,0,0,0,0,0,0,0,0,0,0,0,0,
38  0,0,547830633,0,0,88167599,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
39  838610744,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,50976616,0,0,0,0,0,0,0,0,0,0,0,0,61412897,0,0,0,650163569,
40  0,0,0,0,0,0,796173233,0,0,0,0,0,0,0,0,0,0,0,0,0,0,579937820,0,0,713317646,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
41  0,0,0,604028373,0,0,0,0,0,0,472559585,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,838556878,0,
42  0,0,0,0,0,788469722,422381647,0,0,0,0,0,0,0,0,714424291,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,871529452,0,0,0,0,
43  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,775982430,0,0,0,0,0,0,0,0,0,0,
44  0,0,0,0,0,0,0,0,0,0,0,0,867086999,0,0,0,0,0,0,0,0,0,0,0,0,0,0,450228760,785789381,0,0,370462228,0,902320154,0,0,0,445875401,0,0,
45  0,0,0,0,0,748413074,0,86993093,419984637,0,0,0,0,0,0,0,0,129423209,0,0,0,385577382,0,0,0,0,572271315,0,835615105,0,29923726,0,0,0,0,0,0,0,0,0,
46  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,555629482,0,0,0,0,0,310557910,0,
47  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,699693241,0,0,55267623,127221631,75959162,0,0,96303079,0,0,0,0,0,0,0,0,0,0,
48  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,89463006,0,0,0,0,0,0,0,0,830627859,0,830087865,0,411774524,0,0,0,0,0,0,
49  0,720231947,94497767,0,0,0,0,0,0,0,157953415,57021786,0,0,0,0,0,0,0,0,0,0,439285111,0,116307316,0,0,0,926247383,0,0,0,0,0,0,0,0,0,0,0,
50  166707068,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,904813435,0,0,
51  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,855072409,0,0,0,0,0,0,0,0,0,0,0,0,0,845544306,0,0,0,0,0,899344253,0,0,0,
52  0,0,0,952435936,0,0,0,0,0,0,0,0,0,0,0,570778803,0,0,0,0,0,0,362622375,0,201260149,0,0,0,921988232,0,0,0,0,0,0,0,0,0,0,0,
53  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,476073558,0,0,0,0,0,0,0,704368569,0,0,0,0,0,0,0,0,0,919817702,0,0,0,
54  0,0,0,0,0,675075118,518747313,573972430,0,58305590,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,81185105,0,0,0,97749598,0,0,0,0,0,0,15922557,0,
55  0,0,825697254,321680896,0,0,0,239004046,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,952611602,0,0,0,0,0,0,0,0,0,655736680,644587061,
56  0,0,0,0,0,0,0,0,0,0,0,0,0,288187925,0,0,0,750797768,0,0,0,0,0,0,0,0,113068432,0,10301367,371182480,0,0,8978335,0,0,0,0,0,0,377451841,
57  0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,903334498,0,0,0,0,0,0,0,0,0,0,0,0,0,0,894899069,0,0,0,0,
58  0,0,0,0,0,0,0,0,0,0,0,0,748659058,0,0,0,201547172,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;
59det(singular1*singular1*singular1*singular1*singular1);
60
61// and now for something more serious ...
62matrix serious1[30][30] =
630,6408168,3086691,14610610,-144147418,97023973,1891045,66172212,48611143,77812860,58243967,3436409,52218327,28981425,82144220,-168696325,96891780,-52015182,-43831219,83412200,99895289,0,0,56746301,68870123,67781041,71033065,14143367,-123642174,-171399908,
64-55403228,15110694,2548230,31288158,44966384,5166989,76213065,72532690,82660661,-96672080,66962132,52008016,-93895075,-17221781,-131896390,15965196,77734045,15869514,5218625,80366898,0,74866836,57233024,54514544,-26696912,-70127754,94279999,73016513,3224351,98487378,
65-64181478,45840803,62051609,74654769,81046073,-80715208,0,53559379,0,67024348,-94153967,-175688166,35766706,0,72444979,16179048,0,987782,87401342,20392082,81255370,21303303,-24679950,58449795,0,75503216,0,22397738,0,36334460,
6659995961,81036496,80641043,55360219,56079301,82369982,93939100,26455513,52420146,54611421,-114717307,86271805,46683511,53082422,-10637362,0,58744831,41356008,77027312,55601310,0,-84130230,62780579,99977428,68855470,27462366,-87530262,6324788,74491739,-176442825,
6789441623,85084616,38337552,30215446,83276952,-125345395,33715289,95641443,91919610,67757669,84167074,28536089,-160245958,-95828187,9408071,20600007,99274497,15615301,6256036,26241535,89731535,54354424,50237806,0,58103244,7553770,45057616,48761548,34176488,-122373381,
6888726645,38578908,14340147,0,1031488,14671938,5974159,0,54580570,54846073,49554380,79082918,22708456,0,43085394,74821108,34488306,24267513,97534352,44329980,25651616,-65534174,40569095,82390992,45255933,6071413,-92447518,44202,-10785318,0,
69424862,0,93078766,56446250,53089874,0,61201005,58305659,-163426127,71873157,32016304,0,-18468236,50319860,64835581,76744829,19926650,-60150875,93337931,12354643,6796852,6405700,68595413,94289183,10486184,43822451,55149042,-10973126,52570897,32107260,
7099574505,99623604,-10531575,0,56535425,94000204,-53048775,80889601,0,9504342,5711430,96845538,10941134,15988479,29666186,21547720,-128449560,17925749,-66980967,29242826,71961190,12288752,83331896,79718070,25764637,12581812,32539223,39193921,28834417,4304393,
7121311842,29330887,31723316,32977334,53453153,38154654,36199344,97443488,43178126,90846538,9128739,17062162,29504900,89059801,-13880171,41861959,92457321,67712662,-13361681,-105160972,86641904,3732300,17648135,51547737,38020725,82956791,-17820736,59550656,-15452161,-144745700,
7216020951,-136653511,24997936,-36498895,-135197636,59304442,-126536326,-73418000,8057061,44374127,8223980,-148743374,84745008,72246715,66945451,92408139,0,9710889,18699971,-148440277,-71733667,19763918,0,52716500,54085735,74362780,61447362,60614086,45181953,14555972,
730,29551465,14187585,-93828623,9404641,77130566,-125733423,63862054,81642655,22798611,24731420,44496595,-63121672,38747055,87957012,61078211,92226741,85347096,22546737,-52693098,69254535,26349139,-128631527,-28557978,52242375,-143319616,0,-111899596,38636908,422617,
7472161856,60990008,-30184143,69806743,97713426,-138422432,61092678,12672137,0,38635137,-80505865,45090093,-95088518,0,49234249,85284809,66508563,50210838,96932575,82374174,0,39781843,41819897,0,55406669,60035763,87161787,3634192,18582955,43363739,
7539873807,-86684951,5021608,73067764,53744894,-49828741,-119760890,-91501384,12867923,40939753,-87845369,37811976,60686642,84153063,-64135610,40834269,-80190648,79032499,64210365,11844800,0,52127963,88390018,0,7359016,0,88906889,7629803,8479179,30386399,
76-25407258,26304875,94475947,82142623,7216434,-40880311,-78030234,10083950,55567700,19559629,50534717,42006752,-66250047,75844728,-34801907,-58088752,25188025,81528243,944537,90917245,49854186,82282343,-165027464,80728264,0,86312422,43697413,9684081,15046498,16988324,
7790696066,36038295,17916657,31238818,-68049602,22208581,0,87546928,88466803,-27113705,56014219,-49410106,61030334,77987161,44295092,47495748,-153790979,18447009,60746891,37470727,7931961,70468892,79372272,83371971,31591623,84219706,32809315,36893325,-116111763,7073449,
7815750690,48047155,39787767,-34642575,86791260,-23957851,0,80496293,38769224,11990277,-132800233,15724513,-144430232,93739783,16850497,-19887254,42495296,91646199,-95765033,16081025,9405653,82520950,21050937,42887462,84946672,-88051035,-14880398,-9519254,73465576,75675082,
7969681891,25603920,32342721,85692841,16234355,40410493,40552873,24408407,-67646274,0,14223108,-65147293,90252738,18935932,37359867,0,87862672,28089959,39176838,-33935251,99230754,72865914,60549767,41197522,57474053,-100388679,3435001,73975761,34156429,-119692554,
80591569,70398619,70435942,2852695,0,0,12358753,46348026,-120732477,71038447,99239734,-112456241,-62968349,31935069,31291942,-120169376,-106841258,91722950,94765899,20492078,-155350886,82275303,-95982293,66612768,4335559,27783921,73169844,22950075,33235715,-2117254,
8118342534,78136703,57140534,9735126,2693054,-45591460,32065484,70925706,0,70924121,16972432,-105826281,0,85212414,-60202447,-32011526,85595193,35282586,54118725,9584531,-7168555,0,9460954,47721647,32177403,-35090026,926346,-23166272,70105630,-20650873,
8281974641,27836926,38395000,98389,0,53117226,28894643,93391602,-13454381,-57870335,47184260,0,0,44251377,60557609,45309756,7433758,2326170,19448704,88554858,92275432,7412715,-75916597,15518693,45412960,70060568,-10805320,77365518,-86243950,87154713,
83-112751650,36189057,69911037,1854211,31074979,77890633,22097971,2530944,-28389328,-114616256,76849224,18663786,36173022,83475591,0,65266063,48126973,59727824,22140603,51958611,-115345468,85725263,0,-197310938,0,-137681321,44922992,10748992,78193728,-83640257,
8464494284,26557161,34156772,91923544,81333684,96765167,97080992,43136195,78618048,73809444,41848103,32747942,96766116,-140560714,-26039792,5308362,94823998,91144480,15660746,15688487,55217324,55506484,0,-94504836,57286172,4282631,-107605593,0,7972930,57095895,
8513623035,89026338,-176578948,6460382,54496068,10150939,0,97762323,54827473,3787728,39388166,71424003,-153193816,71619542,34705705,-24202726,84935891,-110443565,0,40778748,54264701,-96935751,61833111,26517035,52252251,42176235,86619361,-54966125,79249763,69588040,
8665862085,98585421,94676351,1687346,54799864,53883831,59889736,99170493,58091960,12633064,6970195,73649684,71712591,66863462,56505831,86941161,62944165,95994190,68519360,99427398,-65389929,70957922,34010498,82140955,79952252,-63344211,0,51527628,41228860,31787117,
8761020323,0,45539594,85564859,0,0,21311304,0,0,87540318,3273907,73487562,57536433,93331605,-25288929,77327784,57398822,-20880883,174634,70882508,47395831,93453561,453096,3742875,49852510,57594144,95717277,-123625315,94668360,0,
880,65453839,12481623,53233803,79278623,0,60569525,48297033,64868764,18756035,49249031,-188952344,46730161,3867521,17863152,52173869,6509306,5848009,-133544561,25506541,69306077,2875909,42073437,-96218772,0,30519624,72632930,43421825,75888481,83152396,
8958788983,51475384,9446314,-18583272,-48787909,-93488681,-74756985,9621516,79075755,-57473695,-67888057,0,12216870,49166486,78017003,37153193,93035237,875470,-1666280,15392468,38897950,2603498,-158544150,31824034,66722229,40545298,83928395,0,19253484,74467517,
9043120738,50375391,-119610272,44562791,38820837,44240634,35749167,-24192749,0,40578710,12068732,46265080,-5096267,39668907,41605829,-107795720,55383751,6743252,90274676,-19729287,15264361,-121677154,5516423,83839978,32849745,0,-152843497,15248362,3274932,90719614,
9113715373,87510173,-68929601,88865603,78149963,61262729,-137305741,-99114446,-51884761,47136988,28306063,92789948,90641951,34005549,-53100694,7625473,20298217,92780854,3707038,28475632,23234776,-32858313,27804908,83822430,11232047,-30563282,0,45767666,17421205,28907130,
9298343278,42122306,5651144,34313086,71701332,-84500543,0,0,64899400,0,0,2374432,5207633,45725773,84651424,85962451,58039658,40821972,22390256,-104894280,59029292,62650665,12246007,29380851,53841117,-62830911,-27357351,-91325571,94332045,855852;
93det(serious1*serious1*serious1*serious1*serious1);
94$
Note: See TracBrowser for help on using the repository browser.