lingo麻烦帮我看看这个程序吧，意图是q按q与a的比值升序排列，但运行结果不对

Question

model:
sets:
r/1..13/:q,a, b ,c;
endsets
data:
q=179012.5,133885.3,223278.8,107638.74,193289.9,185144.9,172507.7,150129.5,243452.7,129934.3,90214,109389,133043.5;
b=1047,800,1000,530,951,859,520,593,841,533,320,584,590;
enddata
calc:
@for(r(i):a(i)=q(i));!建设用地按人口排序;
@for(r(i):c(i)=b(i));!人口排序;
@for(r(i)|i#le#13:@for(r(j)|j#gt#i:@ifc((a(i)/c(i))#gt#(a(j)/c(j)):t=a(i);a(i)=a(j);a(j)=t)));
endcalc
end