[mathematica] plot에 single point넣기

[ref] https://mathematica.stackexchange.com/questions/101660/how-to-put-single-points-inside-the-plot

Plot옵션에  Epilog -> {Blue, PointSize@Large, Point[{fpu, fpv}]}를 사용해주면 된다.

StreamPlot[{u ((1 - u - v) (fu[u, v, r] + b) - 

      d[1 - u - v, \[Beta], marginalD (1 + Exp[\[Beta] fpn])]), 

   v ((1 - u - v) (fv[u, v, r] + b) - 

      d[1 - u - v, \[Beta], 

       marginalD (1 + Exp[\[Beta] fpn])])} /. {\[Beta] -> 5, 

   r -> marginalR, \[Alpha] -> 0.5}, {u, 0, 0.1}, {v, 0, 0.1}, 

 Epilog -> {Blue, PointSize@Large, Point[{fpu, fpv}]}, 

 FrameLabel -> {"u", "v"}, StreamPoints -> Coarse, StreamScale -> 0.1]