急求一个Fleury

xinzhiyong

急求一个Fleury算法，求高手来个程序

lyyy

网上有一些程序代码。

小旋风假

没有看懂………………

夕夕多

#include <stdio.h>
. ?* V0 o# C; i; [- }, Z#include <string.h>
0 O. n0 }- ^  }2 Q. Y1 Bstruct stack
{int top , node[210];} f; //顶点的堆栈
7 c  G; [+ p3 ]: uint a[201][201]; //图的邻接矩阵
8 A( r* ^% P* Oint n;
void dfs(int x)       //图的深度优先遍历
{int i;
- B( B8 s8 e5 y  ~4 |! s, A7 Cf.top ++; f.node[f.top] = x;
for (i = 1; i <= n; i ++)
" S: p7 F0 u! z2 _4 Q8 Jif (a[i][x] > 0)
1 L! e# w  h3 O3 Z { a[i][x] = 0; a[x][i] = 0;     //删除此边
dfs(i);
# ~) B+ u6 _2 g& ]& ]: O+ Ybreak; }
% H( _# K/ t4 n, I" T" ?/ p}
1 G+ g* T3 l8 @void Euler(int x)     //欧拉路算法
1 ]; K  Z/ V- q{int i , b;
5 P( j7 l* o5 C. Pf.top = 0; f.node[f.top] = x;     //入栈
  \% p. {5 f8 A8 Y+ |( G  `while (f.top >= 0)
{b = 0;
for (i = 1; i <= n; i ++)
2 n/ e) W- p; u* `) dif (a[f.node[f.top]][i] > 0)
4 T5 X. A% @% x2 O; f) w; z{b = 1; break;}
if (b == 0)       //如果没有点可以扩展，输出并出栈
; p7 \8 S" D( D7 T2 W( ~{ printf("%d " , f.node[f.top]);
f.top --;}
5 v+ h' i; X5 }else {f.top --; dfs(f.node[f.top+1]);}        //如果有，就DFS
}
# a4 l: m7 s* k}
1 y/ f; @: r2 k( x1 r: E- _int main()
. [5 ~5 Y; A% b( ?" e{
! ?3 `  {1 v* Lint m , s , t , num , i , j , start;
//input
2 E7 b$ Z5 f" S1 L( h, Rscanf("%d %d" , &n , &m); //n顶点数    m边数
) h. T7 s' z* C2 E/ imemset(a , 0 , sizeof(a));
for (i = 0; i < m; i ++)
) h1 c1 J+ o4 a5 K' G{printf("innput s,t");
" X* e  i& [8 d3 N* D scanf("%d %d" , &s , &t);
' z4 m7 q- j$ q. G9 \0 s* l. [ a[s][t] = 1; a[t][s] = 1;
  @  H7 [+ u4 y9 T1 Y5 X( T8 J}
4 D: w6 D' e" n9 [4 q //判断是否存在欧拉回路
s = 0; start = 1;
+ o; n+ z: b2 H4 s for (i = 1; i <= n; i ++)
' o: ?1 C( s  n, x2 O+ r) Z5 v{num = 0;
$ H: w$ U; K8 a7 N& Qfor (j = 1; j <= n; j ++)
num += a[i][j];
; M% N" A' i1 y6 I if (num % 2 == 1)
0 a& [& h2 J) b1 N# Q6 R{start = i; s ++;}
}
& x5 w. \! ]7 s3 Dif ((s == 0) || (s == 2))
Euler(start);
  V$ K3 ]" U: c# D else printf("No Euler path\n");
getchar(); getchar();
  C, |; q; R# B. wreturn 0; }

parkshinyang

诶  有么有  matlab版的

屋顶风影

没有matlab版本的吗