帮忙运行一个非常简单的lingo程序

wenchao · 发表于 2005-9-11 05:00:52

<

>各位哥哥姐姐们,这有一个非常简单的lingo程序,但因为我校只给配试用版,变量过多,无法运行出结果.但比赛在即,实需要结果做结果分析,希望好心的ggjj帮帮我们运行一下,把答案发到网上,不胜感谢了!!!!!!!!!
<

>[em07]
<

>model: sets: year/1..5/:s,m,p,q,f,d,e,z; old/1..12/; td/1..5/:a; double(year,old):b; land(year,td):l; endsets data: b=10,10,10,10,10,10,10,10,10,10,10,10, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ; a=1.1,0.9,0.8,0.65,0.7; enddata <a href="mailtmax=@sum(year(i):z(i" target="_blank" >max=@sum(year(i):z(i</A>)); @for(year(i)

sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*408.5-20*s(i)+q(i)+f(i)-m(i)-p(i)-d(i)=z(i)); @for(year(i):s(i)=p(i)*1.1); @sum(old(j)|j#ge#3#and#j#le#12:b(2,j))=@sum(old(j)|j#ge#3#and#j#le#12:b(1,j))*0.98; @sum(old(j)|j#ge#3#and#j#le#12:b(3,j))=(@sum(old(j)|j#ge#3#and#j#le#12:b(2,j))+s(1)*0.9975)*0.98; @sum(old(j)|j#ge#3#and#j#le#12:b(4,j))=(@sum(old(j)|j#ge#3#and#j#le#12:b(3,j))+s(2)*0.9975)*0.98; @sum(old(j)|j#ge#3#and#j#le#12:b(5,j))=(@sum(old(j)|j#ge#3#and#j#le#12:b(4,j))+s(3)*0.9975)*0.98; @for(year(i):p(i)=@if(@sum(old(j):b(i,j))#gt#160,1,0)*(@sum(old(j):b(i,j))*240-14400)+@if(@sum(old(j):b(i,j))#gt#160,0,1)*@sum(old(j):b(i,j))*150); @for(year(i):s(i)=@if((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14)#gt#5500,1,0)*((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14-5500)*1.8+6000)+@if((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14)#gt#5500,0,1)*6000); @for(year(i)

sum(td(k)|k#le#4:l(i,k)*a(k))=e(i);); @for(year(i):q(i)=@if(e(i)#lt#0.6*@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)),1,0)*(e(i)-@sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*0.6)*90+@if(e(i)#lt#0.6*@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)),0,1)*(e(i)-@sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*0.6)*75); @for(year(i):f(i)=@if(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5)#lt#0,1,0)*(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5))*70+@if(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5)#lt#0,0,1)*(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5))*50); 20000*(1.1)^5-d(1)*(1.1)^4-d(2)*(1.1)^3-d(3)*(1.1)^2-d(4)*(1.1)=d(5); @for(year(i):z(i)>0); (<a href="mailt120-@sum(old(j):b(5,j)))/120 target="_blank" >=0.5">120-@sum(old(j):b(5,j)))/120>=0.5</A>; (@sum(old(j):b(5,j))-120)/120<=0.75; end

wenchao · 发表于 2005-9-11 05:04:12

<

>model: sets: year/1..5/:s,m,p,q,f,d,e,z; old/1..12/; td/1..5/:a; double(year,old):b; land(year,td):l; endsets data: b=10,10,10,10,10,10,10,10,10,10,10,10, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ; a=1.1,0.9,0.8,0.65,0.7; enddata <a href="mailtmax=@sum(year(i):z(i" target="_blank" >max=@sum(year(i):z(i</A>)); @for(year(i)

sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*408.5-20*s(i)+q(i)+f(i)-m(i)-p(i)-d(i)=z(i)); @for(year(i):s(i)=p(i)*1.1); @sum(old(j)|j#ge#3#and#j#le#12:b(2,j))=@sum(old(j)|j#ge#3#and#j#le#12:b(1,j))*0.98; @sum(old(j)|j#ge#3#and#j#le#12:b(3,j))=(@sum(old(j)|j#ge#3#and#j#le#12:b(2,j))+s(1)*0.9975)*0.98; @sum(old(j)|j#ge#3#and#j#le#12:b(4,j))=(@sum(old(j)|j#ge#3#and#j#le#12:b(3,j))+s(2)*0.9975)*0.98; @sum(old(j)|j#ge#3#and#j#le#12:b(5,j))=(@sum(old(j)|j#ge#3#and#j#le#12:b(4,j))+s(3)*0.9975)*0.98; @for(year(i):p(i)=@if(@sum(old(j):b(i,j))#gt#160,1,0)*(@sum(old(j):b(i,j))*240-14400)+@if(@sum(old(j):b(i,j))#gt#160,0,1)*@sum(old(j):b(i,j))*150); @for(year(i):s(i)=@if((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14)#gt#5500,1,0)*((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14-5500)*1.8+6000)+@if((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14)#gt#5500,0,1)*6000); @for(year(i)

sum(td(k)|k#le#4:l(i,k)*a(k))=e(i);); @for(year(i):q(i)=@if(e(i)#lt#0.6*@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)),1,0)*(e(i)-@sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*0.6)*90+@if(e(i)#lt#0.6*@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)),0,1)*(e(i)-@sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*0.6)*75); @for(year(i):f(i)=@if(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5)#lt#0,1,0)*(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5))*70+@if(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5)#lt#0,0,1)*(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5))*50); 20000*(1.1)^5-d(1)*(1.1)^4-d(2)*(1.1)^3-d(3)*(1.1)^2-d(4)*(1.1)=d(5); @for(year(i):z(i)>0); (<a href="mailt120-@sum(old(j):b(5,j)))/120 target="_blank" >=0.5">120-@sum(old(j):b(5,j)))/120>=0.5</A>; (@sum(old(j):b(5,j))-120)/120<=0.75; end

donms · 发表于 2005-9-11 07:36:33

<

>(<a href="http://www.shumo.com/bbs/mailt120-@sum(old(j):b(5,j)))/120%20target=" target="_blank" >=0.5">120-@sum(old(j):b(5,j)))/120>=0.5</A>;这一行有编译错误
<

>试着改成(<a href="mailt120-@sum(old(j):b(5,j)))/120 target="_blank" >=0.5" _blank?>120-@sum(old(j):b(5,j)))/120>=0.5</A>;之后，运行无可行解！

blue123456 · 发表于 2005-9-11 17:44:37

(<a href="http://www.shumo.com/bbs/mailt120-@sum(old(j):b(5,j)))/120%20target=" target="_blank" >=0.5" _blank?>120-@sum(old(j):b(5,j)))/120>=0.5</A>;这一行还是有错误

吉林数学人 · 发表于 2005-9-12 04:22:26

<

>我们的程序改了，帮忙运行这个，谢谢啊
<

>model: sets: year/1..5/:s,d,e,z,g,x; old/1..12/; td/1..5/:a; double(year,old):b; land(year,td):l; endsets data: b=10,10,10,10,10,10,10,10,10,10,10,10, ,9,10,10,10,8,10,10,10,10,10,10, , ,10,10,10,8,8,10,10,10,10,10, , , ,10,10,8,8,8,10,10,10,10, , , , ,10, ,8,8,8,10,10,10; a=1.1,0.9,0.8,0.65,0.7; enddata <a href="mailtmax=@sum(year(i)

sum(old(j) target="_blank" >max=@sum(year(i)

sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*408.5-20*s(i)+q+f-m-p-d(i</A>)); b(3,2)=b(2,1)*0.95; b(4,2)=b(3,1)*0.95; b(5,2)=b(4,1)*0.95; b(3,2)*0.95=b(4,3); b(3,2)*0.95=b(5,4); b(4,2)*0.95=b(5,3); b(5,6)=10-@sum(old(j)|j#ge#3:b(4,j)*0.02); s(1)=b(2,1); s(2)=b(3,1); s(3)=b(4,1); s(4)=b(5,1); s(5)=0; @for(year(i):g(i)=@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)*1.1)); @for(year(i)|i#le#4:s(i)<=g(i)/2); <a href="mailtp=@sum(year(i)

if(@sum(old(j):b(i,j))#gt#160,1,0)*(@sum(old(j):b(i,j))*240-14400)+@if(@sum(old(j):b(i,j))#gt#160,0,1)*@sum(old(j):b(i,j))*150" target="_blank" >p=@sum(year(i):@if(@sum(old(j):b(i,j))#gt#160,1,0)*(@sum(old(j):b(i,j))*240-14400)+@if(@sum(old(j):b(i,j))#gt#160,0,1)*@sum(old(j):b(i,j))*150</A>); <a href="mailtm=@sum(year(i):@if((b(i,1)*10+b(i,2)*10+@sum(old(j) target="_blank" >m=@sum(year(i):@if((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14)#gt#5500,1,0)*((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14-5500)*1.8+6000)+@if((b(i,1)*10+b(i,2)*10+@sum(old(j)|j#ge#3:b(i,j))*42+@sum(td(k)|k#le#4:l(i,k)*4)+l(i,5)*14)#gt#5500,0,1)*6000</A>); @for(year(i):@sum(td(k)|k#le#4:l(i,k)*a(k))=e(i);); <a href="mailtq=@sum(year(i):@if(e(i)#lt#(0.6*@sum(old(j) target="_blank" >q=@sum(year(i):@if(e(i)#lt#(0.6*@sum(old(j)|j#ge#3#and#j#le#12:b(i,j))),1,0)*(e(i)-@sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*0.6)*90+@if(e(i)#lt#(0.6*@sum(old(j)|j#ge#3#and#j#le#12:b(i,j))),0,1)*(e(i)-@sum(old(j)|j#ge#3#and#j#le#12:b(i,j))*0.6)*75</A>); <a href="mailtf=@sum(year(i):@if(l(i,5)*1.5-(@sum(old(j) target="_blank" >f=@sum(year(i):@if(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5)#lt#0,1,0)*(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5))*70+@if(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5)#lt#0,0,1)*(l(i,5)*1.5-(@sum(old(j)|j#ge#3#and#j#le#12:b(i,j)))*a(5))*50</A>); (<a href="mailt120-@sum(old(j):b(5,j)))/120 target="_blank" >=0.5">120-@sum(old(j):b(5,j)))/120>=0.5</A>; (@sum(old(j):b(5,j))-120)/120<=0.75; @for(year(i):x(i)=@if(d(i)#gt#0,1,0)); 20000*(1.1)^(x(1)+x(2)+x(3)+x(4)+x(5))-d(1)*(1.1)^(x(2)+x(3)+x(4)+x(5))-d(2)*(1.1)^(x(3)+x(4)+x(5))-d(3)*(1.1)^(x(4)+x(5))-d(4)*(1.1)^(x(5))=d(5); end

physics0 · 发表于 2005-9-15 21:27:53

我帮你算算看啊

asdfg4 · 发表于 2005-9-14 19:38:04

请把你的题目发在网上，或许我可以帮你

skAzurina · 发表于 2006-11-10 06:51:16

难道，你不能找个破解版的lingo用用？

		自动登录	找回密码
密码			注-册-帐-号