PDL :: linearalgebra :: complexo PDL :: LineArolgebra :: Complexo é uma interface PDL para a biblioteca de programação Algebra LAPACK (número complexo).
Baixe Agora

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

PDL :: linearalgebra :: complexo Tag

interface álgebra Linear Biblioteca de programação PDL Interface PDL

PDL :: linearalgebra :: complexo Descrição

PDL :: LineAlgebra :: Complex é uma interface PDL para a Lapack Linear Algebra Programming Library (número complexo). PDL :: LineAralgebra :: Complex é uma interface PDL para a Lapack Linear Algebra Programming Library (número complexo) .Synopsis use PDL :: Complexo Uso PDL :: Linearalgebra :: Complexo; $ a = r2c aleatório (100.100); $ s = zeroes R2C (100); $ u = zeroes R2C (100.100); $ v = R2C zeroes (100.100); $ info = 0; $ job = 0; CGGEDD ($ A, $ job, $ Info, $ S, $ U, $ v); Este módulo fornece uma interface para partes da biblioteca de lapack (número complexo). Essas rotina aceitam flutuador ou duplo piddles.eodpp_defc ("gesvd", guidão => 0, redodimscode => '$ tamanho (r) = $ pdl (a) -> ndims> 2? Min ($ pdl (A) -> Dims , $ PDL (A) -> Dims ): 1; ', pars =>' A (2, m, n); int jobu (); int jobvt (); u (2, p, q); vt (2, s, t); int info () ', generictypes => , code => generate_code 'inteiro inteiro; char traumento, travt; tipos (f)% {extern int cgggevd_ (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 * chave, float * incha, inteiro * info); float * rwork; flutuador tmp_work ;%} tipos (D)% {extern int zgesvd_ (char * jobz, char * jobvt, inteiro * m, inteiro * n, duplo * a, inteiro * lda, duplo * s, duplo * u, int * ldu, Duplo * VT, inteiro * ldvt, duplo * Trabalho, inteiro * lwork, duplo * incorporado, inteiro * info); duplo * rwork; duplo tmp_work ;%} lwork = ($ priv ($ priv (__ m_size) <$ priv (__ n_size )))? 5 * $ prip (__ m_size): 5 * $ prip (__ n_size); tipos (f) % {rwork = (float *) malloc (chave * sizeof (float)); %} tipos (d)% {rwork = (duplo *) malloc (twork * sizeof (duplo)); %} lwork =-1; interruptor ($ jobu ()) {caso 1: trau = 'a'; pausa; caso 2: trau = 's'; pausa; caso 3: trau = 'o'; pausa; padr

PDL :: linearalgebra :: complexo Software Relacionado