LU decomposition: Difference between revisions

Content added Content deleted
m (→‎{{header|Ada}}: add Ada version)
m (→‎{{header|Ada}}: add "constant" to example matrices)
Line 293: Line 293:
end Print;
end Print;


Example_1 : Ada.Numerics.Real_Arrays.Real_Matrix :=
Example_1 : constant Ada.Numerics.Real_Arrays.Real_Matrix :=
((1.0, 3.0, 5.0),
((1.0, 3.0, 5.0),
(2.0, 4.0, 7.0),
(2.0, 4.0, 7.0),
Line 299: Line 299:
P_1, L_1, U_1 : Ada.Numerics.Real_Arrays.Real_Matrix (Example_1'Range (1),
P_1, L_1, U_1 : Ada.Numerics.Real_Arrays.Real_Matrix (Example_1'Range (1),
Example_1'Range (2));
Example_1'Range (2));
Example_2 : Ada.Numerics.Real_Arrays.Real_Matrix :=
Example_2 : constant Ada.Numerics.Real_Arrays.Real_Matrix :=
((11.0, 9.0, 24.0, 2.0),
((11.0, 9.0, 24.0, 2.0),
(1.0, 5.0, 2.0, 6.0),
(1.0, 5.0, 2.0, 6.0),