PDL :: linearalgebra :: complex PDL :: LinearalGebra :: Complex is een PDL-interface naar de Linear Algebra-programmeerbibliotheek (complex getal).
Download nu

PDL :: linearalgebra :: complex Rangschikking & Samenvatting

PDL :: linearalgebra :: complex Tags

koppel lineaire algebra Programmeerbibliotheek Pdl PDL-interface

PDL :: linearalgebra :: complex Beschrijving

PDL :: LinearalGebra :: Complex is een PDL-interface naar de Lineaire Lineaire Algebra-programmeerbibliotheek (complex getal). PDL :: LineAralgebra :: Complex is een PDL-interface naar de Lineaire Lineaire Algebra-programmeerbibliotheek (complex getal) .Synopsis Gebruik PDL :: Complex gebruik PDL :: Complex; $ A = R2C willekeurig (100.100); $ s = r2c nullen (100); $ U = R2C nullen (100.100); $ v = r2c nullen (100.100); $ info = 0; $ Job = 0; CGESDD ($ A, $ JOB, $ INFO, $ S, $ U, $ V); deze module geeft een interface aan delen van de Lapack-bibliotheek (complex getal). Deze routine accepteren float of dubbele piddles.Eodpp_defc ("GESVD", stuur => 0, redodimscode => '$ size (r) = $ PDL (A) -> NDIMS> 2? MIN ($ PDL (A) -> DIMS , $ PDL (A) -> DIMS ): 1;, PARS => ' A (2, M, N); INT JOCU (); INT JOCVT (); S (R); U (2, P, Q); VT (2, S, T); Int Info () ', GenericTypes => , Code => Generate_code 'Integer Lwork; Char Trau, Travt; Types (f)% {extern int Cesvd_ (Char * Jobu, Char * Jobvt, Integer * M, Integer * N, Float * A , Integer * LDA, Float * S, Float * U, Int * LDU, Float * VT, Integer * LDVT, Float * Werk, Integer * Lwork, Float * Rwork, Integer * Info); Float * Rwork; Float TMP_Work ;%} Typen (D)% {externe int zgesvd_ (Char * Jobz, Char * Jobvt, integer * m, integer * n, dubbel * A, integer * LDA, dubbele * s, dubbele * u, int * ldu, Dubbel * vt, integer * LDVT, DUBBEL * WERK, INTEGER * LWERK, DUBBEL * RWERK, INTEGER * INFO); DUBBEL * RWERK; DUBBELE TMP_WORK ;%} LWERK = ($ RIV (__ M_SIZE) <$ prist (__ n_size) ))? 5 * $ riv (__ m_size): 5 * $ riv (__ n_size); typen (f) % {rwork = (float *) malloc (lwork * sizeof (float)); %} typen (d)% {rwerk = (dubbel * * malloc (lwerk * size van (dubbel)); %} lwork =-1; switch ($ jocu ()) {case 1: trau = 'a'; pauze; case 2: trau = 's'; pauze; case 3: trau = 'o'; pauze; standaard: trau = 'n'; } switch ($ jobvt ()) {case 1: travt = 'a'; pauze; case 2: travt = 's'; pauze; case 3: travt = 'o'; pauze; standaard: travt = 'n'; } $ tfd (cesvd_ zgesvd _) (trau travt $ riv (__ m_size) $ riv (__ n_size) $ p (a) $ riv (__ m_size) $ p (s) $ p (u) $ priv (__ p_size) $ p (vt) $ priv (__ s_size) tmp_work lwork rwerk $ p (info)); lwork = (integer) tmp_work ; {typen (f)% {float * work = (float *) malloc (2 * lwork * sizeof (float)); %} typen (d)% {double * work = (double *) malloc (2 * lwerk * sizeof (dubbel); %} $ tfd (cgesvd_ zgesvd _) (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) werk lwork rwork $ p (info)); gratis werk); } gratis (rwork); 'doc =>' Vereisten: · Perl

PDL :: linearalgebra :: complex Gerelateerde software