model_server/gedge/src/bico.cxx
/*-----------------------------------------------------------------------------------------*
 *  GET_BICO_COMPONENTS zerteilt einen ungerichteten Graphen in seine zweifach zusammen-   *
 *  hngenden Komponenten.                                                                 *
 *-----------------------------------------------------------------------------------------*/
GET_BICO_COMPONENTS zerteilt einen ungerichteten Graphen in seine zweifach zusammen
hngenden Komponenten.
GET_BICO_COMPONENTS zerteilt einen ungerichteten Graphen in seine zweifach zusammen hngenden Komponenten .
BICO_COMP*  SEARCH_BICO( BICO_COMP *BC )
{
    ARTI_LIST        *AL;
    BICO_LIST        *BL;
    if ( BC->n == nil  ||  BC->flag ) return( nil );
    BC->flag = true;
    if ( BC->n > 2 ) return( BC );
    for ( AL = BC->AL; AL != nil; AL = AL->next )
        for ( BL = AL->AP->BL; BL != nil; BL = BL->next ) {
            BC = SEARCH_BICO( BL->BC );
            if ( BC != nil  &&  BC->n > 2 ) return( BC );
	}
    return( nil );
}
BICO_COMP * SEARCH_BICO ( BICO_COMP * BC ) { ARTI_LIST * AL ; BICO_LIST * BL ; if ( BC -> n == nil || BC -> flag ) return ( nil ) ; BC -> flag = true ; if ( BC -> n > 2 ) return ( BC ) ; for ( AL = BC -> AL ; AL != nil ; AL = AL -> next ) for ( BL = AL -> AP -> BL ; BL != nil ; BL = BL -> next ) { BC = SEARCH_BICO ( BL -> BC ) ; if ( BC != nil && BC -> n > 2 ) return ( BC ) ; } return ( nil ) ; }
GET_BICO_COMPONENTS zerteilt einen ungerichteten Graphen in seine zweifach zusammen
  hngenden Komponenten.
GET_BICO_COMPONENTS zerteilt einen ungerichteten Graphen in seine zweifach zusammen hngenden Komponenten .