lingo入门教程之三 --- 文件数据处理

有时候我们想输入的数据是在一个Excel表格或者其他什么形式中，或者说这里数据是实时变化的并不利于直接在程序中输入，耳而应该在程序之外将数据存储，实现数据与程序的分离存储，这个时候就涉及到程序与数据之间的传递

下面简要介绍一个如何进行数据与程序之间的传递

下面的讲解都是基于如下的问题模型

有个城市都需要采购一定量的物品，但每个城市只允许在自身所在的城市采购，城市i的最低需求量为need(i)，最大供应量为supply(i)，单件采购成本为cost(i)，如何采购总成本最小？

模型：设order(i)为城市i的采购量，则问题的数学模型为

1.直接粘贴复制

开始的程序

model:
sets:
cities/!待输入的数据个数;/:cost,need,supply,order;
endsets
min=@sum(cities:cost*order);
@for(cities:need<=order;order<=supply);
data:
cost,need,supply=!待输入的数据值;;
enddata
end

直接利用把存储在Excel或者其他什么地方的数据复制粘贴过来，这里需要注意lingo里面的复制是按列进行的（这里在前面已经讲过），不注意的话可能会发生数据赋值的错乱

粘贴的选项

可以依次试一下上面的不同粘贴格式的效果

下面是我直接在Excel中Ctrl+C与Ctrl+V实现的

model:
sets:
cities/
Seattle	
Detroit	
Chicago	
Denver	

/:cost,need,supply,order;
endsets
min=@sum(cities:cost*order);
@for(cities:need<=order;order<=supply);
data:
cost,need,supply=
12	1600	1700	
28	1800	1900	
15	1200	1300	
20	1000	1100	

;
enddata
end

2.读取ldt数据文件：@file(数据文件名);

这里默认数据文件与程序文件在同一子目录下面，否则找不到数据文件而报错

model:
sets:
cities/@file(数据文件.ldt)/:@file(数据文件.ldt);
endsets
min=@sum(cities:cost*order);
@for(cities:need<=order;order<=supply);
data:
cost=@file(数据文件.ldt);
need=@file(数据文件.ldt);
supply=@file(数据文件.ldt);
enddata
end

如果路径不一致，也可以手动添加，Edit --> insert new object...

应当注意此时的文件类型的ldt格式，

具体里面内容：Seattle,Detroit,Chicago,Denver~cost,need,supply,order~12,28,15,20~1600,1800,1200,1000~1700,1900,1300,1100 注意中间的不同赋值用~间隔

3.存取Excel数据文件：@ole(文件名，元素名);

model:
sets:
cities/@ole('原始数据1.xls','cities')/:cost,need,supply,order;
endsets
min=@sum(cities:cost*order);
@for(cities:need<=order;order<=supply);
data:
cost,need,supply=@ole('原始数据1.xls'); !读取数据文件
@ole('原始数据1.xls','order')=order; !将计算结果存入表格中
enddata
end

对于路径不一致的情况解决方式与上述一样