ΠΡΠΈΠ²Π΅Ρ,
ΡΠΏΠ°ΡΠΈΠ±ΠΎ Π·Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅ΡΡΡΡΠΎΠ² lapack Π½Π° github.
i) Π― Ρ ΠΎΡΡ Π½Π°ΠΏΠΎΠΌΠ½ΠΈΡΡ ΠΎ ΡΡΠ°ΡΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠ΅, http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=2&t=1820#p11388 , ΠΎΠ±Π½Π°ΡΡΠΆΠΈΠ²Π°Π΅ΠΌΠΎΠΉ Ρ Π½ΠΎΠ²Π΅ΠΉΡΠΈΠΌ lapack-3.7.0, ΠΊΠ°ΠΊ Ρ ΡΠΎΠΎΠ±ΡΠ°Ρ Π·Π΄Π΅ΡΡ, https://github.com/miroi/lapack-dsyevr-test .
Π‘ΡΠ΄Ρ ΠΏΠΎ ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΎΡΡΠ»Π΅ΠΆΠΈΠ²Π°Π½ΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ lapack (http://www.netlib.org/lapack/bug_list.html β ΠΎΡΠΈΠ±ΠΊΠ° 126), Π²Ρ Π·Π°Π½ΠΈΠΌΠ°Π΅ΡΠ΅ΡΡ ΡΡΠΎΠΉ Π½Π΅ΠΏΡΠΈΡΡΠ½ΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠΎΠΉ, Π²Π΅ΡΠ½ΠΎ?
ii) ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π±Π΅ΡΠΏΠ»Π°ΡΠ½ΠΎ ΠΏΡΠΎΠΉΡΠΈ ΡΡΠΎΡ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΉ ΡΠ΅ΡΡ Π½Π° ΠΎΡΡΠΎΠ³ΠΎΠ½Π°Π»ΡΠ½ΠΎΡΡΡ Π²Π΅ΠΊΡΠΎΡΠΎΠ² ( https://github.com/miroi/lapack-dsyevr-test ) ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΅Π³ΠΎ Π² ΡΠ΅ΡΡΡ lapack.
ΠΠ΅ΡΡ, ΠΠΈΡΠΎ
ΠΡΠΈΠ²Π΅Ρ ΠΠΈΡΠΎ, ΡΠΏΠ°ΡΠΈΠ±ΠΎ Π·Π° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ BUG 126 Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ GitHub. ΠΡΠΎ Π·Π΄ΠΎΡΠΎΠ²ΠΎ. ΠΡΠ½ΠΈ ( @oamarques ) ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π½Π°Π΄ #100. Π‘ΠΏΠ°ΡΠΈΠ±ΠΎ, ΡΡΠΎ ΠΏΠΎΠ΄Π΅Π»ΠΈΠ»ΠΈΡΡ Ρ Π½Π°ΠΌΠΈ ΡΠ²ΠΎΠΈΠΌ ΡΠ΅ΡΡΠΎΠ²ΡΠΌ ΠΊΠΎΠ΄ΠΎΠΌ. ΠΠ°, Π΅ΡΡΡ ΠΏΠ»Π°Π½ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠ΅ Π½Π°Π΄ Π½ΠΎΠ²ΡΠΌ Π½Π°Π±ΠΎΡΠΎΠΌ ΡΠ΅ΡΡΠΎΠ² Π΄Π»Ρ LAPACK, ΠΈ Π»ΡΠ±Π°Ρ Π½Π΅ΠΏΡΠΈΡΡΠ½Π°Ρ ΠΌΠ°ΡΡΠΈΡΠ° ΠΏΡΠΈΠ²Π΅ΡΡΡΠ²ΡΠ΅ΡΡΡ. Π£ Osni Π΅ΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎ ΡΠ°ΠΊΠΈΡ ΠΌΠ°ΡΡΠΈΡ, ΠΈ ΡΠ΅Π»Ρ ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ Π²ΡΡΠ°ΡΡΠΈΡΡ ΠΈΡ ΠΊΠΎΠ»Π»Π΅ΠΊΡΠΈΡ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΠΈΠ½ΡΡΠ°ΡΡΡΡΠΊΡΡΡΠΎΠΉ Π΄Π»Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π Π»ΡΠ±ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, ΡΠΏΠ°ΡΠΈΠ±ΠΎ Π·Π° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ BUG 126 Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ GitHub. ΠΡΠΎ Π·Π΄ΠΎΡΠΎΠ²ΠΎ. ΠΠ΄ΠΎΡΠΎΠ²ΡΡ, ΠΡΠ»ΡΠ΅Π½.
ΠΡΠ° ΠΎΡΠΈΠ±ΠΊΠ° ΡΠ²ΡΠ·Π°Π½Π° Ρ ΠΊΡΠΈΡΠ΅ΡΠΈΠ΅ΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΌ Π² DSTEMR, Π½Π°ΡΠΈΠ½Π°Ρ ΡΠΎ ΡΡΡΠΎΠΊΠΈ 606 Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΌ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ (ΠΊΠ°ΠΊ Π² LAPACK 3.7.0). ΠΡΠ½ΠΎΠ²ΡΠ²Π°ΡΡΡ Π½Π° Π²Ρ ΠΎΠ΄Π½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ TRYRAC, ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° DLARRR Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ INFO=1 (ΡΡΠΎ, ΠΊΠ°ΠΆΠ΅ΡΡΡ, ΠΏΡΠΎΡΠΈΠ²ΠΎΡΠ΅ΡΠΈΡ ΠΎΠΆΠΈΠ΄Π°Π΅ΠΌΠΎΠΌΡ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ DLARRR), ΡΡΠΎ Π²ΠΏΠΎΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ Π²ΡΠ΅Π΄ΠΎΠ½ΠΎΡΠ½ΠΎΠ΅ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠ΅ (ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΉ) ΡΡΠ΅Ρ Π΄ΠΈΠ°Π³ΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ ΠΌΠ°ΡΡΠΈΡΡ, ΠΏΠ΅ΡΠ΅Π΄Π°Π½Π½ΠΎΠΉ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π²Ρ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ . _ΠΡΠ»ΠΈ ΠΌΡ ΠΏΡΠΎΠΈΠ³Π½ΠΎΡΠΈΡΡΠ΅ΠΌ ΡΠΎ, ΡΡΠΎ Π΄Π΅Π»Π°Π΅Ρ DLARRR, ΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΠΌ IINFO=0 Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΏΠ΅ΡΠ΅Π΄ Β«Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΊΡΠΈΡΠ΅ΡΠΈΠΉ ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡΒ», Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΡΠ΅ Π²Π΅ΠΊΡΠΎΡΡ Π±ΡΠ΄ΡΡ ΠΎΡΡΠΎΠ³ΠΎΠ½Π°Π»ΡΠ½Ρ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ Π½ΠΎΠ²ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ DLARRF, ΡΠΌ. ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ 100. ΠΠ΄Π½Π°ΠΊΠΎ ΡΡΠΎ Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΌ ΠΈΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΡΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠΈ: ΠΌΡ Π½ΡΠΆΠ½ΠΎ Π²ΡΡΡΠ½ΠΈΡΡ, ΠΊΠ°ΠΊΠΈΠΌ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ΅ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ DLARRR._)
ΠΡΠΈΠ²Π΅Ρ, Π΅ΡΡΡ Π½ΠΎΠ²ΠΎΡΡΠΈ ΠΏΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠΈ?
@oamarques Π£ΡΡΡΠ°Π½ΡΠ΅Ρ Π»ΠΈ ΡΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ DSTEGR Π²ΠΌΠ΅ΡΡΠΎ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ DSTEMR?
@uihsnv : Ρ ΠΎΡΠΎΡΠΈΠΉ Π²ΠΎΠΏΡΠΎΡ. STEGR Π±ΠΎΠ»ΡΡΠ΅ Π½Π΅ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅ΡΡΡ. ΠΡΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ Ρ ΡΡΠΈΠΌ. ΠΡ ΡΠ°Π±ΠΎΡΠ°Π΅ΠΌ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°Π΄ STEMR ΠΈ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅ΠΌ Π΅Π³ΠΎ. ΠΠΎ, Π΄Π°, Π±ΡΠ»ΠΎ Π±Ρ Π½Π΅ΠΏΠ»ΠΎΡ ΠΎ ΠΏΠΎΡΠΌΠΎΡΡΠ΅ΡΡ, ΡΡΠΎ STEGR Π΄Π΅Π»Π°Π΅Ρ Ρ ΡΡΠΎΠΉ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠΎΠΉ.
@langou Π! ΠΠ΅ ΠΈΠΌΠ΅Π» ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ!! Π― ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΠ°ΡΡ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠΎΠ² STEGR Π² ΡΠ²ΠΎΠ΅ΠΌ ΠΊΠΎΠ΄Π΅. ΠΠΎΠ»ΠΆΠ΅Π½ Π»ΠΈ Ρ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π½Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ STEMR?
ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Ρ Π²Π½Π΅Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΠ΅ΡΡ, ΠΊΠΎΡΠΎΡΡΠΌ ΠΏΠΎΠ΄Π΅Π»ΠΈΠ»ΡΡ @miroi , ΠΈ Π΅ΡΠ»ΠΈ ΠΎΠ½ ΠΏΡΠΈΠΌΠ΅Ρ ΠΈΡ , Π²Ρ ΡΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΡΠ°Π·Π»ΠΈΡΠΈΡ.
Π― ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΠ°ΡΡ ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΠΎΠ² STEGR Π² ΡΠ²ΠΎΠ΅ΠΌ ΠΊΠΎΠ΄Π΅. ΠΠΎΠ»ΠΆΠ΅Π½ Π»ΠΈ Ρ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ Π½Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ STEMR?
Π― ΡΠ°ΠΊ Π΄ΡΠΌΠ°Ρ. Π― Π½Π°Π΄Π΅ΡΡΡ, ΡΡΠΎ @oamarques ΡΠΊΠΎΡΠΎ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡ ΡΡΠΎ Π²ΠΌΠ΅ΡΡΠ΅ Ρ Π½Π°ΠΌΠΈ.
ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, Ρ Π²Π½Π΅Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π² ΡΠ΅ΡΡ, ΠΊΠΎΡΠΎΡΡΠΌ ΠΏΠΎΠ΄Π΅Π»ΠΈΠ»ΡΡ @miroi , ΠΈ Π΅ΡΠ»ΠΈ ΠΎΠ½ ΠΏΡΠΈΠΌΠ΅Ρ ΠΈΡ , Π²Ρ ΡΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ²ΠΈΠ΄Π΅ΡΡ ΡΠ°Π·Π»ΠΈΡΠΈΡ.
ΠΡΠ»ΠΎ Π±Ρ Π·Π΄ΠΎΡΠΎΠ²ΠΎ ΠΏΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ ΠΌΠΎΠ΄ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌ ΡΠ΅ΡΡΠΎΠΌ Ρ @oamarques.
ΠΡΠΈΠ²Π΅Ρ, Π΅ΡΡΡ Π½ΠΎΠ²ΠΎΡΡΠΈ ΠΏΠΎ ΠΏΠΎΠ²ΠΎΠ΄Ρ ΡΡΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠΈ? Π ΠΏΠΎΡΠ΅ΠΌΡ ΠΎΠ½ Π±ΡΠ» ΠΏΠΎΠΌΠ΅ΡΠ΅Π½ ΠΊΠ°ΠΊ Β«ΠΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΡΒ»?
Π’Π΅ΠΌ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅, ΡΠ²Π΅ΠΆΠΈΠΉ lapack Π²ΡΠ΄Π°Π΅Ρ ΡΡΡ ΠΎΡΠΈΠ±ΠΊΡ (ΠΏΡΠΎΠ²Π΅ΡΠ΅Π½ΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ gfortran 4.9.2, https://github.com/miroi/lapack-dsyevr-test):
~~~
ΠΠΎΠ±ΡΠΎ ΠΏΠΎΠΆΠ°Π»ΠΎΠ²Π°ΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Π΄ΠΈΠ°Π³ΠΎΠ½Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ DIRAC!
ΡΠΈΡΠ°ΡΡ N = 9 NZ = 1
ΠΌΠ°ΡΡΠΈΡΠ° Π΄Π»Ρ Π΄ΠΈΠ°Π³ΠΎΠ½Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π±ΡΠ»Π° ΠΏΡΠΎΡΠΈΡΠ°Π½Π°
ΠΌΠ°ΡΡΠΈΠ²Ρ Π΄Π»Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ RS Π²ΡΠ΄Π΅Π»Π΅Π½Ρ
Π‘ΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ RS ΠΠΉΡΠΏΠ°ΠΊΠ°:
1 -1.5000000000000062
2 -1.5000000000000002
3 -1,4999999999999982
4 0,49999999999999772
5 0,49999999999999856
6 0,49999999999999994
7 0,50000000000000033
8 0,50000000000000122
9 2.4999999999999969
* ΠΠΠ‘ΠΠΠ Π Π‘ *
U^{+} A U - eps ?= 0> Π½ΠΎΡΠΌΠ°/Π΄ΠΈΠ°Π³:0.1912D-15 Π½ΠΎΡΠΌΠ°/Π²ΡΠΊΠ»Π΄ΠΈΠ°Π³:0.1008D-15
U^{+} U - I ?= 0> Π½ΠΎΡΠΌΠ°/Π΄ΠΈΠ°Π³:0.2344D-15 Π½ΠΎΡΠΌΠ°/ΠΎΡΠΊΠ» Π΄ΠΈΠ°Π³:0.7239D-16U U^{+} - I ?= 0> Π½ΠΎΡΠΌΠ°/Π΄ΠΈΠ°Π³:0.9869D-16 Π½ΠΎΡΠΌΠ°/Π²ΡΠΊΠ»Π΄ΠΈΠ°Π³:0.9320D-16
Π‘ΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ LAPACK DSYEVR:
1 -1.5000000000000056
2 -1.5000000000000009
3 -1,4999999999999973
4 0,49999999999999523
5 0,49999999999999867
6 0,49999999999999939
7 0,49999999999999950
8 0,50000000000000100
9 2.4999999999999862
*ΠΠΠΠΠ ΠΠ‘Π¬ΠΠΠ *
U^{+} A U - eps ?= 0> Π½ΠΎΡΠΌΠ°/Π΄ΠΈΠ°Π³:0.1807D-14 Π½ΠΎΡΠΌΠ°/Π²ΡΠΊΠ»Π΄ΠΈΠ°Π³:0.9012D-07
U^{+} U - I ?= 0> Π½ΠΎΡΠΌΠ°/Π΄ΠΈΠ°Π³:0.2591D-15 Π½ΠΎΡΠΌΠ°/ΠΎΡΠΊΠ» Π΄ΠΈΠ°Π³:0.1802D-06U U^{+} - I ?= 0> Π½ΠΎΡΠΌΠ°/Π΄ΠΈΠ°Π³:0.7543D-06 Π½ΠΎΡΠΌΠ°/ΠΎΡΠΊΠ» Π΄ΠΈΠ°Π³:0.4951D-06
Π‘ΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ LAPACK DSTEGR:
1 -1.5000000000000056
2 -1.5000000000000009
3 -1,4999999999999973
4 0,49999999999999523
5 0,49999999999999867
6 0,49999999999999939
7 0,49999999999999950
8 0,50000000000000100
9 2.4999999999999862
* LAPACK DSYTRD+DSTEGR *
U^{+} A U - eps ?= 0> Π½ΠΎΡΠΌΠ°/Π΄ΠΈΠ°Π³:0.1617D+01 Π½ΠΎΡΠΌΠ°/Π²ΡΠΊΠ»Π΄ΠΈΠ°Π³:0.1644D+00
U^{+} U - I ?= 0> Π½ΠΎΡΠΌΠ°/Π΄ΠΈΠ°Π³:0.1234D-15 Π½ΠΎΡΠΌΠ°/ΠΎΡΠΊΠ» Π΄ΠΈΠ°Π³:0.1802D-06U U^{+} - I ?= 0> Π½ΠΎΡΠΌΠ°/ Π΄ΠΈΠ°Π³:0.5411D-06 Π½ΠΎΡΠΌΠ°/ Π²ΡΠΊΠ»Π΄ΠΈΠ°Π³:0.2301D-06
~~~
ΠΡΠΈ ΠΏΠ΅ΡΠ΅ΡΠΈΡΡΠ²Π°Π½ΠΈΠΈ ΡΡΠΎΠ³ΠΎ ΠΊΠ°ΠΆΠ΅ΡΡΡ, ΡΡΠΎ ΠΈΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΠΈΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ #100, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π±ΡΠ»ΠΎ Π²ΡΠ·Π²Π°Π½ΠΎ ΠΏΠΎΠΏΡΡΠΊΠΎΠΉ ΠΈΡΠΏΡΠ°Π²ΠΈΡΡ Π±Π΅ΡΠΊΠΎΠ½Π΅ΡΠ½ΡΠΉ ΡΠΈΠΊΠ» (ΡΡΠ²ΡΡΠ²ΠΎ, ΡΡΠΎ Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΠ·ΠΈΡΡΡΡΡ Π½Π° ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ Ρ ΡΠΎΠΌΡΡ Π½ΠΈΠ·ΠΊΠΎΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ Π΄Π»Ρ ΡΠ΅Ρ , ΠΊΡΠΎ Π² ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π΅ Π²ΡΠ΅ΠΌΡ), ΠΈ Π²ΡΠ΅ ΡΡΠΎ ΠΏΡΠ΅Π²ΡΠ°ΡΠΈΠ»ΠΎΡΡ Π² Π±Π΅ΡΠΊΠΎΠ½Π΅ΡΠ½ΡΠΉ ΡΠΈΠΊΠ» ΡΠΎΠΌΠ½Π΅Π½ΠΈΡ Π² ΡΠΎΠΌ, ΠΊΠ°ΠΊΠΈΠΌ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΠ΄Π΅Π°Π»ΡΠ½ΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅. ΠΡΠΎ-Π½ΠΈΠ±ΡΠ΄Ρ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π»ΡΡ ΠΊ Π²Π΅ΡΡΠΈΠΈ 3.5.0 ΠΈ ΠΏΡΠΎΠ²Π΅ΡΡΠ», ΠΊΠ°ΠΊ Π²Π΅Π» ΡΠ΅Π±Ρ ΡΡΠΎΡ ΡΠ»ΡΡΠ°ΠΉ Π΄ΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠ»Π°Π³Π°, ΡΠΏΠΎΠΌΡΠ½ΡΡΠΎΠΉ Π² #100?
Π‘Π°ΠΌΡΠΉ ΠΏΠΎΠ»Π΅Π·Π½ΡΠΉ ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΉ
ΠΡΠ° ΠΎΡΠΈΠ±ΠΊΠ° ΡΠ²ΡΠ·Π°Π½Π° Ρ ΠΊΡΠΈΡΠ΅ΡΠΈΠ΅ΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΌ Π² DSTEMR, Π½Π°ΡΠΈΠ½Π°Ρ ΡΠΎ ΡΡΡΠΎΠΊΠΈ 606 Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΌ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ (ΠΊΠ°ΠΊ Π² LAPACK 3.7.0). ΠΡΠ½ΠΎΠ²ΡΠ²Π°ΡΡΡ Π½Π° Π²Ρ ΠΎΠ΄Π½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ TRYRAC, ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° DLARRR Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ INFO=1 (ΡΡΠΎ, ΠΊΠ°ΠΆΠ΅ΡΡΡ, ΠΏΡΠΎΡΠΈΠ²ΠΎΡΠ΅ΡΠΈΡ ΠΎΠΆΠΈΠ΄Π°Π΅ΠΌΠΎΠΌΡ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ DLARRR), ΡΡΠΎ Π²ΠΏΠΎΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ Π²ΡΠ΅Π΄ΠΎΠ½ΠΎΡΠ½ΠΎΠ΅ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠ΅ (ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΉ) ΡΡΠ΅Ρ Π΄ΠΈΠ°Π³ΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ ΠΌΠ°ΡΡΠΈΡΡ, ΠΏΠ΅ΡΠ΅Π΄Π°Π½Π½ΠΎΠΉ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π²Ρ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ . _ΠΡΠ»ΠΈ ΠΌΡ ΠΏΡΠΎΠΈΠ³Π½ΠΎΡΠΈΡΡΠ΅ΠΌ ΡΠΎ, ΡΡΠΎ Π΄Π΅Π»Π°Π΅Ρ DLARRR, ΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΠΌ IINFO=0 Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ ΠΏΠ΅ΡΠ΅Π΄ Β«Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ ΠΊΡΠΈΡΠ΅ΡΠΈΠΉ ΡΠ°Π·Π΄Π΅Π»Π΅Π½ΠΈΡΒ», Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΡΠ΅ Π²Π΅ΠΊΡΠΎΡΡ Π±ΡΠ΄ΡΡ ΠΎΡΡΠΎΠ³ΠΎΠ½Π°Π»ΡΠ½Ρ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ Π½ΠΎΠ²ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ DLARRF, ΡΠΌ. ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ 100. ΠΠ΄Π½Π°ΠΊΠΎ ΡΡΠΎ Π½Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΌ ΠΈΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΡΠΎΠΉ ΠΎΡΠΈΠ±ΠΊΠΈ: ΠΌΡ Π½ΡΠΆΠ½ΠΎ Π²ΡΡΡΠ½ΠΈΡΡ, ΠΊΠ°ΠΊΠΈΠΌ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ΅ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ DLARRR._)