假设Px和Py分别表示X和Y商品的价格，当边际替代率MRSxy Pxbr y，消费者为达到 最大效用，他将会（ ）。

答案：B

当 MRSxy Pxbr /y 时，假设 MRSxy=05/l，Pxbr /y = l/l，则在市场上消费 者减少1单位的商品X的购买，就可以增加1单位的商品Y的购买。从不等式的左边来看， 消费者的偏好认为，在减少1单位的商品X时，只需要增加0 5单位的商品Y，就可以维持原 有的满足程度。这样消费者因多得到0 5单位的商品Y而使总效应增加。所以在这种情况 下，理性的消费者必然会不断减少对X商品的购买和增加对Y商品的购买，以便获得最大 效用。

1、首先在资源管理器里复制一下py文件存放的路径，按下windows键＋r，在运行里输入cmd，回车打开命令行：

2、在命令行里，先切换到py文件的路径下面，接着输入“python  文件名py ”运行python文件：

3、按下回车键，可以看到窗口中py文件开始运行了，注意在命令行运行py文件，要将python安装路径添加到环境变量path中，否则会报错，找不到命令。至此python运行文件的操作就完成了：

一、通过cmd运行

在命令提示符窗口中首先进入py命令所在的文件夹。本例中使用的py命令位于e盘根目录下。dos命令中切换根目录直接输入驱动器盘符即可。如图所示：

直接键入python xxpy后回车确认。得到正确的运行结果。本例是个最简单的hello，world！的程序，运行后在命令行窗口中显示该串字符。如图所示：

二、使用IDEL打开

打开idel，点击界面菜单栏File中的Open，弹出py文件所在目录，选择要运行的文件。

进入文件编辑界面，点击菜单栏Run中的Run Module或直接点击F5即可运行程序。

运行结果如下：

更多Python相关技术文章，请访问Python教程栏目进行学习！以上就是小编分享的关于python保存程序后怎么运行的详细内容希望对大家有所帮助，更多有关python教程请关注环球青藤其它相关文章！

阁下是做游戏辅助工具吧，我有例子，思路很简单。

区域找物可以看做区域找色，物上总有一些点的颜色是和别的地方不同的，遍历某区域分析色值计算容差，如何和目标的容差在一定范围即是找到了

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

x As Long

y As Long

End Type

Dim lpPoint As POINTAPI

Dim env As Boolean

'lpx,lpy为起始点坐标，cle为扫描圈数，m一般取0，sdc为目标色值

Private Sub saomiao(lpx As Long, lpy As Long, cle As Integer, m As Long, sdc As Long)

Sleep 700

Dim x1 As Long, y1 As Long, sm As Long

For cir = 1 To cle

x1 = lpx - cir 30: y1 = lpy - cir 30

Do

sm = sm + 1

If sm Mod 100 = 0 Then DoEvents

en: dc = GetDC(0): s = GetPixel(dc, x1, y1) '获得(x,y)的颜色

If s = m Then env = True: Exit Sub

If s = sdc Then SetCursorPos x1, y1 + 90: MsgBox ("找到"): env = True: Call leftdown: Exit Sub

If cir = 0 Then Exit Do

If y1 = lpy - cir 30 Or y1 = lpy + cir 30 Then x1 = x1 + 30 '首末两行

If x1 = lpx + cir 30 + 30 And y1 = lpy - cir 30 Then x1 = lpx - cir 30: y1 = lpy + cir 30 '首行结束

If x1 = lpx + cir 30 + 30 And y1 = lpy + cir 30 Then x1 = lpx - cir 30: y1 = lpy - cir 30 + 30: GoTo en '末行结束

If cir = 1 And x1 = lpx - cir 30 And y1 = lpy - cir + 30 Then x1 = lpx + cir 30: y1 = lpy - cir 30 + 30 'n=1特殊情况

If cir <> 1 And y1 > lpy - cir 30 And y1 < lpy + cir 30 Then y1 = y1 + 30 '行数递加

If x1 = lpx - cir 30 And y1 = lpy + cir 30 - 30 Then SetCursorPos x1, y1: x1 = lpx + cir 30: y1 = lpy - cir 30 + 30: GoTo en '进入尾列

If x1 = lpx + cir 30 And y1 = lpy + cir 30 - 30 Then SetCursorPos x1, y1 '事件

Loop Until x1 = lpx + cir 30 And y1 = lpy + cir 30 - 30

Next cir

If env = False Then MsgBox ("找不到")

End Sub

这个函数有点长，主要是从指定区域找的算法过程稍微复杂一点，因为高效的办法自然是像以该点圆心，不断增大半径依次画圆式的寻找，如果是从某点一行一行扫描显然并非高效的，这里是从指定点开始依次画正方形扩大扫描范围。

Private Sub Command1_Click()

saomiao 700, 525, 70, 0, 16777215 '调用例子

End Sub

'分离颜色例子

Private Sub Timer1_Timer()

Dim s As Long, r As Long, g As Long, b As Long

Dim dc As Long, s As Long

GetCursorPos lpPoint

dc = GetDC(0) '获得屏幕的DC句柄

s = GetPixel(dc, lpPointx, lpPointy) '获得(x,y)的颜色

r = s Mod 256 '分离出红色

g = (s \ 256) Mod 256 '分离出绿色

b = s \ 256 \ 256 '分离出蓝色

Label1BackColor = RGB(r, g, b)

Print r, g, b

End Sub