โดยทั่วไปแล้วเราจะปรึกษากระดาษหรือหนังสือเพื่อหาจุดรวมและน้ำหนักสำหรับหน่วยสามเหลี่ยมและเตตราฮัดรา ฉันกำลังมองหาวิธีในการคำนวณคะแนนและน้ำหนักดังกล่าวโดยอัตโนมัติ ตัวอย่างโค้ดMathematicaต่อไปนี้คำนวณน้ำหนักและคะแนนการรวมสำหรับองค์ประกอบหน่วยบรรทัด (รูปสี่เหลี่ยม / รูปหกเหลี่ยม):
unitGaussianQuadraturePoints[points_] :=
Sort[x /.
Solve[Evaluate[LegendreP[points, x] == 0], {x}], !
OrderedQ[N[{#1, #2}]] &];
unitGaussianQuadratureWeights[points_] :=
Module[{gps, f, int, integr, vars, eqns},
gps = unitGaussianQuadraturePoints[points];
f[0, 0] := 1;
f[0., 0] := 1.;
f[x_, n_] := x^n;
int = Integrate[f[x, #], x] & /@ Range[0, points - 1];
integr = Subtract @@@ (int /. x :> {1, -1});
vars = Table[Unique[c], {Length[gps]}];
eqns =
Table[Plus @@ Thread[Times[vars, f[#, i - 1] & /@ gps]] ==
integr[[i]], {i, points}];
Return[(vars /. Solve[eqns, vars])];];
unitGaussianQuadratureWeights[2]
{{1, 1}}
unitGaussianQuadraturePoints[2]
{1/Sqrt[3], -(1/Sqrt[3])}
ฉันกำลังมองหากระดาษ / หนังสือที่อธิบายถึงอัลกอริทึมวิธีการนี้ทำสำหรับสามเหลี่ยมและ / หรือเตตราดรา ใครช่วยชี้ให้ฉันเห็นข้อมูลบางอย่างเกี่ยวกับเรื่องนี้ ขอบคุณ
คุณเคยเห็นเหตุการณ์นี้บ้างไหม?
—
JM
ในกรณีที่ว่านี่คือวิธีการที่ว่างานเนื่องจาก Golub และ
—
JM
Transpose[MapAt[2(First /@ #)^2 &, Eigensystem[SparseArray[{Band[{2, 1}] -> #, Band[{1, 2}] -> #}, {n, n}]], {2}]] &[Table[k/Sqrt[(2 k - 1)(2 k + 1)], {k, n - 1}]]Welsch:
{points, weights} = MapThread[Map, {{2 # - 1 &, 2 # &}, Most[NIntegrate`GaussRuleData[n, prec]]}]: