diff options
Diffstat (limited to 'testasmcomp/integr.cmm')
| -rw-r--r-- | testasmcomp/integr.cmm | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/testasmcomp/integr.cmm b/testasmcomp/integr.cmm deleted file mode 100644 index 481dd7587d..0000000000 --- a/testasmcomp/integr.cmm +++ /dev/null @@ -1,30 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *) -(* *) -(* Copyright 1996 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the Q Public License version 1.0. *) -(* *) -(***********************************************************************) - -(* $Id$ *) - -(function "square" (x: float) - ( *f x x)) - -(function "integr" (f: addr low: float high: float n: int) - (let (h (/f (-f high low) (floatofint n)) - x low - s 0.0 - i n) - (while (> i 0) - (assign s (+f s (app f x float))) - (assign x (+f x h)) - (assign i (- i 1))) - ( *f s h))) - -(function "test" (n: int) - (app "integr" "square" 0.0 1.0 n float)) |