作為練習，我正在撰寫一個 PL/pgSQL 函式，它實作了拉普拉斯定理來計算行列式，然后在呼叫時列印解決方案。我是這門語言的新手，找不到代碼有什么問題。我認為這個想法沒問題，也許有語法錯誤！幫助！
CREATE OR REPLACE FUNCTION remove(matriz float[][], linha integer, coluna integer) RETURNS float[][] AS
$$
DECLARE
i integer;
j integer;
k integer;
l integer;
resultante float[][];
BEGIN
resultante := array_fill(0, ARRAY[array_length(matriz, 1)-1, array_length(matriz, 2)-1]);
k = 0;
FOR i IN 1..array_length(matriz, 1) LOOP
l = 0;
FOR j IN 1..array_length(matriz, 1) LOOP
IF j != coluna THEN
resultante[k][l] = matriz[i][j];
l = l 1;
END IF;
END LOOP;
IF i != linha THEN
l = l 1;
END IF;
END LOOP;
RETURN resultante;
END;
$$ language plpgsql;
CREATE OR REPLACE FUNCTION determinant(matriz float[][], OUT produto float) AS
$$
DECLARE
i integer;
BEGIN
IF array_length(matriz, 1) <> array_length(matriz, 2) THEN
RAISE EXCEPTION 'matrix not quadratic.';
END IF;
produto = 0;
IF array_length(matriz, 1) = 2 THEN
produto = matriz[1][1] * matriz[2][2] - matriz[1][2] * matriz[2][1];
END IF;
IF array_length(matriz, 1) > 2 THEN
FOR i IN 1..array_length(matriz, 1) LOOP
produto = produto matriz[1][i] * (-1)^(0 (i-1)) * determinant(remove(matriz, 1, i));
END LOOP;
END IF;
END;
$$ language plpgsql;
SELECT determinant('{{1.0,7.0, 2.0, 4.0}, {2.0, 3.0, 5.0, 4.0}, {9.0, 1.0, 8.0, 2.0}, {4.0, 1.0, 1.0, 4.0}}');
結果：
[76:1] Failed in 0 s.
[Exception, Error code 0, SQLState 2202E] ERROR: array subscript out of range
Onde: fun??o PL/pgSQL remove(double precision[],integer,integer) linha 15 em atribui??o
fun??o PL/pgSQL determinante(double precision[]) linha 17 em atribui??o
Line 76, column 1
uj5u.com熱心網友回復：
你永遠不會改變k。另一方面，你增加l太多。
其中一個l = l 1（有兩個）應該是k = k 1.
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/359105.html
標籤：数组 PostgreSQL的 算法 多维数组 矩阵乘法
上一篇：帕斯卡三角函式