搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  SASTEST.zip
资料下载链接地址: https://bbs.pinggu.org/a-2110675.html
本附件包括：
  • cost.sas7bdat
  • resource.sas7bdat
附件大小:
请问本人代码哪里出了问题？
原题目如下：（注意自行修改逻辑库）

表1
劳动力(hrs) 金属(kg) 木材(m^3) 售价(元)
桌子 2 1 3 94
椅子 1 1 3 79
书柜 3 1 4 125
床 2 1 4 109

其中劳动力表示完成一件产品单位劳动力所需要花费的小时数(hours)。
下表给出了单位劳动力和原材料的成本，
表2
劳动力(hrs) 金属(kg) 木材(m^3)
成本(元) 14 20 11
可用量 225 117 420

其中可用量表示在一天中该公司三种资源的可以使用的最大量。
问题1. 假设该公司所有的产品能够完全售罄，请问该公司如何安排一天中各个产品的数量，才能使其利润达到最大化？运用SAS中OR模块或者自编SAS程序求解此问题。


本人的代码如下，附件中有数据：
  1. proc optmodel;
  2. /*declare sets and parameters*/
  3. set <str> PRODUCT;
  4. set <str> RESOURCE;
  5. numPrice{PRODUCT};
  6. numCost{RESOURCE};
  7. numAvailable{RESOURCE};
  8. numRequirement{PRODUCT,RESOURCE};
  9. /*read data*/
  10. read data test.Cost into RESOURCE=[Resource] Cost Available=Amount_Available;
  11. read data test.Resource into PRODUCT=[Item] Price=Selling_price {r in RESOURCE}<Requirement[Item,r]=col(r)>;
  12. /*declare variables*/
  13. var X{PRODUCT};
  14. impvar Amount_used{r in RESOURCE}=SUM{p in PRODUCT}Requirement[p,r]*X[p];
  15. impvar TotalRevenue=SUM{p in PRODUCT}X[p]*Price[p];
  16. impvar TotalCost=SUM{r in RESOURCE}Amount_used[r]*Cost[r];
  17. /*declare constraints*/
  18. con Usage{r in RESOURCE}: Amount_used[r]<=Available[r];
  19. /*declare objection function*/
  20. max Obj=TotalRevenue-TotalCost;
  21. solve with MILP;
  22. expand;
  23. print {p in PRODUCT}X[p];
  24. quit;
复制代码


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2025-12-30 17:11