[BACK]Return to r-fd.rr CVS log [TXT][DIR] Up to [local] / OpenXM / src / asir-port / cgi

Diff for /OpenXM/src/asir-port/cgi/r-fd.rr between version 1.6 and 1.7

version 1.6, 2014/12/12 08:29:53 version 1.7, 2015/02/25 04:47:50
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/asir-port/cgi/r-fd.rr,v 1.5 2014/08/27 02:14:40 takayama Exp $ */  /* $OpenXM: OpenXM/src/asir-port/cgi/r-fd.rr,v 1.6 2014/12/12 08:29:53 takayama Exp $ */
 load("tk_fd.rr")$  load("tk_fd.rr")$
 import("tk_r.rr")$  import("tk_r.rr")$
 import("oh_number.rr")$  import("oh_number.rr")$
Line 18  def r_d2rat(Y) {
Line 18  def r_d2rat(Y) {
 }  }
 def r_ahvec(A,B,C,Y) {  def r_ahvec(A,B,C,Y) {
   Y = r_d2rat(Y);    Y = r_d2rat(Y);
     Ans=a_ahvec(A,B,C,Y);
     /*  Fans=map(rtostr,map(tk_fd.tk_number_rattofloat,Ans)); */
     Fans=map(deval,Ans);
     Fans = tk_r.asir2r_c(Fans);
     return Fans;
   }
   
   def a_ahvec(A,B,C,Y) {
   R=tk_fd.ahvec_abc(A,B,C,Y|all=1);    R=tk_fd.ahvec_abc(A,B,C,Y|all=1);
   Gamma=R[1];    Gamma=R[1];
   Der=R[0];    Der=R[0];
Line 26  def r_ahvec(A,B,C,Y) { 
Line 34  def r_ahvec(A,B,C,Y) { 
   for (I=0; I<length(Der); I++) Der2[I] = Der[I]*Gamma;    for (I=0; I<length(Der); I++) Der2[I] = Der[I]*Gamma;
   Der2 = vtol(Der2);    Der2 = vtol(Der2);
   Ans=cons(Z,Der2);    Ans=cons(Z,Der2);
   /*  Fans=map(rtostr,map(tk_fd.tk_number_rattofloat,Ans)); */    return(Ans);
   Fans=map(deval,Ans);  
   Fans = tk_r.asir2r_c(Fans);  
   return Fans;  
 }  }
   
 /* temporary */  /* temporary */
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>