| 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 |
|
Quelle read_relations.c Sprache: C |
|||||||||
|
/****************************************************************************
** *A read_relations.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" /* read defining relations and store each relation as a word */ void read_relations(struct pcp_vars *pcp) { register int *y = y_address; register int relp = pcp->relp; register int ndrel = pcp->ndrel; register int k, l; register int type; register int length; register int disp = 0; /* read and store side l of defining relation k; each side of a defining relation is stored with its length followed by its exponent followed by the base relator */ for (k = 1; k <= ndrel; ++k) { for (l = 1; l <= 2; ++l) { type = l; ++relp; read_word(stdin, disp, type, pcp); /* note length of relation */ length = abs(y[pcp->lused + disp + 1]); /* an zero exponent signifies a trivial relation */ if (y[pcp->lused + disp + 2] == 0) { y[pcp->lused + disp + 1] = 1; length = 1; } y[relp] = pcp->lused + 1; pcp->lused += length + 1; } } pcp->gspace = pcp->lused + 1; } ¤ Dauer der Verarbeitung: 0.13 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28