PDL :: Linearalgebra :: Real

PDL :: LinearAlgeBra :: Realは、実際のLAPACK Linear AlgebraプログラミングライブラリーへのPDLインタフェースです。
今すぐダウンロード

PDL :: Linearalgebra :: Real ランキングとまとめ

広告

  • Rating:
  • ライセンス:
  • Perl Artistic License
  • 価格:
  • FREE
  • 出版社名:
  • Grgory Vanuxem
  • 出版社のWebサイト:
  • http://search.cpan.org/ellipse/PDL-LinearAlgebra-0.06/Real/real.pd

PDL :: Linearalgebra :: Real タグ


PDL :: Linearalgebra :: Real 説明

PDL :: LinearAlgebra :: Realは、実際のLAPACK Linear AlgebraプログラミングライブラリーへのPDLインターフェースです。 PDL :: LinearAlgebra :: Realは、実際のLAPACK Linear Algebraプログラミング図書館へのPDLインターフェースです。 $ a =ランダム(100,100); $ s =ゼロ(100)。 $ u =ゼロ(100,100); $ v =ゼロ(100,100); $ info = 0; $ JOB = 0; GESDD($ A、$ JOB、$ INFO、$ S、$ u、$ v); BLASベクトルルーチン使用インクリメント。このモジュールは、実際のLAPACKライブラリの一部へのインターフェースを提供します。これらのルーチンはfloatまたはdouble piddles.eodpp_def( "gesvd"、handlebad => 0、redodimscode => '$ size(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() '、generictypes => 、code => generate_code '型(f)%{extern int sgesvd_(char * jobu、char * jobvt、整数* m、整数* n、float * a、整数* lda、float * s、float * u、int * LDU、float * vt、整数* ldvt、float * work、integer * lwork、整数*情報); float tmp_work;%}型(d)%{extern int dgesvd_(char * jobz、char * jobvt、整数* m 、整数* n、double * a、integer * lda、double * s、double * s、double * u、int * ldu、double * vt、整数* ldvt、double * work、整数* lwwork、整数* info; double tmp_work;% integer lwork = -1; Char Trau、Travt;スイッチ($ jobu()){ケース1:TRAU = 'a'; break; kcase 2:trau = 's'; break; break;ケース3:trau = 'o' ;壊れて;デフォルト:trau = 'n';}スイッチ($ jobvt()){ケース1:travt = 'a';壊す;ケース2:travt = 's'。壊す;ケース3:TRAVT = 'O';壊す;デフォルト:travt = 'n'; $ TFD(SGSVD_、DESVD _)(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、LWIKE、$ P(情報))。 lwork =(整数)tmp_work; {型(f)%{float * work =(float *)Malloc(Lwork * Sizeof(float)); %}型(d)%{double * work =(double *)malloc(lwork * sizeof(double)); $ TFD(SGEVD_、DESVD)(TRAU、TRAVT、$ PRIV(__ M_SIZE)、$ PRIB(__ N_SIZE)、$ P(A)、$ PRIB(__ M_SIZE)、$ P(u)、 $ PRIV(__ P_SIZE)、$ P(VT)、$ PRIV(__S_SIZE)、作業、LWIVE、$ P(情報))。無料(作業); '、doc =>'は、実際のM-BY-N行列Aの特異値分解(SVD)を計算します。 ・Perl


PDL :: Linearalgebra :: Real 関連ソフトウェア