| OCR Text |
Show procedure qroupConstraints( ObjectList1 ConstraintList ); begin acalar ComponantLiat, ComponantGroupLiat, GroupLiet , DependentGroups; for each Constraint in ConetraintLiat do i~ not Constraint->Mark then push ( findComponant ( Constraint I nil ) 1 ComponentList ) ; for each Component in ComponentList do ) : ObjectList := union ( labelComponent Component, ObjectList ) ; Component := first Component; push( Component->Groupid, ComponentGroupList computeP~aeO~Count ObjectLiat; for each Group in propaqatePremises(ObjectList, nil) do if not member( Group, ComponentGroupList ) then push( findComponent(Group, nil) , ComponentList ); for each Component in ComponentList do ( ) end; DependentGroups := nil; for each Constraint in Component do ( for each Object in Constraint->ConstrainedObjects do DependentGroups := union( Object->PremiseOfSet, DependentGroups ) ; Constraint->Mark := nil } ; Component :• first Component; Component :• Component->Groupid; Component->Dependanta :• delete ( Component, DependantGroupa 52 |
