小弟没有学过lingo，多次尝试均以失败告终，希望能有论坛大神帮忙写下代码，不胜感激！

线性规划模型如上图所示，h为任意非负数，为计算方便，我已将(alj-akj)计算出来，自己写的程序总是调试不通，附上代码方便诸位修改，错误之处，请轻拍。。。
model:
Sets:
Wh/w1..w66/:ai;
Vd/v1..v8/:dj;
links(wh,vd):c;
endsets
Data:
c=0.4606,0.861,0.082,0.5999,1.3390,        -0.033,        0.1944,        -0.033
-0.327,        -0.867,        -1.522,        8.1642,        0.4476,        0.1725,        0.0217,        0.0817
0.3911,        -0.42,        0.1668,        5.9499,        0.9115,        -0.001,        0.0528,        -0.012
2.3341,        -3.144,        -0.975,        10.991,        1.5132,        0.1628,        0.0611,        0.0625
-0.459,        -1.310,        0.3448,        17.905,        -0.149,        0.0647,        0.1232,        0.0165
1.4294,        5.2248,        0.2739,        7.3768,        -0.259,        0.0509,        1.5026,        0.0155
-0.002,        -0.011,        0.4586,        17.36,        -0.252,        0.0160,        0.0998,        0.0062
2.0281,        -2.869,        2.6262,        18.996,        -0.706,        0.0475,        0.3815,        0.0016
-0.333,        2.3995,        0.6119,        16.426,        -0.888,        0.0514,        0.9099,        0.0034
-0.416,        -0.279,        0.6500,        24.728,        -1.527,        0.0463,        0.2965,        0.0055
5.2941,        -2.110,        3.2293,        23.371,        0.9042,        0.0907,        0.8190,        0.0377
-0.788,        -1.728,        -1.604,        7.5642,        -0.891,        0.2057,        -0.172,        0.1148
-0.069,        -1.281,        0.0848,        5.35,        -0.427,        0.0319,        -0.141,        0.0203
1.8734,        -4.005,        -1.057,        10.391,        0.1742,        0.1960,        -0.133,        0.0956
-0.920,        -2.171,        0.2628,        17.305,        -1.488,        0.0979,        -0.071,        0.0496
0.9687,        4.3637,        0.1919,        6.7768,        -1.598,        0.0841,        1.3082,        0.0486
-0.463,        -0.872,        0.3766,        16.76,        -1.591,        0.0492,        -0.094,        0.0393
1.5674,        -3.731,        2.5442,        18.396,        -2.045,        0.0808,        0.1870,        0.0347
-0.794,        1.5385,        0.5298,        15.826,        -2.227,        0.0847,        0.7155,        0.0365
-0.877,        -1.140,        0.5680,        24.128,        -2.866,        0.0796,        0.1020,        0.0386
4.8334,        -2.971,        3.1472,        22.771,        -0.434,        0.1239,        0.6245,        0.0708
0.7191,        0.4462,        1.6892,        -2.214,        0.4639,        -0.173,        0.0310,        -0.094
2.6620,        -2.277,        0.5466,        2.8270,        1.0656,        -0.009,        0.0393,        -0.019
-0.131,        -0.443,        1.8671,        9.7416,        -0.597,        -0.107,        0.1014,        -0.065
1.7574,        6.0920,        1.7962,        -0.787,        -0.706,        -0.121,        1.4809,        -0.066
0.3253,        0.8562,        1.9810,        9.1957,        -0.700,        -0.156,        0.0780,        -0.075
2.3560,        -2.002,        4.1486,        10.832,        -1.153,        -0.124,        0.3597,        -0.08
-0.005,        3.2667,        2.1342,        8.2623,        -1.335,        -0.121,        0.8882,        -0.078
-0.088,        0.5880,        2.1724,        16.564,        -1.974,        -0.126,        0.2747,        -0.076
5.6221,        -1.243,        4.7516,        15.206,        0.4566,        -0.081,        0.7972,        -0.043
1.9429,        -2.723,        -1.142,        5.0413,        0.6016,        0.1641,        0.0083,        0.0753
-0.850,        -0.889,        0.1779,        11.955,        -1.061,        0.0660,        0.0704,        0.0292
1.0382,        5.6457,        0.1070,        1.4268,        -1.170,        0.0522,        1.4498,        0.0283
-0.393,        0.4099,        0.2918,        11.41,        -1.164,        0.0173,        0.0470,        0.0189
1.6369,        -2.449,        2.4594,        13.046,        -1.617,        0.0488,        0.3287,        0.0143
-0.724,        2.8204,        0.4450,        10.476,        -1.799,        0.0528,        0.8571,        0.0162
-0.807,        0.1417,        0.4832,        18.778,        -2.438,        0.0476,        0.2437,        0.0182
4.9030,        -1.689,        3.0624,        17.421,        -0.007,        0.0920,        0.7662,        0.0505
-2.793,        1.8340,        1.3205,        6.9145,        -1.662,        -0.098,        0.0621,        -0.046
-0.904,        8.3691,        1.2496,        -3.614,        -1.772,        -0.111,        1.4415,        -0.047
-2.336,        3.1333,        1.4344,        6.3686,        -1.765,        -0.146,        0.0387,        -0.056
-0.306,        0.2743,        3.6020,        8.0053,        -2.219,        -0.115,        0.3204,        -0.06
-2.667,        5.5438,        1.5876,        5.4352,        -2.401,        -0.111,        0.8488,        -0.059
-2.750,        2.8651,        1.6257,        13.737,        -3.040,        -0.116,        0.2354,        -0.057
2.9600,        1.0339,        4.2050,        12.379,        -0.608,        -0.072,        0.7579,        -0.024
1.8890,        6.5351,        -0.070,        -10.52,        -0.109,        -0.013,        1.3794,        -0.001
0.4569,        1.2993,        0.1138,        -0.545,        -0.103,        -0.048,        -0.023,        -0.01
2.4876,        -1.559,        2.2814,        1.0907,        -0.556,        -0.017,        0.2582,        -0.014
0.1258,        3.7098,        0.2670,        -1.479,        -0.738,        -0.013,        0.7867,        -0.013
0.0430,        1.0311,        0.3052,        6.8231,        -1.377,        -0.018,        0.1732,        -0.01
5.7537,        -0.800,        2.8844,        5.4652,        1.0537,        0.0260,        0.6958,        0.0212
-1.432,        -5.235,        0.1847,        9.9831,        0.0064,        -0.034,        -1.402,        -0.009
0.5986,        -8.094,        2.3523,        11.619,        -0.446,        -0.003,        -1.121,        -0.013
-1.763,        -2.825,        0.3379,        9.0496,        -0.629,        0.0005,        -0.592,        -0.012
-1.845,        -5.504,        0.3761,        17.352,        -1.268,        -0.004,        -1.206,        -0.01
3.8647,        -7.335,        2.9553,        15.994,        1.1633,        0.0398,        -0.683,        0.0222
2.0307,        -2.858,        2.1676,        1.6366,        -0.453,        0.0315,        0.2816,        -0.004
-0.331,        2.4105,        0.1532,        -0.933,        -0.635,        0.0354,        0.8101,        -0.002
-0.413,        -0.268,        0.1913,        7.3689,        -1.274,        0.0303,        0.1966,        -0.0007
5.2968,        -2.099,        2.7706,        6.0111,        1.1569,        0.0747,        0.7191,        0.0315
-2.361,        5.2695,        -2.014,        -2.570,        -0.182,        0.0039,        0.5284,        0.0018
-2.444,        2.5907,        -1.976,        5.7323,        -0.821,        -0.001,        -0.084,        0.0039
3.2660,        0.7595,        0.6030,        4.3744,        1.6103,        0.0431,        0.4375,        0.0361
-0.082,        -2.678,        0.0381,        8.3024,        -0.638,        -0.005,        -0.613,        0.002
5.6279,        -4.509,        2.6174,        6.9446,        1.7926,        0.0392,        -0.090,        0.0343
5.7106,        -1.831,        2.5792,        -1.357,        2.4314,        0.0443,        0.5225,        0.0322;
Enddata
Max=@sum(wh(i):ai(i));
@for(wh(i):@sum(vd(j):d(j)*c(i,j))>=ai(i));
@for(vd(j):@sum(wh(i):c(i,j))=1);
@for(wh(i):ai(i)<=0);
@for(vd(j):vd(j)>0);
end