SHARE
TWEET

Untitled

a guest Jan 10th, 2019 213 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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 );
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top