PROC (FIELD )FIELD field sqrt = long sqrt įORMAT field fmt = $g ( - (2 1 field prec ) ,field prec )$ ĮLSE 1. Works with: ALGOL 68G version Any - tested with release 1.18.0-9h.tiny. Put_Line ( "A:" ) Print (Example_2 ) Īda. Put_Line ( "A:" ) Print (Example_1 ) Īda. Real_Matrix (Example_1' Range ( 1 ),Įxample_2 : constant Ada. Real_Matrix ) isĮxample_1 : constant Ada. Package Real_Decomposition is new Decomposition Sqrt (A (A'First ( 1 ) K, A'First ( 2 ) K ) - S ) L (L'First ( 1 ) K, L'First ( 2 ) J ) Order : constant Positive := A'Length ( 1 ) decompose a square matrix A by A = L * Transpose (L)
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |