1
การลด NExpectation สำหรับการแจกจ่ายแบบกำหนดเองใน Mathematica
สิ่งนี้เกี่ยวข้องกับคำถามก่อนหน้านี้จากย้อนกลับไปในเดือนมิถุนายน: การคำนวณความคาดหวังสำหรับการแจกแจงแบบกำหนดเองใน Mathematica ฉันมีการกระจายแบบผสมที่กำหนดเองโดยใช้การแจกแจงแบบกำหนดเองที่สองตามด้วยบรรทัดที่กล่าวถึง@Sashaในคำตอบจำนวนหนึ่งในปีที่ผ่านมา รหัสที่กำหนดการแจกแจงดังนี้: nDist /: CharacteristicFunction[nDist[a_, b_, m_, s_], t_] := (a b E^(I m t - (s^2 t^2)/2))/((I a + t) (-I b + t)); nDist /: PDF[nDist[a_, b_, m_, s_], x_] := (1/(2*(a + b)))*a* b*(E^(a*(m + (a*s^2)/2 - x))* Erfc[(m + a*s^2 - x)/(Sqrt[2]*s)] + …