int Laurent_input_output_on_files ( void ) { int fail,rc; fail = syscon_read_Laurent_system(); printf("\nThe system in the container : \n"); fail = syscon_write_Laurent_system(); fail = solve_Laurent_system(&rc,0); /* not silent by default */ printf("\nThe root count : %d\n",rc); printf("\nThe solutions :\n"); fail = solcon_write_solutions(); return fail; }
int standard_interactive_Laurent_input_output ( void ) { int n,fail,k,nc,i,rc,len,nbtasks; char ch,p[800]; printf("\nGive the number of polynomials in the system : "); scanf("%d",&n); fail = syscon_initialize_number_of_standard_Laurentials(n); printf("\nReading %d polynomials, ",n); printf("terminate each with ; (semicolon)...\n"); for(k=1; k<=n; k++) { printf("-> polynomial %d : ",k); ch = getchar(); /* skip previous newline symbol */ read_poly(&nc,p); /* printf(" p[%d] = ",k); for(i=0; i<nc; i++) printf("%c",p[i]); printf("\n"); */ fail = syscon_store_standard_Laurential(nc,n,k,p); } printf("The system in the container : \n"); syscon_write_standard_Laurent_system(); printf("\nGive the number of tasks : "); scanf("%d",&nbtasks); fail = solve_Laurent_system(&rc,0,nbtasks); /* not silent by default */ printf("\nThe root count : %d\n",rc); /* printf("\nThe solutions :\n"); fail = solcon_write_standard_solutions(); */ printf("interactive selection of solutions... \n"); do { printf("\nGive an index to a solution (-1 to exit) : "); scanf("%d",&k); if(k < 0) break; fail = solcon_length_standard_solution_string(k,&len); { char s[len]; fail = solcon_write_standard_solution_string(k,len,s); printf("\nSolution %d : \n%s",k,s); } } while (k >= 0); return fail; }
int Laurent_input_output_on_files ( int precision ) { int fail,rc,nbtasks; if(precision == 0) { fail = syscon_read_standard_Laurent_system(); printf("\nThe system in the container : \n"); fail = syscon_write_standard_Laurent_system(); printf("\nGive the number of tasks : "); scanf("%d",&nbtasks); fail = solve_Laurent_system(&rc,0,nbtasks); /* not silent by default */ printf("\nThe root count : %d\n",rc); printf("\nThe solutions :\n"); fail = solcon_write_standard_solutions(); } else if(precision == 1) { fail = syscon_read_dobldobl_Laurent_system(); printf("\nThe system in the container : \n"); fail = syscon_write_dobldobl_Laurent_system(); printf("\nGive the number of tasks : "); scanf("%d",&nbtasks); fail = solve_dobldobl_Laurent_system(&rc,0,nbtasks); printf("\nThe root count : %d\n",rc); printf("\nThe solutions :\n"); fail = solcon_write_dobldobl_solutions(); } else if(precision == 2) { fail = syscon_read_quaddobl_Laurent_system(); printf("\nThe system in the container : \n"); fail = syscon_write_quaddobl_Laurent_system(); printf("\nGive the number of tasks : "); scanf("%d",&nbtasks); fail = solve_quaddobl_Laurent_system(&rc,0,nbtasks); printf("\nThe root count : %d\n",rc); printf("\nThe solutions :\n"); fail = solcon_write_quaddobl_solutions(); } return fail; }