- 在线时间
- 1150 小时
- 最后登录
- 2017-1-14
- 注册时间
- 2013-1-3
- 听众数
- 97
- 收听数
- 0
- 能力
- 0 分
- 体力
- 7367 点
- 威望
- 20 点
- 阅读权限
- 150
- 积分
- 3110
- 相册
- 0
- 日志
- 0
- 记录
- 2
- 帖子
- 1299
- 主题
- 21
- 精华
- 2
- 分享
- 0
- 好友
- 298
TA的每日心情 | 奋斗 2014-3-2 00:26 |
---|
签到天数: 243 天 [LV.8]以坛为家I
|
ckyych,我觉得你提出的这个问题相当经典,以前我没遇到这个问题也没有注意,我现在给出一种不太完美的解决方案,如果你有什么想法欢迎一起讨论交流,以下仅举一个小例子。
程序代码:
MODEL:
SETS:
NUMBERS_1/1..5/:A,B,C,D;
NUMBERS_2/1..4/:E,F,G,H;
ENDSETS
DATA:
A=4,6,7,89,6;
B=3,4,6,45,3;
E=2,5,6,7;
F=67,34,76,99;
@TEXT('SOLUTION.txt')=@WRITE('SOLUTION OF C ARE:',@NEWLINE(1));
@TEXT('SOLUTION.txt')=@WRITEFOR(NUMBERS_1(I):C(I),@NEWLINE(1));
@TEXT('SOLUTION.txt')=@WRITE('SOLUTION OF D ARE:',@NEWLINE(1));
@TEXT('SOLUTION.txt')=@WRITEFOR(NUMBERS_1(I):D(I),@NEWLINE(1));
@TEXT('SOLUTION.txt')=@WRITE('SOLUTION OF G ARE:',@NEWLINE(1));
@TEXT('SOLUTION.txt')=@WRITEFOR(NUMBERS_2(I):G(I),@NEWLINE(1));
@TEXT('SOLUTION.txt')=@WRITE('SOLUTION OF H ARE:',@NEWLINE(1));
@TEXT('SOLUTION.txt')=@WRITEFOR(NUMBERS_2(I):H(I),@NEWLINE(1));
ENDDATA
@FOR(NUMBERS_1(I):C(I)=A(I)-B(I));
@FOR(NUMBERS_1(I):D(I)=A(I)+B(I));
@FOR(NUMBERS_2(I):G(I)=D(I)-E(I));
@FOR(NUMBERS_2(I):H(I)=D(I)+E(I));
END
运行结果为:
SOLUTION OF C ARE:
1
2
1
44
3
SOLUTION OF D ARE:
7
10
13
134
9
SOLUTION OF G ARE:
5
5
7
127
SOLUTION OF H ARE:
9
15
19
141
至于如果想单纯使用@TEXT()函数,我也尝试过,LINGO报错并提示格式错误,内存溢出等。
你也可以查看LINGO的帮助文档关于@TEXT()的说明,Help->Help Topics->索引(N)->输入:text->Writing to Files Using @TEXT()。
如果我的回答有什么错误,欢迎指出并与我交流,谢谢合作! |
|