X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/fc2ec49c325b99370170789886b4be4f43e16d68..b8e89a384896a4f8ce3e1990a10c88e7164af55c:/documentation/code_VALValue.v_sqrt.html diff --git a/documentation/code_VALValue.v_sqrt.html b/documentation/code_VALValue.v_sqrt.html deleted file mode 100644 index c9e86ed..0000000 --- a/documentation/code_VALValue.v_sqrt.html +++ /dev/null @@ -1,29 +0,0 @@ -
- - - - - - - - - - - - - - - -let rec v_sqrt v = match v with
- |N i ->
- if i >= 0 then return_R (sqrt (float_of_int i))
- else raise (Value_operation "sqrt parameter < 0.")
- |R f ->
- if f >= 0. then return_R (sqrt f)
- else raise (Value_operation "sqrt parameter < 0.")
- |Vec (size, vec) -> make_vector size (fun i -> v_sqrt (vec i))
- |Zero -> return_R (sqrt 0.)
- |W -> W
\ No newline at end of file