/*pcc2.js加Court Chemin版权所有（C）2002-2006 Jean-Paul DavalanDijkstra算法的自适应a la recherche de TOUS les plus courts chemens系列：-多恩·拉隆古尔·杜加科特切姆（donne la longueur du）-多恩·恩·谢明·勒（donne un chemin le）plus court（d’un sommet X quelconque vers un autre sommte Y quelconq）*/var textbase=“#orienté\n#sommets\n\n#arcs\n”，textgraphee=“”；var方向=0；var nsomets，sommets=新数组（），rgsommets=新数组，dimpairs，som=新数组（）；ceuler=0；dg=新阵列（），dp=新阵列；抹去=1；var dist=new Array（），sl=new数组（），prec=new阵列（）；函数efface（）{document.frm.area.value=“”；//文本库；抹去=1；nsomets=0；方向=0；dimpairs=0；}函数litmatrice（）{方向=0；textgraphee=文档.frm.area.value；变量s；var a=textgraphee.split（/\n*\s*-{3200}/g）；document.frm.area.value=a[0]；s=a[0]替换（/^（\s+\n？）*/g，“”）；s=s.replace（/（\s+\n？$）+/g，“”）；var lignes=s.split（/\n+/g）；var nlignes=直线长度；var eta=0；var v；方向=1；对于（i=0；i<nlignes；i++）{lignes[i]=对齐[i].replace（/^\s*/，“”）；if（eta==0&&lignes[i].charAt（0）==“#”&&lignes[i].indexOf（“东方”）=-1 && 对齐[i].indexOf（“非”）=-1){方向=0；}}对于（i=0；i= 0) {//if（matdist[rgsommets[u[0]]*nsomets+1*rgsommetes[u[1]]]==空||//matdist[rgsommets[u[0]]*nsomets+1*rgsommetes[u[1]]>v）matdist[rgsommets[u[0]]*nsomets+1*rgsommetes[u[1]]]=v；} if（方向==0）{matr[rgsommets[u[1]]*nsomets+1*rgsommetes[u[0]]]=1；如果（v>=0）{//if（matdist[rgsommets[u[1]]*nsomets+1*rgsommetes[u[0]]]==空||//matdist[rgsommets[u[1]]*nsomets+1*rgsommetes[u[0]]>v）matdist[rgsommets[u[1]]*nsomets+1*rgsommetes[u[0]]]=v；}} } }}}函数cherche（）{//if（effacement==0）retruve（）的情况下；litmatrice（）；if（nsomets！=0）{affichematrice（）；document.frm.area.value+=“\n-------------------------------------------------------------------\n”；pcourt（）；抹去=0；}}/* */函数pcourt（）{变量i，j，k，a，b，s，p，r，t，mini，test，curr，m；//var dist=new Array（），sl=new数组（），prec=new阵列（）；对于（i=0；i-->