[BACK]Return to plotf.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2018 / plot

Diff for /OpenXM_contrib2/asir2018/plot/plotf.c between version 1.2 and 1.3

version 1.2, 2018/09/28 08:20:29 version 1.3, 2020/10/06 06:31:20
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2018/plot/plotf.c,v 1.1 2018/09/19 05:45:08 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2018/plot/plotf.c,v 1.2 2018/09/28 08:20:29 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 344  void conplot_main(NODE arg,int is_memory,Obj *rp){
Line 344  void conplot_main(NODE arg,int is_memory,Obj *rp){
         poly = (P)BDY(arg);          poly = (P)BDY(arg);
         get_vars_recursive((Obj)poly,&vl);          get_vars_recursive((Obj)poly,&vl);
         for ( vl0 = vl, i = 0; vl0; vl0 = NEXT(vl0) )          for ( vl0 = vl, i = 0; vl0; vl0 = NEXT(vl0) )
           if ( vl0->v->attr == (pointer)V_IND )            if ( vl0->v->attr == (pointer)V_IND ) {
             if ( i >= 2 )              if ( i >= 2 )
               error("ifplot : invalid argument");                error("ifplot : invalid argument");
             else              else
               v[i++] = vl0->v;                v[i++] = vl0->v;
             }
         break;          break;
       case O_LIST:        case O_LIST:
         list = (LIST)BDY(arg);          list = (LIST)BDY(arg);
Line 583  void Ppolarplot(NODE arg,Z *rp){
Line 584  void Ppolarplot(NODE arg,Z *rp){
       poly=(P)BDY(arg);        poly=(P)BDY(arg);
       get_vars_recursive((Obj)poly,&vl);        get_vars_recursive((Obj)poly,&vl);
       for(vl0=vl,i=0;vl0;vl0=NEXT(vl0))        for(vl0=vl,i=0;vl0;vl0=NEXT(vl0))
         if(vl0->v->attr==(pointer)V_IND)          if(vl0->v->attr==(pointer)V_IND) {
           if(i>=1)error("polarplot : invalid argument");            if(i>=1)error("polarplot : invalid argument");
         else v[i++]=vl0->v;            else v[i++]=vl0->v;
           }
       if(i!=1)error("polarplot : invalid argument");        if(i!=1)error("polarplot : invalid argument");
       break;        break;
     case O_LIST://range,geomerty      case O_LIST://range,geomerty
Line 739  void ListCheck(char * head,LIST list){
Line 741  void ListCheck(char * head,LIST list){
     if(!BDY(n))printf("%d 0\n",i);      if(!BDY(n))printf("%d 0\n",i);
     else if(OID(BDY(n))==O_P) printf("%d poly\n",i);      else if(OID(BDY(n))==O_P) printf("%d poly\n",i);
     else if(OID(BDY(n))==O_R) printf("%d real\n",i);      else if(OID(BDY(n))==O_R) printf("%d real\n",i);
     else if(OID(BDY(n))==O_N) printf("%d %d\n",i,ZTOS((Q)BDY(n)));      else if(OID(BDY(n))==O_N) printf("%d %ld\n",i,ZTOS((Q)BDY(n)));
   }    }
 }  }
   
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>