PDL :: linearalgebra :: komplex PDL :: linearalgebra :: Komplex ist eine PDL-Schnittstelle zur Lapack Linear Algebra-Programmierbibliothek (komplexe Zahl).
Jetzt downloaden

PDL :: linearalgebra :: komplex Ranking & Zusammenfassung

PDL :: linearalgebra :: komplex Stichworte

Schnittstelle Lineare Algebra Programmierbibliothek PDL PDL-Schnittstelle

PDL :: linearalgebra :: komplex Beschreibung

PDL :: linearalgebra :: Komplex ist eine PDL-Schnittstelle zur Programmierbibliothek Lapack Linear Algebra (komplexe Zahl). PDL :: linearalgebra :: komplex ist eine PDL-Schnittstelle zur Lapack-linearen Algebra-Programmierbibliothek (komplexe Nummer) .synopsis Verwenden Sie PDL :: komplexe Verwendung PDL :: linearalgebra :: komplex; $ a = r2c zufällig (100.100); $ s = R2c-Null (100); $ u = R2c-Null (100.100); $ v = R2c-Null (100.100); $ info = 0; $ Job = 0; CSGSDD ($ A, $ Job, $ Info, $ S, $ U, $ V); Dieses Modul bietet eine Schnittstelle zu Teilen der Lapack-Bibliothek (komplexe Zahl). Diese Routine akzeptieren entweder Float oder Double piddles.eodpp_defc ("GESVD", LECKBAD => 0, redodimscode => '$ size (r) = $ pdl (a) -> ndims> 2? Min ($ pdl (a) -> Dims , $ PDL (A) -> Dims ): 1; ', Pars =>' A (2, M, N); int jobu (); int jobvt (); s (r); u (2, p, q); vt (2, s, t); int info () ', Generictypes => , Code => generieren_code 'integer lork; char trau, travt; Typen (f)% {externe int cgevd_ (char * jobu, char * jobvt, integer * m, ganzzahl * n, float * a , Ganzzahl * LDA, Float * S, Float * U, Int * LDU, Float * VT, Ganzzahl * LDVT, Float * Arbeit, Ganzzahl * Lwork, Float * RROD, Ganzzahl * Info); Float * rt; Float tmp_work ;%} Typen (d)% {externt int zgesvd_ (char * jobz, char * jobvt, integer * m, integer * n, double * a, integer * lda, double * s, doppelt * u, int * ldu, Double * VT, Ganzzahl * LDVT, doppelt * Arbeit, Ganzzahl * Lwork, Double * RROT, Ganzzahl * Info); double * rTing; double tmp_work ;%} Lwork = ($ priv (__ m_size) <$ priv (__ n_size) )) 5 * $ priv (__ m_size): 5 * $ priv (__ n_size); typen (f) % {rrok = (float *) malloc (lork * sizeof (float)); %} typen (d)% {rrok = (double *) malloc (lork * sizeof (doppelt)); %} lork =-1; schalter ($ jubu ()) {fall 1: trau = 'a'; brechen; fall 2: trau = 's'; brechen; fall 3: trau = 'o'; brechen; standard: trau = 'n'; } switch ($ jobvt ()) {fall 1: travt = 'a'; brechen; fall 2: travt = 's'; brechen; fall 3: travt = 'o'; brechen; standard: travt = 'n'; } $ tfd (cgsvd_ zsgesvd _) (trau travt $ prec (__ m_size) $ preat (__ n_size) $ p (a) $ priv (__ m_size) $ p (s) $ p (u) $ priv (__ p_size) $ p (vt) $ priv (__ s_size) tmp_work lwork rt $ p (info)); lwork = (ganzzahl) tmp_work ; {typen (f)% {float * work = (float *) malloc (2 * lork * sizeof (float)); %} typen (d)% {double * work = (double *) malloc (2 * lork * sizeof (doppelt)); %} $ tfd (cgsvd_ zegesvd _) (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 rrw $ p (info)); freies arbeiten); } free (rrok); ' doc =>' Anforderungen: · Perl.

PDL :: linearalgebra :: komplex Zugehörige Software