SCM

SCM Repository

[matrix] Annotation of /pkg/src/factorizations.c
ViewVC logotype

Annotation of /pkg/src/factorizations.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 649 - (view) (download) (as text)

1 : bates 10 #include "factorizations.h"
2 :    
3 :     SEXP LU_validate(SEXP obj)
4 :     {
5 :     return ScalarLogical(1);
6 :     }
7 :    
8 : bates 631 SEXP BunchKaufman_validate(SEXP obj)
9 :     {
10 :     return ScalarLogical(1);
11 :     }
12 :    
13 : bates 649 SEXP pBunchKaufman_validate(SEXP obj)
14 :     {
15 :     return ScalarLogical(1);
16 :     }
17 :    
18 : bates 10 SEXP Cholesky_validate(SEXP obj)
19 :     {
20 :     return ScalarLogical(1);
21 :     }
22 :    
23 : bates 649 SEXP pCholesky_validate(SEXP obj)
24 :     {
25 :     return ScalarLogical(1);
26 :     }
27 :    
28 : bates 10 SEXP SVD_validate(SEXP obj)
29 :     {
30 :     return ScalarLogical(1);
31 :     }
32 : bates 582
33 :     SEXP LU_expand(SEXP x)
34 :     {
35 :     char *nms[] = {"L", "U", ""};
36 :     SEXP L, U, val = PROTECT(Matrix_make_named(VECSXP, nms)),
37 :     lux = GET_SLOT(x, Matrix_xSym),
38 :     dd = GET_SLOT(x, Matrix_DimSym);
39 :    
40 :     SET_VECTOR_ELT(val, 0, NEW_OBJECT(MAKE_CLASS("dtrMatrix")));
41 :     L = VECTOR_ELT(val, 0);
42 :     SET_VECTOR_ELT(val, 1, NEW_OBJECT(MAKE_CLASS("dtrMatrix")));
43 :     U = VECTOR_ELT(val, 1);
44 :     SET_SLOT(L, Matrix_xSym, duplicate(lux));
45 :     SET_SLOT(L, Matrix_DimSym, dd);
46 :     SET_SLOT(L, Matrix_uploSym, mkString("L"));
47 :     SET_SLOT(L, Matrix_diagSym, mkString("U"));
48 :     make_array_triangular(REAL(GET_SLOT(L, Matrix_xSym)), L);
49 :     SET_SLOT(U, Matrix_xSym, duplicate(lux));
50 :     SET_SLOT(U, Matrix_DimSym, dd);
51 :     SET_SLOT(U, Matrix_uploSym, mkString("U"));
52 :     SET_SLOT(U, Matrix_diagSym, mkString("N"));
53 :     make_array_triangular(REAL(GET_SLOT(U, Matrix_xSym)), U);
54 :     UNPROTECT(1);
55 :     return val;
56 :     }

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge