diff options
Diffstat (limited to 'packages/base/src/C/vector-aux.c')
-rw-r--r-- | packages/base/src/C/vector-aux.c | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/packages/base/src/C/vector-aux.c b/packages/base/src/C/vector-aux.c index abeba76..58afc49 100644 --- a/packages/base/src/C/vector-aux.c +++ b/packages/base/src/C/vector-aux.c | |||
@@ -894,3 +894,30 @@ int round_vector(KDVEC(v),DVEC(r)) { | |||
894 | OK | 894 | OK |
895 | } | 895 | } |
896 | 896 | ||
897 | //////////////////////////////////////////////////////////////////////////////// | ||
898 | |||
899 | int round_vector_i(KDVEC(v),IVEC(r)) { | ||
900 | int k; | ||
901 | for(k=0; k<vn; k++) { | ||
902 | rp[k] = round(vp[k]); | ||
903 | } | ||
904 | OK | ||
905 | } | ||
906 | |||
907 | |||
908 | int mod_vector(int m, KIVEC(v), IVEC(r)) { | ||
909 | int k; | ||
910 | for(k=0; k<vn; k++) { | ||
911 | rp[k] = vp[k] % m; | ||
912 | } | ||
913 | OK | ||
914 | } | ||
915 | |||
916 | int div_vector(int m, KIVEC(v), IVEC(r)) { | ||
917 | int k; | ||
918 | for(k=0; k<vn; k++) { | ||
919 | rp[k] = vp[k] / m; | ||
920 | } | ||
921 | OK | ||
922 | } | ||
923 | |||