Subversion Repositories wimsdev

Rev

Rev 7692 | Rev 8560 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 8321
Line 42... Line 42...
42 
slib_liste =
 42 
slib_liste =
43 
slib_cnt = 0
 43 
slib_cnt = 0
44 
slib_matrix=
 44 
slib_matrix=
45 
slib_out=
 45 
slib_out=
46 
!for slib_i  in $slib_point
 46 
!for slib_i  in $slib_point
47 
	!if $slib_i notin $slib_liste
 47 
    !if $slib_i notin $slib_liste
48 
		!read slib/graph/connexcomponent  [$slib_HH], $slib_i
 48 
        !read slib/graph/connexcomponent  [$slib_HH], $slib_i
49 
		slib_liste = !append item $slib_out to $slib_liste
 49 
        slib_liste = !append item $slib_out to $slib_liste
50 
		slib_matrix = !append line $slib_out to $slib_matrix
 50 
        slib_matrix = !append line $slib_out to $slib_matrix
51 
		!advance slib_cnt
 51 
        !advance slib_cnt
52 
		slib_out=
 52 
        slib_out=
53 
	!endif
 53 
    !endif
54 
!next slib_i
 54 
!next slib_i
55 
slib_point2 = !listcomplement of $slib_liste in $slib_vertex
 55 
slib_point2 = !listcomplement of $slib_liste in $slib_vertex
56 
 
 56 
 
57 
!for slib_i  in $slib_point2
 57 
!for slib_i  in $slib_point2
58 
	!if $slib_i notin $slib_liste
 58 
    !if $slib_i notin $slib_liste
59 
		!read slib/graph/connexcomponent  [$slib_HH], $slib_i
 59 
        !read slib/graph/connexcomponent  [$slib_HH], $slib_i
60 
		slib_liste = !append item $slib_out to $slib_liste
 60 
        slib_liste = !append item $slib_out to $slib_liste
61 
		slib_matrix = !append line $slib_out to $slib_matrix
 61 
        slib_matrix = !append line $slib_out to $slib_matrix
62 
		!advance slib_cnt
 62 
        !advance slib_cnt
63 
	!endif
 63 
    !endif
64 
!next slib_i
 64 
!next slib_i
65 
 
 65 
 
66 
 
 66 
 
67 
slib_dessin = xrange -1.5,1.5\
 67 
slib_dessin = xrange -1.5,1.5\
68 
yrange -1.5,1.5
 68 
yrange -1.5,1.5
69 
!for slib_i=1 to $slib_cnt
 69 
!for slib_i=1 to $slib_cnt
70 
	slib_color$slib_i= !declosing $(slib_color$slib_i)
 70 
    slib_color$slib_i= !declosing $(slib_color$slib_i)
71 
	slib_h=!line $slib_i of $slib_matrix
 71 
    slib_h=!line $slib_i of $slib_matrix
72 
	!for slib_k in $slib_h
 72 
    !for slib_k in $slib_h
73 
		slib_name =!item $slib_k of $slib_names
 73 
        slib_name =!item $slib_k of $slib_names
74 
		slib_dessin=$slib_dessin\
 74 
        slib_dessin=$slib_dessin\
75 
		disk cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ), 6,$(slib_color$slib_i)\
 75 
        disk cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ), 6,$(slib_color$slib_i)\
76 
	text black, 1.3*cos(2*pi*$slib_k/$slib_n ),1.3*sin(2*pi*$slib_k/$slib_n ), medium ,$slib_name
 76 
    text black, 1.3*cos(2*pi*$slib_k/$slib_n ),1.3*sin(2*pi*$slib_k/$slib_n ), medium ,$slib_name
77 
	slib_r=!line $slib_k of $slib_H
 77 
    slib_r=!line $slib_k of $slib_H
78 
		!if $slib_or=1
 78 
        !if $slib_or=1
79 
			!for slib_j   in $slib_h
 79 
            !for slib_j   in $slib_h
80 
				slib_u=!item $slib_j of $slib_r
 80 
                slib_u=!item $slib_j of $slib_r
