用哪个软件可以作如下可行域图像？要有程序或者方法。

For each pair (p, q) of (independently chosen) mixed strategies we have the

following expected values of the utilities:

uA = uA(p, q) = 5 · p · q − 2 · p − 2 · q + 1

uB = uB(p, q) = 5 · p · q − 3 · p − 3 · q + 2

We plot for each pair (p, q) the pair of expected utilities (uA(p, q), uB(p, q)) in

a diagram; so we get Figure. To every pair (p, q) corresponds a point of

the area R.

用mathematica的ParametricPlot，notebook见附件。

matlab可以做，不懂可以问我，求论坛币呢

yunfenglibo 发表于 2015-11-5 23:18
matlab可以做，不懂可以问我，求论坛币呢

请问怎么做？能把这个图的程序给我吗？能用就给分。

hfghjkhfghjk 发表于 2015-11-6 04:52
请问怎么做？能把这个图的程序给我吗？能用就给分。

有答案了吗

toughxiaoqiang 发表于 2015-11-8 00:11
用mathematica的ParametricPlot，notebook见附件。

我以为没有解决，本想自己试一下。刚才下载看了一下，你的是正解。

问题解决了，为什么楼主还不消除，把问题仍挂在这？

toughxiaoqiang 发表于 2015-11-8 00:11
用mathematica的ParametricPlot，notebook见附件。

不好意思迟了几天回复。图像很完美，不过我还想请教一下如何修改坐标轴、填充（像例图一样）？如果有参考资料的话能发我一份吗？这是最后一个问题。谢谢。

hfghjkhfghjk 发表于 2015-11-10 19:33
不好意思迟了几天回复。图像很完美，不过我还想请教一下如何修改坐标轴、填充（像例图一样）？如果有参考 ...

用命令
ParametricPlot[{5 p q - 2 p - 2 q + 1, 5 p q - 3 p - 3 q + 2}, {p, 0,   1}, {q, 0, 1}, Frame -> False]
作图，去掉边框。然后，鼠标点击图形，右键打开Drawing tools对图进行编辑。可以添加文字和公式。图中的斜线可以逐一选择删除。
另外我tikz做了一个图，可以直接使用，供参考。

1. \begin{tikzpicture}[x=1.00mm, y=1.00mm, inner xsep=0pt, inner ysep=0pt, outer xsep=0pt, outer ysep=0pt]
   
2. \path[line width=0mm] (-1.12,-1.12) rectangle +(53.91,52.25);
   
3. \definecolor{L}{rgb}{0.827,0.827,0.827}
   
4. \definecolor{F}{rgb}{0.827,0.827,0.827}
   
5. \path[line width=-0.20mm, draw=L, fill=F] (0.00,2.40) .. controls (11.90,10.34) and (35.70,26.20) .. (47.60,34.13) .. controls (47.60,34.13) and (33.32,26.20) .. (25.39,23.03) .. controls (17.45,19.85) and (15.87,21.44) .. (31.73,50.00) .. controls (23.80,38.10) and (7.93,14.30) .. (0.00,2.40) -- cycle;
   
6. \definecolor{L}{rgb}{0,0,0}
   
7. \path[line width=0.08mm, draw=L] (0.00,2.40) .. controls (11.90,10.34) and (35.70,26.20) .. (47.60,34.13) .. controls (47.60,34.13) and (33.32,26.20) .. (25.39,23.03) .. controls (17.45,19.85) and (15.87,21.44) .. (31.73,50.00) .. controls (23.80,38.10) and (7.93,14.30) .. (0.00,2.40) -- cycle;
   
8. \path[line width=0.08mm, draw=L] (0.00,18.27) -- (47.60,18.27);
   
9. \path[line width=0.08mm, draw=L] (15.87,50.00) -- (15.87,2.40);
   
10. \path[line width=0.08mm, draw=L] (19.83,22.23);
    
11. \definecolor{T}{rgb}{0,0,0}
    
12. \draw[T] (9.92,12.32) node[anchor=base west]{\fontsize{5.62}{6.75}\selectfont \textcolor[rgb]{0, 0, 0}{R}};
    
13. \path[line width=0.08mm, draw=L] (47.60,18.27) -- (47.60,20.25);
    
14. \path[line width=0.08mm, draw=L] (31.73,18.27) -- (31.73,20.25);
    
15. \path[line width=0.08mm, draw=L] (15.87,34.13) -- (17.85,34.13);
    
16. \path[line width=0.08mm, draw=L] (15.87,50.00) -- (17.85,50.00);
    
17. \path[line width=0.08mm, draw=L] (0.00,18.27) -- (0.00,20.25);
    
18. \path[line width=0.08mm, draw=L] (15.87,2.40) -- (17.85,2.40);
    
19. \path[line width=0.08mm, draw=L] (47.60,20.25);
    
20. \draw[T] (28.75,16.29) node[anchor=base west]{\fontsize{5.62}{6.75}\selectfont \textcolor[rgb]{0, 0, 0}{Player 1's utility}};
    
21. \draw[T] (14.75,31.29) node[anchor=base west,rotate=90]{\fontsize{5.62}{6.75}\selectfont \textcolor[rgb]{0, 0, 0}{Player 2's utility}};
    
22. \path[line width=0.08mm, draw=L] (19.83,22.23);
    
23. \draw[T] (33.72,48.02) node[anchor=base west]{\fontsize{5.62}{6.75}\selectfont \textcolor[rgb]{0, 0, 0}{(1,2)}};
    
24. \draw[T] (47.60,32.15) node[anchor=base west]{\fontsize{5.62}{6.75}\selectfont \textcolor[rgb]{0, 0, 0}{(2,1)}};
    
25. \draw(23.00,27.00) node[anchor=base west]{\fontsize{5.62}{6.75}\selectfont $(\frac{1}{4},\frac{1}{4})$};
    
26. \path[line width=0.08mm, draw=L] (22.33,27.21) .. controls (21.33,26.21) and (20.14,23.80) .. (20.14,22.80);
    
27. \definecolor{F}{rgb}{0,0,0}
    
28. \path[line width=0.08mm, draw=L, fill=F] (20.14,22.80) -- (20.51,23.58) -- (20.27,23.42) -- (20.10,23.67) -- (20.14,22.80) -- cycle;
    
29. \path[line width=0.08mm, draw=L, fill=F] (19.95,22.33) circle (0.20mm);
    
30. \draw[T] (1.98,0.42) node[anchor=base west]{\fontsize{5.62}{6.75}\selectfont \textcolor[rgb]{0, 0, 0}{(-1,-1)}};
    
31. \end{tikzpicture}%

复制代码

toughxiaoqiang 发表于 2015-11-10 22:57
用命令
ParametricPlot[{5 p q - 2 p - 2 q + 1, 5 p q - 3 p - 3 q + 2}, {p, 0,   1}, {q, 0, 1}, Fra ...

非常感谢~