[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.4 and 1.7

version 1.4, 2014/08/06 07:39:47 version 1.7, 2015/02/25 04:47:50
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/asir-port/cgi/r-fd.rr,v 1.3 2014/07/31 07:00:41 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);
   R=tk_fd.ygahvec(A,B,C,Y|all=1);    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);
   Gamma=R[1];    Gamma=R[1];
   Der=R[0];    Der=R[0];
   Z=R[2]*Gamma;    Z=R[2]*Gamma;
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 */
Line 54  def checkrats2() {
Line 59  def checkrats2() {
      }       }
   }    }
 }  }
   
   def a_expect(A,B,C,Y) {
     E=tk_fd.expectation_abc(A,B,C,Y);
     return(E);
   }
   def r_expect(A,B,C,Y) {
     Y = r_d2rat(Y);
     E=a_expect(A,B,C,Y);
     Fans=map(deval,E);
     Fans = tk_r.asir2r_c(Fans);
     return Fans;
   }
   
 end$  end$
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>