2
$\begingroup$
(* 5.3  1 *)
X = {x, 1 - x}
Y = {y, 1 - y}
A = {{2, -1}, {0, 1}}
B = {{-3, 3}, {1, -2}}
f1[x_, y_] = X.A.Y
f2[x_, y_] = X.B.Y
(* Print["Pago del Row Player en Eq-> ",f1[3/5,1/2]]
Print["Pago del Col Player en Eq-> ",f2[3/5,1/2]] *)
Manipulate[

 ParametricPlot[{f1[x, y], f2[x, y]}, {x, 0, 1}, {y, 0, 1}, 
  PerformanceGoal -> "Quality",

  Epilog -> {Red, PointSize -> .036, Point[{f1[p, q], f2[p, q]}]}],

 Style["Representación de los pagos de Prisionero 1(abscisas) y \
Prisionero 2 (ordenadas) en el Dilema del Prisionero", 11, Bold],
 Delimiter,

 Style["Prisionero 1 juega la estrategia mixta(p,1-p), con el valor \
de p indicado a continuación", 10, Darker@Blue],
 {{p, 0}, 0, 1, Appearance -> "Open"},
 Delimiter,

 Style["Prisionero 2 juega la estrategia mixta(q,1-q), con el valor \
de q indicado a continuación", 10, Darker@Orange],
 {{q, 0}, 0, 1, Appearance -> "Open"},
 Delimiter,

 Style["Valores MAXIMIN", 11, Bold, Darker@Black],
 (*Style["Valor Maximin para Norm: 5/6",10,Darker@Gray],
 Style["Valor Maximin para Cliff: 5/6",10,Darker@Gray],*)

 Delimiter,
 Style["Estrategias de Equilibrio", 11, Bold, Darker@Black],
 Delimiter,
 Style["Nota.- Los años de carcel son los valores absolutos de lo \
indicado en los ejes. Se indican en negativo porque es algo \
malo/negativo", 10, Darker@Black],
 Style["Creado por Rafael Sanmartín", 10, 
  Darker@Black],

 ControlPlacement -> Left, SaveDefinitions -> True

 ]

Mathematica graphics

I tried to add any point after Epilog, but I can't.

I want to add, for example, the points $(2,-3)$, $(-1,3)$, and $(0,1)$ or $(f_1(0.5), f_2(0.5))$ and $(f_1(0.4), f_2(0.3))$.

$\endgroup$
3
  • 1
    $\begingroup$ (f1[0.5],... yet you have f1[x_, y_] ...? Points such as Point[{2, -3}] are easily added to the Epilog expression... $\endgroup$
    – cormullion
    Dec 21, 2013 at 18:36
  • $\begingroup$ \cormullion I can´t add points. I don´t know how to do that. I trid but no success $\endgroup$
    – Mika Ike
    Dec 21, 2013 at 19:12
  • 1
    $\begingroup$ use Point[{{f1[p, q], f2[p, q]},{2, -3}, {-1, 3} , {0, 1}}] $\endgroup$ Dec 21, 2013 at 19:27

1 Answer 1

2
$\begingroup$

Try this:

Epilog -> {Red, PointSize[.036], 
Point[{f1[p, q], f2[p, q]}], Blue, 
Point[{{2, -3}, {-1, 3} , {0, 1}}]}

I admit I was surprised that Mathematica refused to accept:

Epilog -> {Red, PointSize[.036], {
Point[{f1[p, q], f2[p, q],{2, -3}, {-1, 3} , {0, 1}}]}
$\endgroup$
1
  • $\begingroup$ f1[p, q] and f2[p, q] are scalars. So, of course you can't use Point[{f1[p, q], f2[p, q],{2, -3}, {-1, 3} , {0, 1}}], you must use Point[{{f1[p, q], f2[p, q]},{2, -3}, {-1, 3} , {0, 1}}]. $\endgroup$ Dec 21, 2013 at 19:23

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.