SHOW:
|
|
- or go back to the newest paste.
| 1 | - | ! dfrasere |
| 1 | + | ! In de main execution hebben we de mathprograms afgekort met MP, zo is mathprogram 1 MP1, mathprogram 2 MP2, etc... |
| 2 | ||
| 3 | ! Als eerst worden de doelfuncties uitgevoerd en krijgen een tijdslimiet van 10 minuten. Wij hebben voor 10 minuten gekozen omdat Aimms in die tijd een goede oplossing kan vinden en wij dat een acceptabele tijd vinden om te wachten. | |
| 4 | ||
| 5 | empty AllVariables; | |
| 6 | solve solveDoelFunctieMP1 where time_limit = 10; | |
| 7 | solve solveDoelFunctieMP2 where time_limit = 10; | |
| 8 | solve solveDoelFunctieMP3 where time_limit = 10; | |
| 9 | solve solveDoelFunctieMP4 where time_limit = 10; | |
| 10 | ||
| 11 | ! Alle mathprograms worden hier ingelezen naar Aimms vanuit Excel | |
| 12 | ||
| 13 | Spreadsheet::SetActiveSheet( WorkbookName, "MP1" ); | |
| 14 | Spreadsheet::ClearRange(WorkbookName, "A1:D1000"); | |
| 15 | Spreadsheet::AssignParameter( WorkbookName, vGangOpAdres(iHuisadres,iGang), "B1:AAA1000"); | |
| 16 | Spreadsheet::AssignSet( WorkbookName, sHuisadressen, "A1:A1000"); | |
| 17 | Spreadsheet::CloseWorkbook( WorkbookName, 1 ); | |
| 18 | ||
| 19 | Spreadsheet::SetActiveSheet( WorkbookName, "MP2" ); | |
| 20 | Spreadsheet::ClearRange(WorkbookName, "A1:AAA1000"); | |
| 21 | Spreadsheet::AssignParameter( WorkbookName, vBewonerEetVoorgerechtOpAdres(iBewoner,iHuisadres), "A1:AAA1000"); | |
| 22 | Spreadsheet::CloseWorkbook( WorkbookName, 1 ); | |
| 23 | ||
| 24 | Spreadsheet::SetActiveSheet( WorkbookName, "MP3" ); | |
| 25 | Spreadsheet::ClearRange(WorkbookName, "A1:AAA1000"); | |
| 26 | Spreadsheet::AssignParameter( WorkbookName, vBewonerEetHoofdOpAdres(iBewoner,iHuisadres), "A1:AAA1000"); | |
| 27 | Spreadsheet::CloseWorkbook( WorkbookName, 1 ); | |
| 28 | ||
| 29 | Spreadsheet::SetActiveSheet( WorkbookName, "MP4" ); | |
| 30 | Spreadsheet::ClearRange(WorkbookName, "A1:AAA1000"); | |
| 31 | Spreadsheet::AssignParameter( WorkbookName, vBewonerEetNaOpAdres(iBewoner,iHuisadres), "A1:AAA1000"); | |
| 32 | Spreadsheet::CloseWorkbook( WorkbookName, 1 ); | |
| 33 | ||
| 34 | ! Hier worden alle sets ingelezen naar Aimms vanuit Excel | |
| 35 | ||
| 36 | Spreadsheet::SetActiveSheet( WorkbookName, "Sets" ); | |
| 37 | Spreadsheet::ClearRange(WorkbookName, "A1:AAA1000"); | |
| 38 | Spreadsheet::AssignSet( WorkbookName, sHuisadressen, "A1:A1000"); | |
| 39 | Spreadsheet::AssignSet( WorkbookName, sBewoners, "B1:B1000"); | |
| 40 | Spreadsheet::CloseWorkbook( WorkbookName, 1 ); |
