Pdl :: linearalgebra :: real PDL :: linearalgebra :: echt ist eine PDL-Schnittstelle zur Programmierbibliothek für lapack lineare Algebra.
Jetzt downloaden

Pdl :: linearalgebra :: real Ranking & Zusammenfassung

Pdl :: linearalgebra :: real Stichworte

Perl-Modul Schnittstelle Algebra PDL PDL-Schnittstelle Algebra-Programmierung.

Pdl :: linearalgebra :: real Beschreibung

PDL :: linearalgebra :: real ist eine PDL-Schnittstelle zur Programmierbibliothek Lapack Linear Algebra. PDL :: linearalgebra :: real ist eine PDL-Schnittstelle zur echten Lapack-linearen Algebra-Programmierbibliothek.Synopsis Verwenden Sie PDL :: linearalgebra :: echt; $ a = zufällig (100.100); $ s = Nullen (100); $ u = Nullen (100.100); $ v = Nullen (100.100); $ info = 0; $ Job = 0; GESDD ($ A, $ Job, $ Info, $ S, $ U, $ V); BLAS Vector Routine Increment.Dieses Modul bietet eine Schnittstelle zu Teilen der echten Lapack-Bibliothek. Diese Routinen akzeptieren entweder Float oder Double PIDDles.EODPP_DEF ("GESVD", LECKBAD => 0, Redodimscode => '$ Größe (R) = $ PDL (A) -> NDIMS> 1? Min ($ PDL (A) -> Dims , $ PDL (A) -> Dims ): 1; ', Pars =>' A (M, N); int jobu (); int jobvt (); s (r); u (p, q); vt (s, t); int info () ', generiert => , Code => Generate_Code 'Typen (F)% {externe int sgesvd_ (char * jobu, char * jobvt, ganzgere * m, ganzzeichen * n, float * a, ganzzahl * lda, float * s, float * u, int * LDU, Float * VT, Ganzzahl * LDVT, Float * Arbeit, Ganzzahl * Lwork, Ganzzahl * Info); Float tmp_work;%} Typen (d)% {externt int dgesvd_ (char * jobz, char * jobvt, integer * m , integer * n, doppelt * A, integer * lda, double * s, double * u, int * ldu, double * vt, intger * ldvt, doppelt * Arbeit, integer * lork, integer * info); doppelt tmp_work;% } integer Lwork = -1; char trau, travt; wechseln ($ jubu ()) {Fall 1: trau = 'a'; brechen; Fall 2: Trau = 's'; brechen; Fall 3: Trau = 'o' ; Pause; Standard: trau = 'n';} Switch ($ jobvt ()) {Fall 1: travt = 'EIN'; brechen; Fall 2: travt = 's'; brechen; Fall 3: travt = 'o'; brechen; Standard: travt = 'n'; } $ Tfd (sgesvd_, dgesvd _) (trau, travt, $ priv (__ m_size), $ pred (__ n_size), $ p (a), $ priv (__ m_size), $ p (s), $ p (u), $ PRIV (__ p_size), $ p (vt), $ priv (__ s_size), tmp_work, lork, $ p (info)); Lwork = (Ganzzahl) tmp_work; {Typen (f)% {Float * Work = (Float *) Malloc (Lork * SizeOf (Float)); %} Typen (d)% {double * Work = (double *) Malloc (Lork * SizeOf (doppelt)); %} $ TFD (SGESVD_, DGESVD _) (TRAU, TRAVT, $ TRIV (__ m_size), $ priv (__ n_size), $ p (a), $ priv (__ m_size), $ p (s), $ p (u), $ Priv (__ p_size), $ p (vt), $ priv (__ s_size), Arbeit, Lwork, $ P (Info)); freies Arbeiten); } ', Doc =>' berechnet die Singular-Wert-Zersetzung (SVD) einer echten M-by-n-Matrix A. Anforderungen: · Perl.

Pdl :: linearalgebra :: real Zugehörige Software