1
# ---------------------------------------------------------------------------
3
# - afnix:mth module algebra test unit -
4
# ---------------------------------------------------------------------------
5
# - This program is free software; you can redistribute it and/or modify -
6
# - it provided that this copyright notice is kept intact. -
8
# - This program is distributed in the hope that it will be useful, but -
9
# - without any warranty; without even the implied warranty of -
10
# - merchantability or fitness for a particular purpose. In no event shall -
11
# - the copyright holder be liable for any direct, indirect, incidental or -
12
# - special damages arising in any way out of the use of this software. -
13
# ---------------------------------------------------------------------------
14
# - copyright (c) 1999-2011 amaury darsch -
15
# ---------------------------------------------------------------------------
17
# @info real vector test unit
18
# @author amaury darsch
21
interp:library "afnix-mth"
23
# create a simple vector
24
const rv (afnix:mth:Rvector 3)
27
assert true (afnix:mth:rvi-p rv)
28
assert true (afnix:mth:r-vector-p rv)
30
# check representation
31
assert "Rvector" (rv:repr)
33
# check vector length and elements
34
assert 3 (rv:get-size)
49
# check dedicated methods
52
# test the vector operators
61
# create another vector
62
const nv (afnix:mth:Rvector 3)
67
# check the dot product
68
assert 7.0 (rv:dot nv)
77
assert true (sv:?= rv)