81 
				!if $slib_u=1
 81 
                !if $slib_u=1
82 
					!if $slib_k<>$slib_j
 82 
                    !if $slib_k<>$slib_j
83 
						slib_dessin=$slib_dessin\
 83 
                        slib_dessin=$slib_dessin\
84 
line cos(2*pi*$slib_k/$slib_n),sin(2*pi*$slib_k/$slib_n), cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
 84 
line cos(2*pi*$slib_k/$slib_n),sin(2*pi*$slib_k/$slib_n), cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
85 
					!else
 85 
                    !else
86 
						slib_dessin=$slib_dessin\
 86 
                        slib_dessin=$slib_dessin\
87 
ellipse cos(2*pi*$slib_i/$slib_n )*1.25,sin(2*pi*$slib_i/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
 87 
ellipse cos(2*pi*$slib_i/$slib_n )*1.25,sin(2*pi*$slib_i/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
88 
					!endif
 88 
                    !endif
89 
				!endif
 89 
                !endif
90 
			!next slib_j
 90 
            !next slib_j
91 
		!else
 91 
        !else
92 
			!for slib_j=1 to $slib_n
 92 
            !for slib_j=1 to $slib_n
93 
				slib_r=!line $slib_k of $slib_H
 93 
                slib_r=!line $slib_k of $slib_H
94 
				slib_u=!item $slib_j of $slib_r
 94 
                slib_u=!item $slib_j of $slib_r
95 
				!if $slib_u=1
 95 
                !if $slib_u=1
96 
					!if $slib_k<>$slib_j
 96 
                    !if $slib_k<>$slib_j
97 
						slib_dessin=$slib_dessin\
 97 
                        slib_dessin=$slib_dessin\
98 
arrow $[cos(2*pi*$slib_k/$slib_n )],$[sin(2*pi*$slib_k/$slib_n)], $[(cos(2*pi*$slib_k/$slib_n )-cos(2*pi*$slib_j/$slib_n ))/2+cos(2*pi*$slib_j/$slib_n )],$[(sin(2*pi*$slib_k/$slib_n )-sin(2*pi*$slib_j/$slib_n ))/2+sin(2*pi*$slib_j/$slib_n )],10,$(slib_color$slib_i)\
 98 
arrow $[cos(2*pi*$slib_k/$slib_n )],$[sin(2*pi*$slib_k/$slib_n)], $[(cos(2*pi*$slib_k/$slib_n )-cos(2*pi*$slib_j/$slib_n ))/2+cos(2*pi*$slib_j/$slib_n )],$[(sin(2*pi*$slib_k/$slib_n )-sin(2*pi*$slib_j/$slib_n ))/2+sin(2*pi*$slib_j/$slib_n )],10,$(slib_color$slib_i)\
99 
line cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ),cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
 99 
line cos(2*pi*$slib_k/$slib_n ),sin(2*pi*$slib_k/$slib_n ),cos(2*pi*$slib_j/$slib_n ),sin(2*pi*$slib_j/$slib_n ),$(slib_color$slib_i)
100 
					!else
 100 
                    !else
101 
						slib_dessin=$slib_dessin\
 101 
                        slib_dessin=$slib_dessin\
102 
ellipse cos(2*pi*$slib_k/$slib_n )*1.25,sin(2*pi*$slib_k/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
 102 
ellipse cos(2*pi*$slib_k/$slib_n )*1.25,sin(2*pi*$slib_k/$slib_n )*1.25, 0.5,0.5,$(slib_color$slib_i)
103 
					!endif
 103 
                    !endif
104 
				!endif
 104 
                !endif
105 
			!next slib_j
 105 
            !next slib_j
106 
		!endif
 106 
        !endif
107 
	!next slib_k
 107 
    !next slib_k
108 
!next slib_i
 108 
!next slib_i
109 
 
 109 
 
110 
 
 110 
 
111 
slib_out= $slib_dessin
 111 
slib_out= $slib_dessin
112 
 
 112