基于最近插入法的企业配送路线优化

《基于最近插入法的企业配送路线优化》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、INTINTINTINTINTINTINTINTDECIMAL(19,4)DECIMAL(19,4)DECIMAL(19,4)DECIMAL(19,4)DECIMAL(19z4)DECIMAL(19,4)DECIMAL(19,4)DECIMAL(19,4)DECIMAL(19,4)基于最近插入法的企业配送路线优化DECLARE@tempOTABLE(corpidINT,TcountDECIMAL(19,4))DECLARE@templTABLE(LcorpidINT,RcorpidINT^distanceDECIMAL(19,4))DECLARE@temp

2、2TABLE(LcorpidINT,RcorpidINTJdistanceDECIMAL(19,4))DECLARE@temp3TABLE(CarNumINT,TloadDECIMAL(19,4)^distanceDECIMAL(19,4))DECLARE@temp4TABLE(CarNumINT,LcorpidINT,RcorpidINT,TcountDECIMAL(19Z4)^distanceDECIMAL(19,4),numINT)DECLARE@temp6TABLE(corpidINT)DECLARE@temp7TABLE(corpidINT)DE

3、CLARE@temp8TABLE(CarNumINT,LcorpidINT,RcorpidINT,TcountDECIMAL(19,4)JdistanceDECIMAL(19,4),numINT)DECLARE@count,@countl,@count2,@count3,@corpid,@Lcorpid,@Rcorpid,@CarNum,@Tload,@Tcount,@Tdistanee,@Tdistancel,@num,@Lnum,@Rnum,@Tcounsum,@TloadsumSET@count=0SET@countl=50-门店及配送数量WHILE

4、@count<=@countlBEGININSERTINTO@temp0SELECT@count-门店编号,30+RAND()*30-RAND()*100■■门店配送量SET@count=@count+lEND-车辆信息SET@count2=1WHILE@count2<=10BEGININSERTINTO@temp3SELECT@count2,300•■车辆负载,300-车辆里程限制SET@count2=@count2+lEND••店间距WHILE@count>=0BEGINSET@countl=50WHILE@countl>=0BEGININSERTIN

5、TO@templSELECTtl.corpid,t2.corpid,30+RAND()*30-RAND()*100“店间距FROM@temp0tl,@temp012WHEREtl.corpid

6、CT@Tcounsum=SUM(tO.Tcount)FROM@tempOtOSELECT@Tloadsum=SUM(t3.Tload)FROM@temp313IF@Tcounsum>@TloadsumBEGINSELECT'超出车辆负载范围'ENDSET@Tcounsum=0SET@Tloadsum=0-从获取到中心最小距离门店开始SELECTTOP1@corpid=t2.Rcorpid,@Lcorpid=0,@Rcorpid=0,@CarNum=t3.CarNum,@Tdistanee=t3.TdistanceFROM@temp212,@tempOt,@

7、temp3t3WHEREt.Tcount0BEGIN-将门店信息插入线路配送表INSERTINTO@temp4-左节点SELECT@CarNum,@Lcorpid,@corpid,tO.Tcount,t2

8、.Tdistanee,@LnumFROM@tempOtO,@tem