Pdl :: linearalgebra :: real PDL :: Linearalgebra :: Real, gerçek LaCack Lineer Cebir Programlama Kütüphanesi'ne PDL arayüzüdür.
Şimdi İndirin

Pdl :: linearalgebra :: real Sıralama ve Özet

Pdl :: linearalgebra :: real Etiketler

Perl modülü arayüz cebir Pdl PDL arayüzü Cebir Programlama

Pdl :: linearalgebra :: real Açıklama

PDL :: LineAralGebra :: Real, gerçek LaCack Lineer Cebir Programlama Kütüphanesi'ne PDL arayüzüdür. PDL :: LineAralGebra :: Real, gerçek LaCack Lineer Cebir Programlama Kütüphanesi'ne PDL arayüzüdür.Synopsis kullanın PDL :: LineAralGebra :: Real; $ A = rastgele (100,100); $ s = sıfırlar (100); $ U = Zeroes (100,100); $ v = sıfırlar (100,100); $ info = 0; $ job = 0; GESDD ($ a, $ job, $ bilgi, $ S, $ u, $ v); BLAS vektör rutin kullanımı artış. Bu modül, gerçek LACACT Kütüphanesinin parçalarına bir arayüz sağlar. Bu rutinler yüzdürme ya da çift piddles.eodpp_def ("Gesvd", Gidon => 0, Redodimcode => '$ Boyut (R) = $ PDL (A) -> NDIMS> 1? Min ($ PDL (A) -> loşlar , $ pdl (a) -> lads ): 1; ', pars =>' a (m, n); int jobu (); int jobvt (); s (r); u (p, q); vt (s, t); int info () ', generictypes => , Kod => Generate_code 'türleri (f)% {extern int sgesvd_ (char * jobu, char * jobvt, tamsayı * m, integer * n, float * a, tamsayı * lda, float * s, float * u, int * ldu, şamandıra * vt, tamsayı * ldvt, şamandıra * iş, tamsayı *. , tamsayı * n, çift * a, tamsayı * lda, çift * s, çift * u, int * ldu, çift * vt, tamsayı * ldvt, çift * iş, tamsayı * ldvt, integer * info); çift tmp_work;% } tam sayı = -1; char trau, travt; anahtarı ($ jobu ()) {Case 1: trau = 'A'; Break; Case 2: trau = 's'; Break; Vaka 3: trau = 'O' kırılma; varsayılan: trau = 'n';} anahtarı ($ jobvt ()) {Case 1: travt = 'A'; kırmak; Dava 2: travt = 's'; kırmak; Dava 3: travt = 'o'; kırmak; Varsayılan: travt = 'n'; } $ TFD (sgesvd_, dgesvd _) (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), TMP_Work, LWORK, $ P (bilgi)); lwork = (tamsayı) TMP_Work; {tür (f)% {float * iş = (şamandıra *) malloc (louss * SizeOf (şamandıra)); %} türleri (d)% {Double * work = (çift *) Malloc (LWORK * SizeOF (çift)); %} $ TFD (SGESSVD_, DZESVD _) (TRAU, TRAVT, $ PRID (__ M_SIZE), $ PRID (__ n_size), $ p (a), $ Priv (__ m_size), $ p (lar), $ p (u), $ Priv (__ p_size), $ P (vt), $ Priv (__ s_size), iş, işte, $ p (bilgi)); serbest iş); } ', DOC =>' Gerçek M-BY-N Matris A. Gereksinimlerinin tekil değer ayrışmasını (SVD) hesaplar: · Perl

Pdl :: linearalgebra :: real İlgili Yazılım