农业定价（mpex21）
/***************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称：mpex21*//*标题：农业定价（mpex21）*//*产品：或*//*系统：所有*//*程序：OPTMODEL*//*数据：*//* *//*支持：更新：*//*参考编号：*//*MISC：数学规划示例21*//*示例手册*//* *//***************************************************************//*缺少供应表示无限制*/数据raw_material_data；输入原始10美元。供给；数据线；脂肪600000干物质750000水。;数据product_data；输入产品$Fat DryMatter Water prev_demand prev_price；数据线；牛奶4 9 87 4820000 297黄油80 2 18 320000 720奶酪1 35 30 35 210000 1050奶酪2 25 40 35 70000 815;数据弹性_data；输入i$j$弹性；数据线；牛奶-0.4黄油-2.7奶酪1奶酪1-1.1奶酪2奶酪2-0.4奶酪1奶酪2 0.1奶酪2奶酪1 0.4;过程操作模型；设置RAWS；num供应{RAWS}；将数据raw_material_data读取到RAWS=[raw]供应中；设置＜str＞产品；num prev_demand{产品}；num prev_price{产品}；数量百分比{产品，原料}；将数据product_data读入PRODUCTS=[产品]{RAWS}<percent[product，raw]=col（raw）>prev_demand prev_price；num弹性{产品，产品}init 0；将数据弹性_数据读入[ij]弹性；var价格{产品}>=0；var需求{产品}>=0；最大总收入=总和{产品中的产品}价格[产品]*需求[产品]；产品}中的con Demand_con{i：（需求[i]-prev_Demand[i]）/prev_Demand[i]=产品}弹性[i，j]*中的总和{j（价格[j]-价格[j]）/价格[j]；con Supply_con{raw in RAWS:Supply[raw]ne.}：总和{产品中的产品}（百分比[产品，原料]/100）*需求[产品]<=供应[原始]；con价格索引con：sum{产品中的产品}prev_demand[产品]*价格[产品]<=总和{产品中的产品}prev_demand[产品]*prev_price[产品]；解决；打印价格需求；打印价格索引双精度；用NLP/算法求解=活动集；打印价格需求；打印价格索引双精度；退出；过程操作模型；设置RAWS；num供应{RAWS}；将数据raw_material_data读取到RAWS=[raw]供应中；设置＜str＞产品；num prev_demand{产品}；num prev_price{产品}；数量百分比｛产品，原料｝；将数据product_data读取到PRODUCTS=[product]{RAWS}<percent[product，raw]=col（raw）>prev_demand prev_price；num弹性{产品，产品}init 0；将数据弹性_数据读入[ij]弹性；var价格{产品}>=0；产品中的impvar需求{i}=前需求[i]*（1+产品}中的总和{j弹性[i，j]*（价格[j]-优惠价格[j]）/优惠价格[j]）；最大总收入=总和{产品中的产品}价格[产品]*需求[产品]；产品}中的con Demand_nonnegative{i：需求[i]>=0；con Supply_con{raw in RAWS:Supply[raw]ne.}：总和{产品中的产品}（百分比[产品，原始]/100）*需求[产品]<=供应[原始]；con价格索引con：sum{产品中的产品}prev_demand[产品]*价格[产品]<=总和{产品中的产品}prev_demand[产品]*prev_price[产品]；解决；打印价格需求；打印价格索引双精度；用NLP/soltype=0求解；印刷价格需求；打印价格索引双精度；用NLP/算法求解=活动集；打印价格需求；打印价格索引双精度；退出；