void ada_read_homotopy
( char* start_file, char* target_file, \
PolySys& start_sys, PolySys& target_sys, PolySolSet& sols)
{
int fail;
std::cout << target_file << " " << strlen(target_file) << std::endl;
std::cout << start_file << " " << strlen(start_file) << std::endl;
fail = read_quaddobl_target_system_from_file
(strlen(target_file), target_file);
ada_read_sys(0,target_sys);
fail = read_quaddobl_start_system_from_file(strlen(start_file),start_file);
ada_read_sys(0,start_sys);
ada_read_sols(start_sys, sols);
}
int named_input_files ( void )
{
int n, fail, len;
char inputfile[80];
int mode = 7;
/* reading target system : 0 for standard, 1 for double double,
2 for quad double, 3 for multiprecision
reading start system : 4 for standard, 5 for double double,
6 for quad double, 7 for multiprecision */
if(mode < 4) printf("\nReading the target system from file ...\n");
if(mode > 3) printf("\nReading the start system from file ...\n");
printf("Give the file name : "); scanf("%s", inputfile);
n = (int) strlen(inputfile);
if(mode == 0)
{
printf("\n... test reading in standard doubles ...\n");
fail = read_standard_target_system_from_file(n, inputfile);
fail = copy_container_to_target_system();
printf("\nThe system read :\n"); fail = write_standard_target_system();
}
else if(mode == 1)
{
printf("\n... test reading in double doubles ...\n");
fail = read_dobldobl_target_system_from_file(n, inputfile);
fail = copy_dobldobl_container_to_target_system();
printf("\nThe system read :\n"); fail = write_dobldobl_target_system();
}
else if(mode == 2)
{
printf("\n... test reading in quad doubles ...\n");
fail = read_quaddobl_target_system_from_file(n, inputfile);
fail = copy_quaddobl_container_to_target_system();
printf("\nThe system read :\n"); fail = write_quaddobl_target_system();
}
else if(mode == 3)
{
printf("\n... test reading in multiprecision ...\n");
fail = read_multprec_target_system_from_file(80, n, inputfile);
fail = copy_multprec_container_to_target_system();
printf("\nThe system read :\n"); fail = write_multprec_target_system();
}
else if(mode == 4)
{
printf("\n... test reading in standard doubles ...\n");
fail = read_standard_start_system_from_file(n, inputfile);
fail = copy_container_to_start_system();
printf("\nThe system read :\n"); fail = write_standard_start_system();
fail = solcon_number_of_solutions(&len);
printf("\nNumber of start solutions in container : %d\n", len);
}
else if(mode == 5)
{
printf("\n... test reading in double doubles ...\n");
fail = read_dobldobl_start_system_from_file(n, inputfile);
fail = copy_dobldobl_container_to_start_system();
printf("\nThe system read :\n"); fail = write_dobldobl_start_system();
fail = solcon_number_of_dobldobl_solutions(&len);
printf("\nNumber of start solutions in container : %d\n", len);
}
else if(mode == 6)
{
printf("\n... test reading in quad doubles ...\n");
fail = read_quaddobl_start_system_from_file(n, inputfile);
fail = copy_quaddobl_container_to_start_system();
printf("\nThe system read :\n"); fail = write_quaddobl_start_system();
fail = solcon_number_of_quaddobl_solutions(&len);
printf("\nNumber of start solutions in container : %d\n", len);
}
else
{
printf("\n... test reading in multiprecision ...\n");
fail = read_multprec_start_system_from_file(80, n, inputfile);
fail = copy_multprec_container_to_start_system();
printf("\nThe system read :\n"); fail = write_multprec_start_system();
fail = solcon_number_of_multprec_solutions(&len);
printf("\nNumber of start solutions in container : %d\n", len);
}
return 0;
}
