void ConvertTrips::Execute (void)
{
ConvertTrip_Itr group;
//---- compile user scripts ----
Compile_Scripts ();
//---- read the network ----
Data_Service::Execute ();
//---- generate the zone map ----
Zone_Location ();
//---- zone summary data ----
if (zone_sum_flag) {
org_in.assign (zone_map.size (), 0);
des_in.assign (zone_map.size (), 0);
org_out.assign (zone_map.size (), 0);
des_out.assign (zone_map.size (), 0);
}
//---- check the parking lots ----
if (parking_array.size () > 0) {
Parking_Check ();
}
//---- process group data ----
Show_Message (1);
for (group = convert_group.begin (); group != convert_group.end (); group++) {
group->Read_Diurnal ();
if (group->Factor_Flag ()) group->Read_Factors (zone_equiv);
if (group->Mode () == TRANSIT_MODE || group->Mode () == RIDE_MODE ||
group->Mode () == WALK_MODE || group->Mode () == BIKE_MODE) continue;
if (veh_type_map.find (group->Veh_Type ()) == veh_type_map.end ()) {
Error (String ("Vehicle Type %d was Not Found in the Vehicle Type Flle") % group->Veh_Type ());
}
}
if (hhold_id <= max_hh_in) hhold_id = 100 * ((max_hh_in / 100) + 1);
//---- process the tour file ----
if (tour_flag) {
Tour_Processing ();
}
if (hhold_id <= max_hh_in) hhold_id = 100 * ((max_hh_in / 100) + 1);
//---- process trip files ----
for (group = convert_group.begin (); group != convert_group.end (); group++) {
if (group->Trip_Flag ()) {
if (group->Mode () >= 0 && group->Mode () < MAX_MODE && !select_mode [group->Mode ()]) continue;
if (select_purposes && !purpose_range.In_Range (group->Purpose ())) continue;
Read_Trip_Table (group);
}
}
//---- new diurnal file ----
if (diurnal_flag) {
Diurnal_Results ();
}
//---- summarize the results ----
if (trip_copy > 0 || hhold_copy > 0 || veh_copy > 0) {
Break_Check (5);
Write (2, "Number of Trip Records Copied = ") << trip_copy;
Write (1, "Number of Household Records Copied = ") << hhold_copy;
Write (1, "Number of Vehicle Records Copied = ") << veh_copy;
}
Break_Check (10);
Write (2, "Total Number of Tours Read = ") << tot_tours;
Write (1, "Total Number of Trips Read = ") << tot_trips;
Write (1, "Total Number of Trips Written = ") << new_trips;
if (tot_add > 0.5) {
Write (1, String ("Total Number of Trips Added = %.0lf") % tot_add);
}
if (tot_del > 0.5) {
Write (1, String ("Total Number of Trips Deleted = %.0lf") % tot_del);
}
Write (1, "Number of Trips Not Allocated = ") << tot_errors;
Write (2, "Number of Households Generated = ") << new_hholds;
Write (1, "Number of Persons Generated = ") << new_persons;
Write (1, "Number of Vehicles Generated = ") << new_vehicles;
if (problem_flag) {
if (problem_file->Num_Trips () > 0) {
problem_file->Print_Summary ();
}
}
if (zone_sum_flag) {
Zone_Sum_Report ();
}
//---- end the program ----
Report_Problems (tot_trips);
Exit_Stat (DONE);
}
void ConvertTours::Execute (void)
{
int hhold1, vehicle1;
File_Group *group;
//---- compile the tour group script ----
if (script_flag) {
Show_Message (1);
script_base.File_ID ("GROUP");
script_base.Dbase_Format (BINARY);
script_base.File_Access (MODIFY);
script_base.Add_Field ("GROUP_OUT", INTEGER, 2, 0, -1, true);
script_base.Add_Field ("GROUP_IN", INTEGER, 2, 0, -1, true);
script_base.Add_Field ("DIURNAL_OUT", INTEGER, 2, 0, -1, true);
script_base.Add_Field ("DIURNAL_IN", INTEGER, 2, 0, -1, true);
script_base.Add_Field ("MODE_OUT", INTEGER, 2, 0, -1, true);
script_base.Add_Field ("MODE_IN", INTEGER, 2, 0, -1, true);
script_base.Add_Field ("WORK_CODE", INTEGER, 2, 0, -1, true);
if (!group_script.Set_Files (2, &tour_file_db, &script_base)) {
Error ("Initializing Tour Group Script Files");
}
group_script.Random_Seed (random_org.Seed () + 4);
if (Report_Flag (SCRIPT_REPORT)) {
Header_Number (SCRIPT_REPORT);
if (!Break_Check (10)) {
Print (1);
Page_Header ();
}
}
if (!group_script.Compile (&script_file, Report_Flag (SCRIPT_REPORT))) {
Error ("Compiling Tour Group Script");
}
if (Report_Flag (STACK_REPORT)) {
Header_Number (STACK_REPORT);
group_script.Print_Commands (Report_Flag (STACK_REPORT));
}
Header_Number (0);
}
Show_Message (1);
for (group = file_group.First (); group != NULL; group = file_group.Next ()) {
Time_Processing (group);
}
//---- read the network ----
Demand_Service::Execute ();
//---- generate the zone map ----
Zone_Location ();
//---- check the parking lots ----
Parking_Check ();
//---- check the vehicle types ----
if (Demand_File_Flag (VEHICLE_TYPE)) {
for (group = file_group.First (); group != NULL; group = file_group.Next ()) {
if (veh_type_data.Get (group->Type (), group->SubType ()) == NULL) {
Error ("Vehicle Type %d-%d was Not Found in the Vehicle Type Flle", group->Type (), group->SubType ());
}
}
}
//---- read the household list ----
if (hhlist_flag) {
Read_HHList ();
}
//---- process each trip table -----
if (hhold_id <= max_hh_in) hhold_id = 100 * ((max_hh_in / 100) + 1);
if (vehicle_id <= max_veh_in) vehicle_id = 100 * ((max_veh_in / 100) + 1);
hhold1 = hhold_id;
vehicle1 = vehicle_id;
//---- travel time skim ----
if (skim_flag) {
Skim_Processing ();
}
//---- read the tour file ----
Tour_Processing ();
//---- diurnal allocation file ----
if (diurnal_flag) {
Diurnal_Results ();
}
//---- summarize the results ----
if (trip_copy > 0 || hhold_copy > 0 || pop_copy > 0 || veh_copy > 0) {
Break_Check (5);
Write (2, "Number of Trip Records Copied = %d", trip_copy);
Write (1, "Number of Household Records Copied = %d", hhold_copy);
Write (1, "Number of Person Records Copied = %d", pop_copy);
Write (1, "Number of Vehicle Records Copied = %d", veh_copy);
}
Break_Check (10);
Write (2, "Total Number of Tours Read = %d", tot_trips);
Write (1, "Total Number of Trips Written = %d", num_trip);
if (tot_add > 0.5) {
Write (1, "Total Number of Trips Added = %.0lf", tot_add);
}
if (tot_del > 0.5) {
Write (1, "Total Number of Trips Deleted = %.0lf", tot_del);
}
Write (1, "Number of Trips Not Allocated = %d", tot_errors);
Write (2, "Number of Households Generated = %d", nhhold);
Write (1, "Number of Persons Generated = %d", nperson);
Write (1, "Number of Vehicles Generated = %d", (vehicle_id - vehicle1));
Exit_Stat (DONE);
}