Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/GAP/pkg/anupq/src/   (Algebra von RWTH Aachen Version 4.15.1©)  Datei vom 28.7.2025 mit Größe 1 kB image not shown  

Quelle  step_range.c   Sprache: C

 
/****************************************************************************
**
*A  step_range.c                ANUPQ source                   Eamonn O'Brien
**
*Y  Copyright 1995-2001,  Lehrstuhl D fuer Mathematik,  RWTH Aachen,  Germany
*Y  Copyright 1995-2001,  School of Mathematical Sciences, ANU,     Australia
**
*/


#include "pq_defs.h"
#include "pcp_vars.h"
#include "pga_vars.h"

/* find the range of permitted step sizes */

void step_range(int k,
                int *lower_step,
                int *upper_step,
                int ***auts,
                struct pga_vars *pga,
                struct pcp_vars *pcp)
{
   /* the k-initial segment subgroup must include those
      generators previously fixed */

   k = MAX(k, pga->fixed);

   /* find the rank of the characteristic closure of
      k-initial segment subgroup of the p-multiplicator */

   pga->q = close_subgroup(k, auts, pga, pcp);

   /* what is the rank of the relative nucleus? */
   pga->r = MIN(pga->q, pga->nuclear_rank);

   /* is the rank of the subgroup < nuclear rank? */
   if (pga->q < pga->nuclear_rank)
      *lower_step =
          MAX(pga->fixed, pga->step_size + pga->q - pga->nuclear_rank);
   else
      *lower_step = pga->step_size;

   *upper_step = MIN(pga->step_size, pga->q);
}

82%


¤ Dauer der Verarbeitung: 0.12 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland






Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.