File: %25r_o_r.sci

package info (click to toggle)
scilab 2.6-4
  • links: PTS
  • area: non-free
  • in suites: woody
  • size: 54,632 kB
  • ctags: 40,267
  • sloc: ansic: 267,851; fortran: 166,549; sh: 10,005; makefile: 4,119; tcl: 1,070; cpp: 233; csh: 143; asm: 135; perl: 130; java: 39
file content (10 lines) | stat: -rw-r--r-- 282 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
function r=%r_o_r(l1,l2)
// l1==l2 with l1 and l2 rationals
//!
//r=l1('dt')==l2('dt')&l1('num')==l2('num')&(l1('den')==l2('den')|l1('num')==0)
// Copyright INRIA
if varn([l1('num'),l1('den')])~=varn([l2('num'),l2('den')]) then 
  r=%f;
else
r=(l1('dt')==l2('dt'))&((l1-l2)==0)
end