Changeset 80ad5e in git


Ignore:
Timestamp:
Apr 7, 1998, 8:13:57 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd25190065115c859833252500a64cfb7b11e3a50')
Children:
97454d23ed1d5477f8790a863d5d481deacedbcc
Parents:
d86e64ab96a8a8f265a4d1b473857a697f643276
Message:
* hannes: cleanup hdegree.cc


git-svn-id: file:///usr/local/Singular/svn/trunk@1354 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/hdegree.cc

    rd86e64 r80ad5e  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: hdegree.cc,v 1.10 1997-12-15 22:46:23 obachman Exp $ */
     4/* $Id: hdegree.cc,v 1.11 1998-04-07 18:13:57 Singular Exp $ */
    55/*
    66*  ABSTRACT -  dimension, multiplicity, HC, kbase
     
    7373  Exponent_t  mc;
    7474  hexist = hInit(S, Q, &hNexist);
    75   if (!hNexist)
     75  if (hNexist==0)
    7676    return pVariables;
    7777  hwork = (scfmon)Alloc(hNexist * sizeof(scmon));
     
    7979  hpure = (scmon)Alloc((1 + (pVariables * pVariables)) * sizeof(Exponent_t));
    8080  mc = hisModule;
    81   if (!mc)
     81  if (mc==0)
    8282  {
    8383    hrad = hexist;
     
    9090  loop
    9191  {
    92     if (mc)
     92    if (mc!=0)
    9393      hComp(hexist, hNexist, mc, hrad, &hNrad);
    94     if (hNrad)
     94    if (hNrad!=0)
    9595    {
    9696      hNvar = pVariables;
    9797      hRadical(hrad, &hNrad, hNvar);
    9898      hSupp(hrad, hNrad, hvar, &hNvar);
    99       if (hNvar)
     99      if (hNvar!=0)
    100100      {
    101101        memset(hpure, 0, (pVariables + 1) * sizeof(Exponent_t));
     
    119119  Free((ADDRESS)hwork, hNexist * sizeof(scmon));
    120120  hDelete(hexist, hNexist);
    121   if (hisModule)
     121  if (hisModule!=0)
    122122    Free((ADDRESS)hrad, hNexist * sizeof(scmon));
    123123  return pVariables - hCo;
     
    139139    {
    140140      hCo = dn;
    141       for (iv=pVariables; iv; iv--)
    142       {
    143         if (pure[iv])
     141      for (iv=pVariables; iv>0; iv--)
     142      {
     143        if (pure[iv]!=0)
    144144          hInd[iv] = 0;
    145145        else
    146146          hInd[iv] = 1;
    147147      }
    148       if (Nrad)
     148      if (Nrad!=0)
    149149      {
    150150        pn = *rad;
     
    153153        {
    154154          x = var[iv];
    155           if (pn[x])
     155          if (pn[x]!=0)
    156156          {
    157157            hInd[x] = 0;
     
    169169  while(pure[var[iv]]) iv--;
    170170  hStepR(rad, Nrad, var, iv, &rad0);
    171   if (rad0)
     171  if (rad0!=0)
    172172  {
    173173    iv--;
     
    195195  {
    196196    hCo = Npure + 1;
    197     for (x=pVariables; x; x--)
    198     {
    199       if (pure[x])
     197    for (x=pVariables; x>0; x--)
     198    {
     199      if (pure[x]!=0)
    200200        hInd[x] = 0;
    201201      else
     
    265265  Free((ADDRESS)hwork, hNexist * sizeof(scmon));
    266266  hDelete(hexist, hNexist);
    267   if (hisModule)
     267  if (hisModule!=0)
    268268    Free((ADDRESS)hrad, hNexist * sizeof(scmon));
    269269  return Set;
     
    303303  for (iv=pVariables; iv!=0 ; iv--)
    304304  {
    305     if (pure[iv])
     305    if (pure[iv]!=0)
    306306      (*Set)[iv-1] = 0;
    307307    else
     
    331331        {
    332332          x = var[iv];
    333           if (pn[x])
     333          if (pn[x]!=0)
    334334          {
    335335            pure[x] = 1;
     
    350350    loop
    351351    {
    352       if(!pure[var[iv]])
     352      if(pure[var[iv]]==0)
    353353      {
    354354        if(hNotZero(rad, Nrad, var, iv))
     
    360360      }
    361361      iv--;
    362       if (!iv)
     362      if (iv==0)
    363363        return;
    364364    }
    365365  }
    366   while(pure[var[iv]]) iv--;
     366  while(pure[var[iv]]!=0) iv--;
    367367  hStepR(rad, Nrad, var, iv, &rad0);
    368368  iv--;
     
    486486      for (iv=pVariables; iv; iv--)
    487487      {
    488         if (pure[iv])
     488        if (pure[iv]!=0)
    489489          (*Set)[iv-1] = 0;
    490490        else
     
    506506    if (dn > hCo)
    507507    {
    508       if (!Nrad)
     508      if (Nrad==0)
    509509        hCheckIndep(pure);
    510510      else
    511511      {
    512512        pn = *rad;
    513         for (iv = Nvar; iv; iv--)
     513        for (iv = Nvar; iv>0; iv--)
    514514        {
    515515          x = var[iv];
    516           if (pn[x])
     516          if (pn[x]!=0)
    517517          {
    518518            pure[x] = 1;
     
    526526  }
    527527  iv = Nvar;
    528   while(pure[var[iv]]) iv--;
     528  while(pure[var[iv]]!=0) iv--;
    529529  hStepR(rad, Nrad, var, iv, &rad0);
    530530  iv--;
     
    574574  hRadical(hrad, &hNrad, hNvar);
    575575  hSupp(hrad, hNrad, hvar, &hNvar);
    576   if (hNvar)
     576  if (hNvar!=0)
    577577  {
    578578    hCo = hNvar;
     
    582582    hDimSolve(hpure, hNpure, hrad, hNrad, hvar, hNvar);
    583583  }
    584   if (hCo && (hCo < pVariables))
     584  if ((hCo!=0) && (hCo < pVariables))
    585585  {
    586586    hIndMult(hpure, hNpure, hrad, hNrad, hvar, hNvar);
     
    649649  scmon pn;
    650650  scfmon sn;
    651   if (!iv)
     651  if (iv==0)
    652652    return pure[var[1]];
    653   else if (!Nstc)
     653  else if (Nstc==0)
    654654  {
    655655    sum = 1;
    656     for (i = Nvar; i; i--)
     656    for (i = Nvar; i>0; i--)
    657657      sum *= pure[var[i]];
    658658    return sum;
     
    695695  for (i = 1; i <= pVariables; i++)
    696696  {
    697     if (pure[i])
     697    if (pure[i]!=0)
    698698    {
    699699      i0++;
     
    723723    if (dn == hCo)
    724724    {
    725       if (!Nrad)
     725      if (Nrad==0)
    726726        hProject(pure, hsel);
    727727      else
    728728      {
    729729        pn = *rad;
    730         for (iv = Nvar; iv; iv--)
     730        for (iv = Nvar; iv>0; iv--)
    731731        {
    732732          x = var[iv];
    733           if (pn[x])
     733          if (pn[x]!=0)
    734734          {
    735735            pure[x] = 1;
     
    750750    loop
    751751    {
    752       if(!pure[var[iv]])
     752      if(pure[var[iv]]==0)
    753753      {
    754754        if(hNotZero(rad, Nrad, var, iv))
     
    760760      }
    761761      iv--;
    762       if (!iv)
     762      if (iv==0)
    763763        return;
    764764    }
     
    793793  Exponent_t  mc;
    794794  hexist = hInit(S, Q, &hNexist);
    795   if (!hNexist)
     795  if (hNexist==0)
    796796  {
    797797    hCo = 0;
     
    806806  mc = hisModule;
    807807  hrad = (scfmon)Alloc(hNexist * sizeof(scmon));
    808   if (!mc)
     808  if (mc==0)
    809809  {
    810810    memcpy(hrad, hexist, hNexist * sizeof(scmon));
     
    820820  loop
    821821  {
    822     if (mc)
     822    if (mc!=0)
    823823    {
    824824      hComp(hexist, hNexist, mc, hrad, &hNrad);
     
    826826      memcpy(hstc, hrad, hNrad * sizeof(scmon));
    827827    }
    828     if (hNrad)
     828    if (hNrad!=0)
    829829    {
    830830      hNvar = pVariables;
    831831      hRadical(hrad, &hNrad, hNvar);
    832832      hSupp(hrad, hNrad, hvar, &hNvar);
    833       if (hNvar)
     833      if (hNvar!=0)
    834834      {
    835835        hCo = hNvar;
     
    850850      hMu = 0;
    851851    }
    852     if (hNvar && (hCo == di))
    853     {
    854       if (di && (di < pVariables))
     852    if ((hNvar!=0) && (hCo == di))
     853    {
     854      if ((di!=0) && (di < pVariables))
    855855        hDimMult(hpure, hNpure, hrad, hNrad, hvar, hNvar);
    856       else if (!di)
     856      else if (di==0)
    857857        hMu++;
    858858      else
Note: See TracChangeset for help on using the changeset viewer.