欧拉回路与二分图匹配.docVIP

欧拉回路：给定一个无向图，找出一条经过每条边有且仅有一次的路径，这条路径就叫做欧拉路径。如果这条路径的起点和终点是同一个点的话，这条路径就叫做欧拉回路。 定理1：无向图G具有一条欧拉路，当且仅当G是连通的，且有不超过两个奇度定点。 推论：无向图G具有一条欧拉回路，当且仅当G是连通的，且所有定点的度数都为偶数。 欧拉回路算法： procedure finc_circuit(node i); {递归找圈} {Circuitpos表示当前的输出序列长度，circuit表示输出路径} if node I 没有邻接点 then begin circuit(circuitpos)=node I; {加入序列} circuitpos=circuitpos+1; end else while (node i有邻接点) do begin delete_edges(node j, node i); {删除边（I,j）} find_circuit(node j);{继续递归找圈} end; circuit(circuitpos)=node I {加入序列} circuitpos=circuitpos+1 procedure ouler circuitpos=0; {初始化} finc_circuit(node 1); {递归求解}const maxn=100; var e,_a,_b, {e表示边数} nsequence,i,j,n, {nsequence记录输出序列的长度} dep:integer; {dep为栈指针} ok:boolean; map:array[0..maxn,0..maxn] of integer; {记录无向图} stack,sequence:array[0..maxn*maxn] of integer; {栈，输出序列} begin fillchar(map,sizeof(map),0); assign(input,oula.in); reset(input); read(n,e); for i:=1 to e do begin {以边的方式读入} read(_a,_b); inc(map[_a,_b]); end; dep:=1; stack[1]:=1; nsequence:=0; while dep0 do begin j:=stack[dep]; ok:=false; for i:=1 to n do if map[j,i]0 then begin {是否存在邻接点} dec(map[j,i]); dec(map[i,j]); ok:=true; inc(dep); stack[dep]:=i; {入栈} break; end; if not ok then begin inc(nsequence); sequence[nsequence]:=stack[dep]; {加入输出序列} dec(dep); end; end; for i:=1 to nsequence do write(sequence[i], ); writeln; end. 递归程序： const maxn=100; var e,a,b,nsequence,i,j,n:integer; map:array[0..maxn,0..maxn] of integer; sequence:array[0..maxn*maxn] of integer; procedure recursion(location:integer); var ok:boolean; i:integer; begin ok:=false; for i:=1 to n do if map[location,i]0 then begin dec(map[location,i]); dec(map[i,location]); ok:=true; recursion(i); end; if not ok then begin