LinGo与Excel文件进行数据读取与写入实例

来源：互联网 2023-02-20 18:18:00 132

LINGO与Excel文件之间的数据传递的两种方法,分别是:LINGO通过@OLE函数实现与Excel文件传递数据,使用@OLE函数既可以从Excel文件中导入数据,也能把计算结果写入Excel文件。

1.从Excel文件中导入数据

@OLE函数只能用在模型的集合定义段、数据段和初始段.使用格式可以分成以下几种类型:

(1)变量名1,变量名2=@OLE('文件名’,’数据块名称1',’数据块名称2’);从指定的Excel文件读取数据,文件名可以包括扩展名(.XLS),还可以包含完整的路径目录名称,如果没有指定路径,则默认路径是LINGO的当前工作目录.该文件中定义了两个数据块,其中的数据分别用来对变量1和变量2初始化.如果变量名是属性,则对应数据块应该是文本格式表示的集合成员名,如果变量名是集合的属性,则对应数据块应该是一系列数字,并且,若变量是初始集合的属性,则对应的数据块应当是一列数据,若变量是二维衍生集合的属性,则对应数据块应当是二维矩形数据区域.@OLE函数无法读取三维数据区域。

(2)变量名1,变量名2=@OLE(’文件名’,’数据块名称’);左边的两个变量必须定义在同一个集合中,@OLE的参数仅指定一个数据块名称,该数据块应当包含类型相同的两列数据,第一列赋值给变量1,第二列赋值给变量2.

(3)变量名1,变量名2=@OLE(’文件名’);没有指定数据块名称,默认使用Excel文件中与变量名同名的数据块。

2.将计算结果导出到Excel文件中使用@OLE函数能把计算结果写入Excel文件,使用格式也有以下三种:

(1)@OLE(‘文件名’,’数据块名称1’,’数据块名称2’)=变量名1,变量名2;将两个变量的内容分别写入指定文件的两个预先已经定义了名称的数据块,数据块的长度(大小)不应小于变量所包含的数据,如果数据块原来有数据,则@OLE写入语句运行后原来的数据将被新的数据覆盖。

(2)@OLE(‘文件名’,’数据块名称’)=变量名1,变量名2;两个变量的数据写人同一数据块(不止1列),先写变量1,变量2写入另外1列.

(3)@OLE(‘文件名’)=变量名1,变量名2;不指定数据块的名称,默认使用Excel文件中与变量名同名的数据块.

下面举例说明函数@OLE的用法,使用软件为Lingo17和Excel2016。

LinGo与Excel文件进行数据读取与写入实例

工具/原料

Lingo17
EXCEL2016

方法/步骤

[例1]某化工集团公司有6 个化工厂，每个化工厂的位置（用平面坐标a, b 表示，距离单位为km）及化工原料日用量m t 由表给出. 目前有两个炼油厂位于A(5, 1)，B(2, 7)，日产化工原料量各有20t. 假设从炼油厂到化工厂之间均有直线道路相连.试制订每天的供应计划，即从A, B 两个炼油厂分别向各化工厂运送多少吨化工原料，使总的运力（吨千米数）最小.

表1 化工厂位置及日用量

LinGo与Excel文件进行数据读取与写入实例

1.问题分析每天两个炼油厂给6 个化工厂各提供多少原料，共需12 个决策变量. 需要满足两方面的约束，一方面要满足各化工厂的需求，另一方面受到炼油厂产量限制. 目标是总运力最小. 计算总运力用到直线距离，所以目标函数不是线性函数，应该建立非线性规划模型.

模型建立

设化工厂的位置为(ai ,bi )，水泥日用量为mi，i 为1,2,......6；炼油厂位置为(xj , y j ) ，日储量为nj,j =1,2；从炼油厂j向化工厂i的运送量为Xij .

目标函数为：

LinGo与Excel文件进行数据读取与写入实例

2.在lingo17编辑器中输入程序源代码:

model:

sets:

CP:gx,gy,m;

Refinery:n,x,y;

c(Refinery,CP):share;

endsets

min=@sum(Refinery(i):

@sum(CP(j):((x(i)-gx(j))^2 (y(i)-gy(j))^2)^0.5*share(i,j)));

@for(CP(j):@sum(Refinery(i):share(i,j))=m(j));

@for(Refinery(i):@sum(CP(j):share(i,j))n(i));

data:gx,gy,m,x,y,n=@ole('d:\data.xls','gx','gy','m','x','y','n');

@ole('d:\data.xls','share')=share;

enddata

end

如图所示:

LinGo与Excel文件进行数据读取与写入实例

4.本例可建立Excel 工作表,文件位置为:d:\data.xls, 打开Excel 2016,在A1:J6,输入数据,请自行根据题意,体会如此输入数据的含义,如图所示:

LinGo与Excel文件进行数据读取与写入实例

4此文章非法爬取自百度经验

5.点击"公式"菜单,选择"定义名称"选项,定义好相应数据域,请自行体会根据程序中以及图表中的变量名称含义与相应数据域名称相关联,将程序变量名称定义的数据域名称已显示在data.xls表中,在程序代码:gx,gy,m,x,y,n=@ole('d:\data.xls','gx','gy','m','x','y','n')中,注意由于excel自行默认赋予属性,所以属性Refinery,CP可以默认不定义,只有六个相应变量名,分别为:'gx','gy','m','x','y','n',其相应变量定义的数据区域名称:'gx':Sheet1!$B$2:$G$2,'gy':Sheet1!$B$3:$G$3,'m':Sheet1!$B$4:$G$4,'n':Sheet1!$H$5:$H$6,'x':Sheet1!$I$5:$I$6,''y':Sheet1!$J$5:$J$6,另外'share'变量名,为需要输出的结果数据区域变量名,'share':=Sheet1!$B$5:$G$6,如图所示:

LinGo与Excel文件进行数据读取与写入实例