PDL :: linearalgebra :: real PDL :: LineAralgebra :: Real é uma interface PDL para a biblioteca de programação de álgebra linear Real Lapack.
Baixe Agora

PDL :: linearalgebra :: real Classificação e resumo

PDL :: linearalgebra :: real Tag

Módulo Perl. interface álgebra PDL Interface PDL Programação da Álgebra.

PDL :: linearalgebra :: real Descrição

PDL :: linearalgebra :: real é uma interface PDL para a biblioteca de programação de álgebra linear de lapack real. PDL :: Linearalgebra :: Real é uma interface PDL para a biblioteca de programação de álgebra linear Real Lapack.Synopsis Use PDL :: Linearalgebra :: Real; $ a = aleatório (100.100); $ s = zeros (100); $ u = zeroes (100.100); $ v = zeroes (100.100); $ info = 0; $ job = 0; GESDD ($ a, $ job, $ info, $ s, $ u, $ v); blas vector rotina de uso incremento.Este módulo fornece uma interface para partes da biblioteca de lapack real. Essas rotinas aceitam flutuador ou duplo piddles.eodpp_def ("gesvd", guidão => 0, refodimscode => '$ tamanho (r) = $ pdl (a) -> ndims> 1? Min ($ pdl (A) -> Dims , $ PDL (A) -> Dims ): 1; ', pars =>' A (m, n); int Embu (); int Embvt (); info () ', generictypes => , Código => Generate_Code 'Tipos (f)% {extern int sgesvd_ (char * jobu, char * jobvt, inteiro * m, inteiro * n, float * a, inteiro * lda, float * s, float * u, int * ldu, float * vt, inteiro * ldvt, float * trabalho, inteiro * lwork, inteiro * info); float tmp_work;%} tipos (d)% {extern int dggsvd_ (char * jobvt, inteiro * m , inteiro * n, duplo * a, inteiro * lda, duplo * s, duplo * u, int * ldu, duplo * vt, inteiro * ldvt, duplo * trabalho, inteiro * lwork, inteiro * info); duplo tmp_work;% } inteiro em todo o trabalho = -1; char traumento, travt; interruptor ($ jobu ()) {case 1: truário = 'a'; quebra; caso 2: trues = 's'; quebra; caso 3: TRAU = 'O' ; Break; Padrão: TRAU = 'N';} Interruptor ($ Jobvt ()) {Caso 1: Travt = 'UMA'; pausa; Caso 2: Travt = 's'; pausa; Caso 3: Travt = 'O'; pausa; Padrão: Travt = 'n'; } $ Tfd (sgyvd_, dggsvd _) (TRAU, TRAVT, $ priv (__ m_size), $ PRIV (__ n_size), $ p (a), $ priv (__ m_size), $ p (u), $ p (u), $ p (u), $ p (u), $ p (u), $ p (u), $ p (u), $ p (u) Priv (__ p_size), $ p (vt), $ priv (__ s_size), tmp_work, chavewwork, $ p (info)); lwork = (inteiro) tmp_work; {Tipos (f)% {float * work = (float *) malloc (chave * sizeof (float)); %} Tipos (D)% {Dupla * Work = (Duplo *) Malloc (Twork * SizeOf (Duplo)); %} $ TFD (SGGEVD_, Dgggsvd _) (TRAU, TRAVT, $ PRIV (__ M_Size), $ PRIV (__ N_Size), $ P (A), $ priv (__ m_size), $ p (u), $ p (u), $ p (u), $ p (u), $ p (u), $ p (u), $ p (u) $ Priv (__ p_size), $ P (vt), $ priv (__ s_size), trabalho, chave, $ p (info)); Trabalho livre); } ', Doc =>' calcula a decomposição do valor singular (SVD) de um verdadeiro M-BY-N Matrix A. Requisitos: · Perl.

PDL :: linearalgebra :: real Software Relacionado