PDL :: LINEARAALGEBRA :: REAL PDL :: LINEARALGEBRA :: REAL es una interfaz PDL de la Biblioteca de programación de álgebra lineal Real Lapack.
Descargar ahora

PDL :: LINEARAALGEBRA :: REAL Clasificación y resumen

PDL :: LINEARAALGEBRA :: REAL Etiquetas

Módulo perl interfaz álgebra Pdl Interfaz PDL Programación de álgebra

PDL :: LINEARAALGEBRA :: REAL Descripción

PDL :: LINEARAALGEBRA :: REAL es una interfaz PDL a la Biblioteca de programación de álgebra lineal Real Lapack. PDL :: LINEAREALGEBRA :: REAL es una interfaz PDL de la Biblioteca de Programación de Algebra Lineal Real Lapack.Synopsis Use PDL :: LinealGebra :: Real; $ a = aleatorio (100,100); $ s = ceros (100); $ u = ceroes (100,100); $ v = ceros (100,100); $ info = 0; $ trabajo = 0; GESDD ($ A, $ trabajo, $ info, $ s, $ u, $ v); Blas vector de rutina de incremento. Este módulo proporciona una interfaz a partes de la Biblioteca Real Lapack. Estas rutinas aceptan flotadores o doble piddles.eodpp_def ("gesvd", manillar => 0, redodimscode => '$ tamaño (r) = $ PDL (A) -> NDIMS> 1? MIN ($ PDL (A) -> Dims , $ PDL (A) -> Dims ): 1; ', pars =>' a (m, n); int Jobu (); int Jobst (); o , phys] s (r); u (p, q); VT (S, T); INT INFO () ', GENERICTYPES => , Code => GENERATE_CODE 'TIPOS (F)% {INTERN int sgsvd_ (char * jobu, char * jobst, entero * m, entero * n, flotador * a, entero * lda, flotador * s, flotador * u, int * LDU, FLOAT * VT, entero * ldvt, flotador * trabajo, entero * lwork, entero * info); flotan tmp_work;%} tipos (d)% {lo externo int diggsvd_ (char * jobz, char * jobt, entero * m , entero * n, doble * a, entero * lda, doble * s, doble * u, int * ldu, doble * vt, entero * ldvt, doble * trabajo, entero * lwork, entero * info); doble tmp_work;% } entero lwork = -1; char trau, traavt; switch ($ Jobu ()) {Caso 1: Trau = 'A'; Break; Case 2: Trau = 'S'; Break; Caso 3: Trau = 'O' ; descanso; Predeterminado: Trau = 'N';} Interruptor ($ Jobvt ()) {Case 1: TRAVT = 'A'; descanso; CASO 2: TRAVT = 'S'; descanso; Caso 3: TRAVT = 'O'; descanso; Predeterminado: TRAVT = 'N'; } $ TFD (SGESVD_, DGSVD _) (TRAU, TRAVT, $ PRIV (__ M_SIZE), $ PRIF (__ n_size), $ P (a), $ PRIG (__ M_SIZE), $ P (s), $ P (U), $ PRIV (__ P_SIZE), $ P (VT), $ PRIV (__ S_SIZE), TMP_WORK, LWORK, $ P (INFO)); lwork = (entero) tmp_work; {tipos (f)% {float * trabajo = (flotador *) malloc (lwork * sizeof (flotador)); %} Tipos (D)% {doble * trabajo = (doble *) malloc (lwork * sizeof (doble)); %} $ TFD (SGESVD_, DGSVD _) (TRAU, TRAVT, $ PRIV (__ M_SIZE), $ PRIV (__ N_SIZE), $ P (A), $ PRIV (__ M_SIZE), $ P (s), $ P (U), $ PRIV (__ P_SIZE), $ P (VT), $ PRIV (__ S_SIZE), trabajo, lwork, $ P (información)); trabajo libre); } ', DOC =>' calcula la descomposición del valor singular (SVD) de un Matriz M-BY-N Realic Requisitos: · Perl

PDL :: LINEARAALGEBRA :: REAL Software relacionado