เหตุใดฉันจึงไม่สามารถประเมินอินทิกรัลที่แน่นอนสองตัวแปรนี้ได้
Aug 16 2020
ฉันต้องการใช้ฟังก์ชัน x โดยตรงเพื่อค้นหาค่าที่แน่นอนของอินทิกรัลที่แน่นอนสองตัวแปรต่อไปนี้:
reg = ImplicitRegion[x^2 + y^2 <= 1 && x >= 0, {x, y}];
(* the answer should be π/2*Log[2] *)
Integrate[(1 + x*y)/(1 + x^2 + y^2), Element[{x, y}, reg]]
ปริพันธ์สองตัวแปรนี้ไม่ซับซ้อน แต่สูตรข้างต้นจะคืนค่าตามที่เป็นอยู่ ฉันต้องการทราบว่าปัญหาอยู่ที่ไหนและฉันควรแก้ไขอย่างไร
NIntegrate[(1 + x*y)/(1 + x^2 + y^2), Element[{x, y}, reg]]
(*1.08879304515*)
คำตอบ
8 cvgmt Aug 16 2020 at 11:03
Integrate[(1 + x*y)/(1 + x^2 + y^2), {x, y} ∈ Disk[{0, 0}, 1, {-π/2, π/2}]]
7 J.M.'stechnicaldifficulties Aug 16 2020 at 10:56
เราสามารถใช้ข้อกำหนดภูมิภาคอื่นได้:
reg = RegionIntersection[Disk[], HalfPlane[{0, 0}, {0, 1}, {1, 0}]];
Integrate[(1 + x y)/(1 + x^2 + y^2), {x, y} ∈ reg]
1/2 π Log[2]
หรือเปลี่ยนเป็นพิกัดเชิงขั้ว:
Simplify[((1 + x y)/(1 + x^2 + y^2) /. Thread[{x, y} -> r AngleVector[θ]])
Det[D[r AngleVector[θ], {{r, θ}}]]]
(r + r^3 Cos[θ] Sin[θ])/(1 + r^2)
Integrate[(r + r^3 Cos[θ] Sin[θ])/(1 + r^2), {r, 0, 1}, {θ, -π/2, π/2}]
1/2 π Log[2]