Return to fault1.c CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/fault1.c, Revision 1.2

1.1       maekawa     1: /* callasir.c */
                      2: char *KasirKanExecuteString(char *s) {
                      3:   FNODE expr;
                      4:   Obj val;
                      5:   int n;
                      6:   char *ans;
                      7:   s="fctr(x^50-100*x^49+4900*x^48-156800*x^47+3684800*x^46-67800320*x^45+1017004800*x^44-12785203200*x^43+137440934400*x^42-1282782054400*x^41+10518812846080*x^40-76500457062400*x^39+497252970905600*x^38-2907017368371200*x^37+15365663232819200*x^36-73755183517532160*x^35+322678927889203200*x^34-1290715711556812800*x^33+4732624275708313600*x^32-15941471244491161600*x^31+49418560857922600960*x^30-141195888165493145600*x^29+372243705163572838400*x^28-906332499528699084800*x^27+2039248123939572940800*x^26-4241636097794311716864*x^25+8156992495758291763200*x^24-14501319992459185356800*x^23+23823597130468661657600*x^22-36146147370366245273600*x^21+50604606318512743383040*x^20-65296266217435797913600*x^19+77539316133205010022400*x^18-84588344872587283660800*x^17+84588344872587283660800*x^16-77337915312079802204160*x^15+64448262760066501836800*x^14-48771658304915190579200*x^13+33370081998099867238400*x^12-20535435075753764454400*x^11+11294489291664570449920*x^10-5509506971543692902400*x^9+2361217273518725529600*x^8-878592473867432755200*x^7+279552150776001331200*x^6-74547240206933688320*x^5+16205921784116019200*x^4-2758454771764428800*x^3+344806846470553600*x^2-28147497671065600*x+1125899906842624);";
                      8:   printf("1.\n");
                      9:   exprparse(0,s,&expr);
                     10:   printf("2.\n");
                     11:   /* OMIT */
                     12: }
                     13:
                     14: /* k2.c */
                     15: main() {
                     16: /* OMIT */
                     17: #ifdef CALLASIR
                     18:   GC_init();
                     19:   KasirKanAsirInit();
1.2     ! ohara      20:   printf("%s\n",KasirKanExecuteString((char *)NULL)); exit(0);
1.1       maekawa    21: #endif
                     22:
                     23: /* OMIT */
                     24: }
                     25:
                     26:
                     27:
                     28:
                     29: