PDL :: LINEARALGEBRA :: Complejo PDL :: LINEARALGEBRA :: Complex es una interfaz PDL a la Biblioteca de programación de álgebra lineal Lapack (número complejo).
Descargar ahora

PDL :: LINEARALGEBRA :: Complejo Clasificación y resumen

PDL :: LINEARALGEBRA :: Complejo Etiquetas

interfaz álgebra lineal Biblioteca de programación Pdl Interfaz PDL

PDL :: LINEARALGEBRA :: Complejo Descripción

PDL :: LINEAREALGEBRA :: Complex es una interfaz PDL para la biblioteca de programación de álgebra lineal Lapack (número complejo). PDL :: LINEARAALGEBRA :: Complex es una interfaz PDL de la biblioteca de programación de álgebra lineal Lapack (número complejo) .Synopsis Use PDL :: Uso complejo PDL :: LinealGebra :: Complejo; $ a = r2c aleatorio (100,100); $ s = r2c ceros (100); $ u = R2C Zeroes (100,100); $ v = r2c ceros (100,100); $ info = 0; $ trabajo = 0; CGSDD ($ a, $ trabajo, $ info, $ s, $ u, $ v); Este módulo proporciona una interfaz a partes de la biblioteca de Lapack (número complejo). Estas rutinarias aceptan flotadores o doble piddles.eodpp_defc ("gesvd", manillar => 0, redodimscode => '$ tamaño (r) = $ PDL (A) -> NDIMS> 2? MIN ($ PDL (A) -> Dims , $ PDL (A) -> Dims ): 1; ', pars =>' a (2, m, n); int Jobu (); int Jobst (); S (R); u (2, p, q); VT (2, S, T); INT INFO () ', GENERICTYPES => , código => generate_code 'entero lwork; char trau, traavt; tipos (f)% {externa int cgesvd_ (char * jobu, char * jobst, entero * m, entero * n, flotador * a , entero * lda, flotador * s, flotador * u, int * ldu, flotador * vt, entero * ldvt, flotador * trabajo, entero * lwork, flotador * rwork, entero * info); flotando * rwork; flotan tmp_work ;%} Tipos (D)% {externa int zgesvd_ (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, doble * rwork, entero * info); doble * rwork; doble tmp_work ;%} lwork = ($ PRIV (__ M_SIZE) <$ priv (__ n_size ))? 5 * $ priv (__ m_size): 5 * $ priv (__ n_size); tipos (f) % {rwork = (flotador *) malloc (lwork * sizeof (flotar)); %} tipos (d)% {rwork = (doble *) malloc (lwork * sizeof (doble)); %} lwork =-1; cambiar ($ jobu ()) {caso 1: trau = 'a'; descanso; caso 2: trau = 's'; descanso; 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 (cgsvd_ zgesvd _) (trau travt $ priv (__ m_size) $ prif (__ n_size) $ p (a) $ prigudio (__ m_size) $ p (s) $ p (u) $ priv (__ p_size) $ p (vt) $ prif (__ s_size) tmp_work lwork rwork $ p (info)); lwork = (entero) tmp_work ; {tipos (f)% {float * trabajo = (flotador *) malloc (2 * lwork * sizeof (flotador)); %} tipos (d)% {doble * trabajo = (doble *) malloc (2 * lwork * sizeof (doble)); %} $ tfd (cgsvd_ zgesvd _) (trau travt $ priv (__ m_size) $ priv (__ n_size) $ p (a) $ priv (__ m_size) $ p (s) $ p (u) $ prb (__ p_size) $ p (vt) $ priv (__ s_size) trabajo lwork rwork $ p (informaci

PDL :: LINEARALGEBRA :: Complejo Software relacionado