周恒（zhouheng1212 ）的窝！(粗体字文章别删)

zhouheng1212

*********************************************\
*               *
*  寻找凸包 graham 扫描法       *
*               *
*       copyright starfish    *
*         2000/10/24    *
*               *
\*********************************************/

#include <cstdio>
#include <algorithm>
#include <cassert>
#include <iostream>
#include <cmath>
#include <ctime>
#include <bitset>
#include <stdlib.h>
#include <stddef.h>
#include <float.h>
#include "geometry.h"

#define input "graham.in"  //Input file name
#define output "graham.out"  //Output file name
#define max_points 100

FILE *fin,*fout;
int probN=0,n;
TPoint PointSet[max_points],ch[max_points];

int read_case()
{
int i;
if (feof(fin)) return 0;
fscanf(fin,"%d",&n);
if (n==0) return 0;
for (i=0;i<n;i++)
  fscanf(fin,"%f %f",&PointSet[i].x,&PointSet[i].y);
return 1;
}

void solve_case()
{
int i,len;

Graham_scan(PointSet,ch,n,len);
fprintf(fout,"%d\n",len);
for (i=0;i<len;i++)
fprintf(fout,"%d %d\n",(int)ch[i].x,(int)ch[i].y);
}

int main()
{
assert(fin=fopen(input,"r"));
assert(fout=fopen(output,"w")); //if there is no output file, comment thi
s line
while (read_case()) solve_case();
fclose(fin);
fclose(fout);        //if there is no output file, comment this
line
return 0;
}

☆──────────────────────────────────────☆
   chenxi2003 (晨曦) 于  2003年07月20日20:09:56 星期天 提到:

/*********************************************\
*               *
*   测试计算几何学的库函数      *
*               *
*  判断点是否在多边形内 InsidePolygon()   *
*               *
*       copyright starfish    *
*         2000/10/24    *
*               *
\*********************************************/

#include <stdio.h>
#include <iostream.h>
#include <assert.h>
#include <math.h>
#include <stdlib.h>
#include "geometry.h"

#define input "InsidePolygon.in"  //Input file name
#define output "InsidePolygon.out"  //Output file name
#define max_points 50

FILE *fin,*fout;
int probN=0,n;
TPoint p,Polygon[max_points];

int read_case()
{
int i,j,k;
if (feof(fin)) return 0;
fscanf(fin,"%d\n",&n);
if (n==0) return 0;
probN++;
for (i=0;i<n;i++)
  fscanf(fin,"%f,%f",&Polygon[i].x,&Polygon[i].y);
fscanf(fin,"%f,%f" ,&p.x,&p.y);
return 1;
}

void solve_case()
{
fprintf(fout,"Case %d:\n",probN);
fprintf(fout,"The point is %sin the polygon!\n",(InsidePolygon(n,Polygon,p)
?"":"not "));
}

int main()
{
assert(fin=fopen(input,"r"));
assert(fout=fopen(output,"w")); //if there is no output file, comment thi
s line
while (read_case()) solve_case();
fclose(fin);
fclose(fout);        //if there is no output file, comment this
line
return 0;
}

☆──────────────────────────────────────☆
   chenxi2003 (晨曦) 于  2003年07月20日20:10:21 星期天 提到:

/*********************************************\
*               *
*   测试计算几何学的库函数      *
*               *
*  判断两条线段是否相交  intersect(l1,l2) *
*               *
*       copyright starfish    *
*         2000/10/24    *
*               *
\*********************************************/

#include <stdio.h>
#include <iostream.h>
#include <assert.h>
#include <math.h>
#include <stdlib.h>
#include "geometry.h"

#define input "intersect.in"  //Input file name
#define output "intersect.out"  //Output file name

FILE *fin,*fout;
int probN=0;
TLineSeg l1,l2;

int read_case()
{
int i,j,k;
if (feof(fin)) return 0;
fscanf(fin,"%f %f %f %f %f %f %f %f",&l1.a.x,&l1.a.y,&l1.b.x,&l1.b.y,&l2.a.
x,&l2.a.y,&l2.b.x,&l2.b.y);
if ((l1.a.x==l1.a.y)&&(l1.a.y==l1.b.x)&&(l1.b.x==l1.b.y)&&(l1.b.y==l2.a.x)&
&(l2.a.x==l2.a.y)&&(l2.a.y==l2.b.x)&&(l2.b.x==l2.b.y)&&(l2.b.y==0)) return 0;

probN++;
return 1;
}

void solve_case()
{
fprintf(fout,"Case %d:\n",probN);
fprintf(fout,"Line ((%0.2f,%0.2f),(%0.2f,%0.2f)) and ((%0.2f,%0.2f),(%0.2f,
%0.2f)) are %sintersect.\n",
     l1.a.x,l1.a.y,l1.b.x,l1.b.y,l2.a.x,l2.a.y,l2.b.x,l2.b.y,(intersect(
l1,l2)?"":"not "));
}

int main()
{
assert(fin=fopen(input,"r"));
assert(fout=fopen(output,"w")); //if there is no output file, comment thi
s line
while (read_case()) solve_case();
fclose(fin);
fclose(fout);        //if there is no output file, comment this
line
return 0;
}

☆──────────────────────────────────────☆
   chenxi2003 (晨曦) 于  2003年07月20日20:10:39 星期天 提到:

/********************************************\
*                *
*  计算多边形的面积        *
*                *
*   要求按照逆时针方向输入多边形的顶点 *
*                *
*        copyright starfish  *
*           2000/10/24   *
*                *
\********************************************/

#include <stdio.h>
#include <iostream.h>
#include <assert.h>
#include <math.h>
#include <stdlib.h>

#define input "polygon.in"  //Input file name
#define output "polygon.out"  //Output file name
#define maxn 5      // amx count of vertexes

FILE *fin,*fout;
int probN=0,n;
float x[maxn],y[maxn];

int read_case()
{
int i,j,k;
if (feof(fin)) return 0;
fscanf(fin,"%d\n",&n); //read the count of the vertexes
if (n==0) return 0;
probN++;
for (i=0;i<n;i++) fscanf(fin,"%f %f\n",&x[i],&y[i]); //read the vertexes, w
hich must be in the anticlockwise
return 1;
}

//calculate the area of a polygon;the vertexes should be in anticlockwise orde
r

float area_of_polygon(int vcount,float x[],float y[])
{
  int i;
  float s;
  if (vcount<3) return 0;
  s=y[0]*(x[vcount-1]-x[1]);
  for (i=1;i<vcount;i++)
   s+=y[i]*(x[(i-1)]-x[(i+1)%vcount]);
  return s/2;
}

void solve_case()
{
fprintf(fout,"Case %d\nThe area of polygon is %0.3f\n\n",probN,area_of_poly
gon(n,x,y));
}

int main()
{
assert(fin=fopen(input,"r"));
assert(fout=fopen(output,"w")); //if there is no output file, comment thi
s line
while (read_case()) solve_case();
fclose(fin);
fclose(fout);        //if there is no output file, comment this
line
return 0;
}

☆──────────────────────────────────────☆
   chenxi2003 (晨曦) 于  2003年07月20日20:11:10 星期天 提到:

/*********************************************\
*               *
*   测试计算几何学的库函数      *
*               *
*  判断两条线段是否相交  intersect(l1,l2) *
*               *
*       copyright starfish    *
*         2000/10/24    *
*               *
\*********************************************/

#include <stdio.h>
#include <iostream.h>
#include <assert.h>
#include <math.h>
#include <stdlib.h>
#include "geometry.h"

#define input "test_geometry.in"  //Input file name
#define output "test_geometry.out"  //Output file name

FILE *fin,*fout;
int probN=0;

int read_case()
{
int i,j,k;
if (feof(fin)) return 0;

return 1;
}

void solve_case()
{
int i,j,k;

}

int main()
{
assert(fin=fopen(input,"r"));
assert(fout=fopen(output,"w")); //if there is no output file, comment thi
s line
while (read_case()) solve_case();
fclose(fin);
fclose(fout);        //if there is no output file, comment this
line
return 0;
}

☆──────────────────────────────────────☆
   jerry (Super Vegetable Bird) 于  2003年07月20日21:20:18 星期天 提到:

starfish 的算法有些是错的，我很早的时候就写信问过他那些错误。
他说这个网站是他很早建的，上面很多东西是错的，但是他现在忘记了密码，
所以也不能够去调整。这些东西还是要自己写的。

zhouheng1212

19. 以字符串形式由键盘输入两个高精度的8进制正整数，串长小于255，
以
第一个数为被除数，第二个数为除数，进行高精度除法运算，并显示按 8 进制
表
示的商和余数。
program lxw019;
const
str2:string[32]='000 001 010 011 100 101 110 111 ';
str8:string[32]='0 1 2 3 4 5 6 7 ';
var a1,a2: string;
flag2:boolean; i:integer;
function s8to2(s8:string):string;
var i,j:integer; s:string;
begin
s:='';
for i:=1 to length(s8) do
begin
j:=-3;
repeat j:=j+4 until str8[j]=s8;
s:=s+copy(str2,j,3)
end;
s8to2:=s
end;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
function s2to8(s2:string):string;
var i,j:integer; s,t: string;
begin
while (length(s2) mod 3)>0 do s2:='0'+s2; s:='';
for i:=1 to (length(s2) div 3) do
begin
t:=copy(s2,1,3); delete(s2,1,3);
j:=-3;
repeat j:=j+4 until copy(str2,j,3)=t;
s:=s+str8[j]
end;
s2to8:=s
end;
procedure minus(a,b:string; var c:string; var flag:boolean);
var i,i1,j,lb:integer;
begin
flag:=true; lb:=length(b);
while length(a)<lb do a:='0'+a;
while (length(a)>lb) and (a[1]='0') do delete(a,1,1);
if (a<b) and (length(a)=lb)
then begin flag:=false; exit end;
c:='';
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
for i:=lb downto 1 do
begin
i1:=i;
if length(a)>lb then i1:=i+1;
if a[i1]=b then c:='0'+c
else if a[i1]>b then c:='1'+c
else begin
j:=i1;
repeat
a[j]:=succ(succ(a[j]));
a[j-1]:=pred(a[j-1]);
j:=j-1;
until a[j]='0';
c:='1'+c
end;
end;
while (c[1]='0') and (length(c)>1) do delete(c,1,1)
end;
procedure divid(a,b:string);
var c,d,e:string;
flag:boolean; lb:integer;
begin
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
while (b[1]='0')and(length(b)>0) do delete(b,1,1);
lb:=length(b);
if lb=0 then begin
writeln('数据错: 除数为零 !');
exit
end;
d:=copy(a,1,lb-1); delete(a,1,lb-1); c:='';
if length(a)>0 then
repeat
d:=d+a[1]; delete (a,1,1);
minus(d,b,e,flag);
if not flag then c:=c+'0'
else begin c:=c+'1'; d:=e; end;
until length(a)=0;
if c='' then c:='0';
e:=s2to8(c);
while (e[1]='0') and (length(e)>1) do delete(e,1,1);
writeln(e);
e:=s2to8(d);
while (e[1]='0') and (length(e)>1) do delete(e,1,1);
writeln('..........',e);
end;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
begin{main}
repeat
flag2:=true;
writeln('输入被除数 (0..7, <=250 位):'); readln(a1);
for i:=1 to length(a1) do
if not(a1 in ['0'..'7']) then flag2:=false;
writeln('输入除数 (0..7, <=250 位):'); readln(a2);
for i:=1 to length(a2) do
if not(a2 in ['0'..'7']) then flag2:=false;
if not flag2 then writeln('数据错(只能使用数字 0-7), 重新输入 !')
until flag2;
writeln; writeln('计算结果:');
writeln(a1,' / ');
writeln(a2,' =');
a1:=s8to2(a1); a2:=s8to2(a2);
divid(a1,a2)
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
20. (八数码问题) 8个编有数码1￣8的滑牌，能在3＊3的井字格中滑动。
井
字格中有一格是空格，用0表示，因而空格周围的数码滑牌都可能滑到空格中去.
下图是数码滑牌在井字格中的两种状态:
┎─┬─┬─┒ ┏━┯━┯━┓
┃2 │8 │3 ┃ ┃1 │2 │3 ┃
┠─┼─┼─┨ ┠─┼─┼─┨
┃1 │6 │4 ┃ －－－－＞ ┃8 │0 │4 ┃
┠─┼─┼─┨ ┠─┼─┼─┨
┃7 │0 │5 ┃ ┃7 │6 │5 ┃
┗━┷━┷━┛ ┗━┷━┷━┛
初始状态 目标状态
以左图为初始状态，右图为目标状态，请找出从初始状态到目标状态的滑牌移步
序
列，具体要求:
（1）输入初始状态和目标状态的数据；
a、分别用两行输入上述两项数据:
b、对输入数据应有查错和示错功能；
（2）实现从初始状态到目标状态的转换（如不能实现，程序应输出不能实
现
的提示信息）；
（3）输出结果，每移动一步都必须在屏幕上显示:
a、移动每一步时的序号，最后一步的序号即为移动总步数；
b、每一步移动后以3＊3表格形式显示状态。
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
（4）要求能使移动步数尽可能少；
program lxw020;
uses crt;
type a33=array [1..3,1..3] of byte;
a4=array [1..4] of shortint;
node=record
ch:a33;
si,sj,pnt,dep:byte;
end;
const goal:a33=((1,2,3),(8,0,4),(7,6,5));
start:a33=((2,8,3),(1,6,4),(7,0,5));
di:a4=(0,-1,0,1);
dj:a4=(-1,0,1,0);
var data: array [1..100] of node;
temp:node;
k,r,ni,nj,closed,open,depth:integer;
function check(k:integer):boolean;
begin
check:=false;
ni:=temp.si+di[k]; nj:=temp.sj+dj[k];
if(ni in[1..3])and(nj in[1..3]) then check:=true;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
if(ni=data[temp.pnt].si)and(nj=data[temp.pnt].sj)
then check:=false;
end;
function dupe:boolean;
var i,j,k: integer;
buf:boolean;
begin
buf:=false; i:=0;
repeat
inc(i); buf:=true;
for j:=1 to 3 do
for k:=1 to 3 do
if data.ch[j,k]<>data[open].ch[j,k]
then buf:=false;
until buf or (i>=open-1);
dupe:=buf;
end;
function goals:boolean;
var i,j:integer;
begin
goals:=true;
for i:=1 to 3 do
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
for j:=1 to 3 do
if data[open].ch[i,j]<>goal[i,j]
then goals:=false;
end;
procedure print;
var buf: array [1..100] of integer;
i,j,k,n:integer;
begin
n:=1; i:=open; buf[1]:=i;
repeat
j:=data.pnt;
inc(n); buf[n]:=j; i:=j;
until i=0;
writeln('steps:',depth-1);
for i:=1 to 3 do
begin
for k:=n-1 downto 1 do
begin
for j:=1 to 3 do
write(data[buf[k]].ch[i,j]);
if i=2 then write('->') else write(' ');
end;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
writeln;
end;
readln; halt;
end;
begin{main}
closed:=0; open:=1;
with data[1] do
begin
ch:=start; si:=3; sj:=2;
pnt:=0; dep:=0;
end;
repeat
inc(closed); temp:=data[closed];
depth:=temp.dep;
for r:=1 to 4 do
if check(r) then
begin
inc(open);
data[open]:=temp;
with data[open] do
begin
ch[si,sj]:=ch[ni,nj];
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
ch[ni,nj]:=0; si:=ni; sj:=nj;
pnt:=closed; dep:=depth+1;
end;
if dupe then dec(open)
else if goals then print;
end;
until closed>=open;
writeln('no solution!'); readln
end.
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
21. 设有n根火柴，由人和计算机轮流从中取走若干根。每方每次最多取k根，
最少取1根 (k值不能超过总数的一半，也不能小于1)。试编写一程序使计算
机有较多的获胜机会。
program lxw021;
var x,y,N,p:integer;
begin
writeln('input n:p, 1<p<n');
readln(N,p);
Repeat
Repeat
writeln('Your move is:');
Readln(x);
until (x>=1) and (x<=p);
N:=N-x;
if N=0 then writeln('I win !! ');
if n>0 then
begin
y:=(N-1)mod(p+1);
if y=0 then y:=1;
N:=N-y;
writeln('x=',x,' y=',y,' Remains=',N);
if N=0 then writeln('** You beat me !!');
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
end;
until N=0;
end.
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
22.(取奇数游戏) 该游戏规则如下: 操作者先输入一个奇数 N(<200)表示N个石
子. 设计算机为 A 方,操作者为 B 方, 双方轮流取石子,每次取1-3个. 最后取
到石子总数为奇数的一方获胜. 编制程序使计算机有较多的获胜机会,
program lxw022;
uses crt;
t
ype
setab=set of 0..200;
var
evena,evenb,odda,oddb:setab;
i,j,n,na,nb,k,kz,r,t:integer;
ab,ll:char;
procedure init0(var n:integer);
begin
clrscr;
gotoxy(1,1);
writeln('***************************************');
writeln(' 取奇数游戏 规则如下: ');
writeln(' 1.操作者先输入一个奇数 N(<200).');
writeln(' 2.设计算机为 A 方,操作者为 B 方,双方轮流取数,每次取1-3个.');
writeln(' 3.最后取到奇数的一方为胜方. ');
writeln('***************************************');
n:=400;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
while not odd(n)or(n>200) do
begin
gotoxy(10,7);
writeln('输入一个奇数 N(<200):');
gotoxy(10,8); readln(n);
end;
end;
procedure prt1;
begin
gotoxy(1,17);
writeln(' 总计 计算机已取得 操作手已取得 剩余
');
gotoxy(50,19);
writeln(' ');
gotoxy(1,19);
writeln(' ',n,' ',na,' ',nb,
' ',r);
end;
procedure prt2(var ll:char);
begin
gotoxy(10,21);
if odd(na) then writeln('可惜, 你输了!')
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
else writeln ('祝贺你的成功!');
gotoxy(10,22);
writeln('再玩一次吗 ? (Y/N)');
gotoxy(10,23); readln(ll);
end;
procedure aget(var r,t,na:integer);
var k,kz:integer;
begin
kz:=0; k:=0;
while (k<3)and(kz=0)and(k<r) do
begin
k:=k+1;
if (not odd(na+k))and(r-k in evena) then
begin kz:=1; t:=k end;
if (odd(na+k))and(r-k in odda) then
begin kz:=1; t:=k end;
end;
if kz=0 then t:=1;
gotoxy(50,14);
writeln(' 计算机这次取 ',t,' 个.');
na:=na+t; r:=r-t;
end;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
procedure bget(var r,t,nb,i:integer);
begin
t:=0;
while not(t in[1,2,3])or(t>r) do
begin
gotoxy(30,13); writeln(' ');
gotoxy(2,13);
writeln('第',i:2,' 轮: 输入你的选择 (1/2/3) 并且不得超过 ',r);
gotoxy(5,14); write(' ');
gotoxy(5,14); readln(t); gotoxy(20,14);
if not(t in[1,2,3])or(t>r)
then write('数据错! 请重新输入.')
else write(' ');
end;
nb:=nb+t; r:=r-t;
end;
begin{main}
ll:='y';
while (ll='Y')or(ll='y') do
begin{2}
init0(n);
r:=n;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
{ 1. 建立获胜策略集 EVENA,EVENB,ODDA,ODDB }
evena:=[4,5]; evenb:=[0,1,2,3];
odda:=[0,1]; oddb:=[2..5];
for i:=6 to n do
begin{3}
nb:=0;
if not odd(i) then nb:=1;
kz:=0; k:=0;
while (k<3)and(kz=0) do
begin
k:=k+1;
if odd(nb+k)and (i-k in odda) then kz:=1;
if (not odd(nb+k))and(i-k in evena) then kz:=1;
end;
if kz=0
then evena:=evena+
else evenb:=evenb+;
nb:=0;
if odd(i) then nb:=1;
kz:=0; k:=0;
while (k<3)and(kz=0) do
begin
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
k:=k+1;
if odd(nb+k)and (i-k in odda) then kz:=1;
if (not odd(nb+k))and(i-k in evena) then kz:=1;
end;
if kz=0
then odda:=odda+
else oddb:=oddb+;
end;{3}
{ 2. 开始取数. }
na:=0; nb:=0; t:=0; ab:=' ';
while not (ab in ['a','b','A','B']) do
begin
gotoxy(10,9);
writeln('输入: "谁先开始 (A/B) ?" A: 计算机, B:操作手.');
gotoxy(10,10); readln(ab);
end;
i:=1;
if (ab='B')or(ab='b') then bget(r,t,nb,i);
repeat
if r>0 then
begin {5}
aget(r,t,na);
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
prt1;
if r>0 then bget(r,t,nb,i);
i:=i+1;
end;{5}
until r=0;
gotoxy(3,16); writeln(' 最后结果:');
prt1; prt2(ll);
end{2}
end.{main}
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
23. 求n个字符串的最长公共子串，n＜＝20，字符串长度不超过255。
例如:n＝3，由键盘依次输入三个字符串为
What is local bus ?
Name some local buses.
local bus is a high speed I/O bus close to the processer.
则最长公共子串为"local bus"。
program lxw023;
l
abel 10;
var str20:array[1..20] of string;
str1,str2: string;
t,i,j,k,n,ki,kz,kn: integer;
find1,find2: boolean;
begin
writeln('输入字符串的个数 n:'); readln(n);
writeln('输入 ',n,' 个字符串:');
for i:=1 to n do readln(str20);
kz:=300;
for i:=1 to n do
if length(str20)<kz then
begin
kz:=length(str20);
ki:=i;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
end;
str1:=str20[ki];
t:=kz; find1:=false;
while(t>0) and (not find1) do
begin{2}
for i:=1 to kz-t+1 do
begin{3}
str2:=copy(str1,i,t); find2:=true;
j:=1;
while find2 and (j<=n) do
begin{4}
find2:=false;
kn:=length(str20[j]);
k:=1;
while not find2 and (k<=kn-t+1) do
if str2=copy(str20[j],k,t)
then find2:=true
else k:=k+1;
j:=j+1;
end;{4}
if find2 then
begin find1:=true; goto 10; end
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
end;{3}
t:=t-1
end;{2}
10: writeln('最大公共子串是:');
writeln(str2); writeln('The length=',t)
end.
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
动态规划的一个典型的例题。
卡车更新问题，(即设备更新问题)
【试题】 某人购置了一辆新卡车, 从事个体运输业务. 给定以下各有关数据:
R[t], t=1,2,...,k, 表示已使用过 t 年的卡车, 再工作一年所得的运费, 它 随 t
的增加而减少, k (k≤20) 年后卡车已无使用价值.
U[t], t=1,...,k, 表示已使用过 t 年的卡车, 再工作一年所需的维修费, 它 随 t
的增加而增加.
C[t], t=1,2,...,k, 表示已使用过 t 年的旧卡车, 卖掉旧车, 买进新车, 所 需的
净费用, 它随 t 的增加而增加. 以上各数据均为实型, 单位为"万元".
设某卡车已使用过 t 年,
1 如果继续使用, 则第 t+1 年回收额为 R[t]-U[t],
2 如果卖掉旧车,买进新车, 则 第 t+1 年回收额为 R[0]-U[0]-C[t] .
该运输户从某年初购车日起,计划工作 N (N<=20) 年, N 年后不论车的状态
如 何,不再工作. 为使这 N 年的总回收额最大, 应在哪些年更新旧车? 假定在
这 N 年内, 运输户每年只用一辆车, 而且以上各种费用均不改变.
输入: 用文件输入已知数据, 格式为:
第 1 行: N (运输户工作年限)
第 2 行: k (卡车最大使用年限, k≤20 )
第 3 行: R[0] R[1] ... R[k]
第 4 行: U[0] U[1] ... U[k]
第 5 行: C[0] C[1] ... C[k]
输出: 用文本文件按以下格式输出结果:
第 1 行: W ( N 年总回收额 )
第 2--N+1 行: 每行输出 3 个数据:
年序号 ( 从 1 到 N 按升序输出 );
是否更新 ( 当年如果更新,输出 1, 否则输出 0);
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
当年回收额 ( N 年回收总额应等于 W ).
例: 设给定以下数据:
N=4, k=5,
i: 0 1 2 3 4 5
R: 8 7 6 5 4 2
U: 0.5 1 2 3 4 5
C: 0 2 3 5 8 10
则正确的输出应该是
24.5
1 0 7.5
2 1 5.5
3 1 5.5
4 0 6.0
【分析】这是动态规划的一个典型的例题.由题意可知,用过t 年的卡车,继续使用
一年的收益为d[t]=R[t]-U[t],更换新车后一年的收益为e[t]=R[0]-U[0]-C[t]. 我们
采用倒推分析的方法.F[j,t]表示已经使用了t 年的卡车, 在第j 年不论继续使用还
是更新,到第N年为止,可能得到的最大收益. 规定当j>N时, F[j,t]≡0. 如果在第j
年更新,则收益为p=e[t]+F[j+1,1]; 如果仍使用旧车,则收益为 q=d[t]+F[j+1,t+1].
这里,e[t]或d[t]为第j 年的收益, F[j+1,1]或F[j+1,t+1]为从第j+1 年到第N年在不
同条件下的最大收益.显然,F[j,t]=Max(p,q).这就是所需要的计算公式.
在下面的程序中,数组g[j,t]用于记录使用过t 年的车,在第j 年的选择方
案,g[j,t]=1 表示更换新车,g[j,t]=0 表示仍使用旧车.
【参考程序】
program tjcoi2_3; { Write By Li Xuewu }
type arr20=array[0..20] of real;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
var rr,uu,cc,d,e:arr20;
f:array [0..22,0..21] of real;
g:array [0..22,0..21] of integer;
i,j,k,k2,n,t:integer;
file1:string[20];
p,q:real;
text2,text3:text;
procedure init;
var i:integer;
begin
writeln('Input filename:');
readln(file1);
assign(text2,file1); reset(text2);
readln(text2,n); readln(text2,k);
for i:=0 to k do read(text2,rr); readln(text2);
for i:=0 to k do read(text2,uu); readln(text2);
for i:=0 to k do read(text2,cc); readln(text2);
close(text2);
for i:=0 to k do
begin d:=rr-uu; e:=d[0]-cc; end;
end;
procedure result3;
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
var i:integer;
begin
writeln('enter filename for output:');
readln(file1);
assign(text3,file1); rewrite(text3);
writeln(text3,f[1,1]:8:3);
writeln(text3,' 1 0', e[0]:8:2); t:=1;
for i:=2 to n do
if g[i,t]=1 then
begin writeln(text3,i:2,' 1',e[t]:8:2); t:=1 end
else
begin writeln(text3,i:2,' 0',d[t]:8:2); t:=t+1; end ;
writeln(f[1,1]:8:3);
writeln(' 1 0',e[0]:8:2); t:=1;
for i:=2 to n do
if g[i,t]=1 then
begin writeln(i:2,' 1',e[t]:8:2); t:=1 end
else
begin writeln(i:2,' 0',d[t]:8:2); t:=t+1; end ;
close(text3);
end;
begin {main}
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com
init;
for i:=0 to n do
for j:=0 to k do g[i,j]:=1;
for i:=0 to k do f[n+1,i]:=0;
for i:=1 to n+1 do f[i,k+1]:=-100;
for j:=n downto 2 do
begin
k2:=k;
if j<k then k2:=j-1;
for t:=1 to k2 do
begin
p:=e[t]+f[j+1,1]; q:=d[t]+f[j+1,t+1];
f[j,t]:=p; g[j,t]:=1;
if q>p then
begin g[j,t]:=0; f[j,t]:=q; end;
end;
end;
f[1,1]:=d[0]+f[2,1];
result3;
end.
PDF 文件以 "FinePrint pdfFactory Pro" 试用版创建 http://www.pdffactory.com

zhouheng1212

标  题: 追女生的数学模型（转载）(转载)
发信站: 珞珈山水 (2001年11月10日18:44:39 星期六), 站内信件

【 以下文字转载自 C.C 讨论区 】
【 原文由 dollar 所发表 】



T时刻A君的学业成绩为Y(t)；
其B女对A君的疏远度为X(t);
当A君没开始追求B女时B女对A君的疏远度增长（平时发现的A君的不良行为）
符合Malthus模型，即dX/dt=aX(t)其中a为正常数。
当Y(t)存在时，单位时间内减少X（t）的值与X(t)的值成正比，比例常数为b，从而
dX(t)/dt=aX(t)-bX(t)Y(t).
在假定A君发起对B女追求攻势后，立即转化为B女对A君的好感，并设定转化系数为α，
而随着的A君发起对B女的攻势后，A君学业的自然下降率与学业成绩成正比，比例系数为
e。于是有
dY(t)/dX=αbX(t)Y(t)-eY(t).
这样，就得到了由学业与疏远度所构成的两个数字在无外界干扰的情况下互相作用的模
型:
{dX(t)/dt=aX-bXY;dY(t)/dt=cXY-eY.(1)}其中c=αb.
这是一个非线性自治系统，为了求两个数X与Y的变化规律，我们对它作定性分析。
令{aX-bXY=0;cXY-eY=0.}
解得系统（1）的两个平衡位置为:O(0,0),M(d/c,a/b).
从（1）的两方程中消去dt，分离变量可求得首次积分:
F(X,Y)=cX-dln？X？-aln？Y？=k. (2)
容易求出函数F（X,Y）有唯一驻点为M（d/c,a/b）
再用第五章中所讲的极值的充分条件判断条件可以判断M是F的极小值点。
同时易见，当X→∞（B女对A君恨之入骨）或Y→∞（A君是一块只会学习的木头）时均有
F→∞;
而X→0（A君作了变形手术，B女对他毫无防备）;Y→0（A君不学无术，丝毫不学习）时
也有F→∞.
由此不难看出，在第一像限内部连续的函数，z=F(X,Y)的图形是以M为最小值点，且在第
一卦限向上无限延伸的曲面，因而它与z=k(k>0)的交线在相平面XOY的投影F(X,Y)=k(k>
0)是环绕点M的闭曲线簇。这说明学业成绩和疏远度的指数成周期
性变化。
从生态意义上看这是容易理解的，当A君的学习成绩下降时，B女会疏远A君；于是A君就
又开始奋发图强，学习成绩Y(t)又上升了。于是B女就又和A君开始了来往，疏远度又下
降了。与B女交往多了，当然分散了学习的时间A君的学习成绩Y(t)下降了。然而我们可
证明，尽管闭轨线不同，但在其周期内的X和Y的平均数量都分别是一常数，而且恰为平
衡点M的两个坐标。事实上，
由（1）的第二个方程可得:dY/Ydt=cX- e,两端在一个周期时间T内积分，得:
∫(dy/Ydt)dt=c∮Xdt-dT (3)
注意到当t经过一个周期T时，点（X,Y）绕闭轨线运行一圈又回到初始点，从而:
∫(dY/Ydt)dt=∮dY/Y=0.
所以，由（3）式可得:
（∫Xdt）/T=d/c.
同理，由（1）的第一个方程可得:
（∫Ydt）/T=a/b.
现在考虑追求攻势对上述模型的影响。
设追求攻势与该时刻的疏远度成正比，比例系数为h，h反映了追求攻势的作用力。在这
种情况下，上述学业与疏远度的模型应变为:
{d X/dT=aX-bXY-hX=(a-h)X-bXY;dY/dt=cXY-eY-hY=cXY-(e+h)Y}(4).
将（4）式与（1）式比较，可见两者形式完全相同，前者仅是把（1）中X与Y的系数分别
换成了a-h与e+h。
因此，对（4）式有
x’=(∫Xdt)/T=(e+h)/c,y’=(∫Ydt)/t=(a-h)/b (5).
利用（5）式我们可见:
攻势作用力h的增大使X’增加，Y’减少。考试期间，由于功课繁忙，使得追求攻势减少
，即h减小，与无考试期间相比，将有利于学业成绩Y的增长。这就是Volterra原理。
  此原理对男生有着重要的指导意义:强大的爱情攻势有事不一定能达到
满意的效果，反而不利与学业的成长；有时通过慢慢接触，慢慢了解，再加上
适当的追求行动，女生的疏远度就会慢慢降低。学习成绩也不会降低！！！！！！！！

（本文需结合《工科数学分析基础》高教出版社出，马知恩，王绵森主编观看）
--

zhouheng1212

标  题: 占座经济学
发信站: 珞珈山水 (2001年11月02日08:41:25 星期五), 站内信件

  在校园里，由自习室的地方就有占座。由于占座引起的纠纷
，包括物品丢失，吵架等也屡见不鲜。为此，学校三令五申却也
收效甚微。本文试图用经济学的观点来分析占座者与不占座者的
策略，试图解释这一问题的起因并提出解决办法。
  一、引论
  在高校的环境中，自习教室作为一种特殊的资源，有着以下
特点: 1、短期供给的完全非弹性:学校无法在短期内增加自习
教室的数量。 2、必需品:几乎所有理科学生和大多数文科学生
都必须通过在自习教室学习来复习功课，完成作业。 3、几乎无
替代品，需求量无弹性:自习教室只有几种有限的替代品，a、
部分理科高年级学生和研究生可以在实验室上自习；b、在外租
房的学生可以在所租房屋上自习；c、偶尔有人能够在宿舍上自
习。但是，这几种替代品的数量相对很少，对于大多数学生来说
自习教室还是必不可少。 另外，教室作上课用与作自习教室用
有很大区别:上课时，每人只使用一个座位，而自习时，平均每
人使用座位数接近于两个（一般来说要使用两个座位，但是有以
下情况可导致使用少于两个:图书馆的座位是一人一个，教室里
一排课桌的最边上的上自习者一般和其相邻同学共享座位，情侣
上自习坐在一起可以节约一个座位等）。
  占座对占座者来说是一种低投入高产出的行为:因为仅仅需
要早起（图书馆占座），用不再具有使用价值的书本等占座即可
获得对此座位的暂时优先使用权。而且这一使用权可以在很大程
度上保证相当长一段时间的高效率自习——这一点对于功课繁重
的学生来说相当重要。
   二、占座行为的理性分析
  （一）、占座行为的个人利益分析 假设自习平均收益为R。
占座的成本: 1、早起（图书馆占座）:成本几乎为零，忽略
。因为学生宿舍有11点熄灯的规定，如果有占座的设想，保证11
点睡觉6点起床不是什么难事。 2、占座物品的丢失损失:成本
几乎为零，忽略。因为占座的物品一般是无使用价值的的书本等
，即使丢失也没有什么损失。这里的丢失值物品被他人据为己
有，与占座无关而非他人占用此座位而将占座物品丢弃。 3、所
占座位被他人使用从而失去上自习的机会:这一损失不可忽略。
设上自习人群以Pr的概率使用被占的座位，当占座者出现时，这
一部分人以自己的策略选择与占座者发生争执或退让，具体的策
略，争执的附加损失和座位使用权的更替造成的成本变化见后分
析。设占座以后可以成功上自习的概率为Po。 占座的收益: 占
座人以概率Po能够成功上自习，占座人的收益是RPo。 不占座的
成本 1、不占座但可以找到空位的概率设为P1，同样，后面的讨
论也将修正这一结果。 2、根据个人策略，找不到座位时可能使
用已经被占的座位（设为找到座位者使用已占座位概率为Pu1，
已占座位被使用费占座者试图使用概率Pu0，当P1>0时，Pu0，Pu1
均等于0），这样引起争执造成的附加损失和座位使用权的更替对
成本的影响见后讨论。 不占座的收益: 设不占座能够成功上自
习的概率为Pn，则收益为R*Pn。
   （二）、占座者和未占座使用其座位者之间的个体策略分析
以下分析当占座者和未占座使用其座位者之间的个体策略问题:
不占座者需要决定是否使用已经被占的座位，如果选择否，
则Pn=P1，如果使用的话则需要解决对付占座者的策略问题。 首
先，如果丢弃或销毁占座物品以试图给占座者造成物品被盗的假
相，可能会造成纠纷并在法律上产生严重后果，据作者观察，采
取这一策略的人极少，而且如果有的话也是在不被人注意的时候
偷偷实施。在一般的自习教室，这一条件难以成立，因此，为了
化问题，将这一情况忽略。 那么，未占座使用者迫于法律和舆论
的压力保留了占座者的占座物品，这将造成两者的直接利益冲突
。两者均可以通过采取不同程度的对抗措施来试图占有此座位。
以下建立一个简单的模型:定义对抗激烈程度I，I取值0或1，0
表示将座位让给对方的退让策略，1表示尽一切可能占有此座位
的强硬策略。设两者对抗时I值高者取胜，若相等，双方获胜的
概率各一半，当两者均等于1时，争执的直接损失均为L。利益矩
阵（payoff matrix）为: 平均收益 对手I=1 对手I=0 I=1 R/2
-L R I=0 0 R/2 这是一个典型的鹰鸽博弈。一般情况下，如果
发生严重争执对双方的心情有很大影响，学习用品可能会有损失
，还有可能遭到舆论谴责甚至受到行政处分，也就是说，L>R/2
。（但是，对于未占座使用者来说，L>R将是得不偿失的）。这
时的ESS策略是以一定的概率P选择强硬，1-P选择退让的混合策
略，使无论使用那一种策略，对于预先无法判断的对手都有同样
的收益，求得P=R/2L。
  （三）、占座现象的分析 有以上的讨论结果，我们就可以
研究占座现象的产生过程了。 占座以后可以上自习的概率:
Po=1-Pu0/2。 占座以后的总收益为:RPo-LPPu0=R(Po-Pu0/2)=
R(1-Pu0)。 不占座可以上自习的概率n=P1+Pu1/2。 不占座
的总收益是:RPn-LPPu1=R(Pn-Pu1/2)=RP1。 假如自习座位供给
正好等于需求时（并不是座位正好够所有的人同时使用，而是如
果大家按照各自需要的时间上自习正好够用，座位在不同的时间
可以供不同人使用），如果有人占座将延长此人的座位使用时间
，造成座位的不足，P1=0。 但是，在一个座位正好够用的环境
下，占座行为是怎样发展起来的呢？不可否认，在座位够用的时
候，自习者总是希望能有一个好一点的自习环境，但是相对较好
的自习环境总是不可能足够多的。这时，Pu0，Pu1均为0，占座
者收益为RH（优质环境），不占座者收益为RL（劣质环境），
RH>RL，理性人的选择是占座。当足够多人都采取了占座这一方
式后，P1=0，以实际情况看，这时的占座者人数已经大于不占
座者人数。设两者的人数比为:不占:占=x，此时，x<1。由此
显然推出Pu0<1，占座收益R(1-Pu0)>0，不占座收益RP1=0。以
上分析中选择占座与否的利益矩阵为: 收益 对方不占座 对方
占座 不占座 R 0 占座 RH R(1-Pu0) 这正好是囚徒困境的利益
矩阵。 Robert Axelord 79年的研究表明，囚徒困境中合作产生
的条件是:博弈双方可以再次相遇的概率W足够大时，可由于相
互报答而自发产生合作，不再“占座”（W>(RH-R)/R，W>(RH-R
)/R/(1-Pu0) ）。遗憾的是，这一条件在大学自习教室里是不满
足的，因为这里人们互不认识，W几乎就是0。所以，此时的ESS
就是占座。
  三、占座问题的解决可能性 由于占座行为给自习带来的不
少的麻烦甚至纠纷，学校也一直试图解决这个问题。从上面的分
析可以看出，占座行为的出现需要满足很多条件。不幸的是，
这些条件中有很多是难以改变的，比如，BBS上有人提出可以通
过提倡销毁占座人的物品来提高占座的成本，但是这一行为实施
起来就难以判断什么时候算占座，什么时候不算。而且执行过
程中极容易引起法律纠纷，给实施者造成更大的损失，显然是不
可行的。另外，学校试图从道德上宣传不占座，但是这并不能
真正影响到自习者的利益，这一方法也一直没能起到多大作用。
从最根本来看，学校自习教室设计数量的考虑不周才是导致占
座现象的根本原因。我想，学校考虑的恐怕是自习教室的数量刚
够所有人同时上自习用，以避免建设上的浪费。但实际上，自习
教室的数量只有多到所有人都占座时还能有一定数量的空座位才
能从根本上消除大规模占座的现象，而且，这一数量并不比现有
数量多多少，从现在的情况来看，作者粗略估计大概在多10%-2
0%就够了。
   因此，最重要的还是使学校认识到，自习教室不是刚好够用
就行了，而需要稍稍超过实际的学生人数。一旦认识到这一点，
就可以通过增加自习教室数量，增加替代品数量（比如改善宿舍
环境使之能够自习等）或控制招生人数来解决目前严重的自习占
座问题。
   由于本学期作者的时间紧张，未能进行实地调查，希望以后
如果有机会可以通过对自习教室的座位数统计和同学中上自习情
况的调查，用实际的数据来更好的研究这个问题。

--

zhouheng1212

知了在声声叫着夏天  


烈日、热浪、台风、暴雨、雷电……出汗、乘凉、空调、冷饮、暑假……这一切，就是炎炎夏日的标志。每天处于高温的包围中，每个人都明显感受到了夏季的威力。夏季年年要过，平平淡淡的日子里，总觉得夏季似乎还缺了些什么，一时却又说不出来。
那一天，忽然听到了那首十分熟悉的校园歌曲《童年》:池塘边的柳树上，知了在声声叫着夏天……我恍然大悟，我要寻觅的正是这样的感觉，因为在我们这个地盘日益扩张、噪声喧闹不息的城市里，夏蝉的叫声正在趋于消失。虽然，城市的街道旁并不缺乏绿树乔木，但在城市热烘烘的空气中似乎只剩下令人心烦的汽车声了。
知了，称得上是夏天的歌王，高温酷暑，火伞高张，人们都在经受煎熬之时，在那高高的树杆上，在那绿树的叶丛里，歌王引吭高歌，你唱他和，此伏彼起，“一蝉飞去一蝉吟”，使一个夏天变成了真正的又“热”又“闹”的日子。蝉鸣是炎夏的一种诠释，一种证明，一个特征。从日出到日落，凉风初起，那树上的知了总是不知疲倦地唱着它得意的情歌“知了，知了，知了……”奇怪的是,尽管知了的叫声似乎很吵，但听惯了的人们并不嫌它吵闹，在此伏彼起的蝉鸣声中能安然入睡.。
夏蝉只有雄的才会鸣叫，雌的是哑巴，乡下人叫它“哑班”。蝉有好多种，就苏南地区而言, 我识得的就有两种，一种是大而黑色的知了, 叫起来就是一长声“知——了”，还有一种个体较小，像一只放大若干倍的牛虻，背是暗绿色的，我们叫它“蜢蝉”，叫声是“滋——”。不久前到皖南去，在一个古村落里听到一声打弯的“知溜溜”声，开头大家都不知道是什么声音，继而就有人恍然大悟:“好像是知了声”。是知了声，但它的叫声却与我们家乡的知了叫声不一样。为此，大家还笑着说:“知了也有方言乡音呢！”
小时候住在乡下，夏日里捕捉知了称得上是童年乐趣之一。别以为知了藏在树叶丛中唱得似乎得意忘形，其实它的警惕性还是很高的。只要它感觉到有危险接近它，它就立即停止高歌，“嗡”的一声逃之夭夭。所以，要捉知了只能是跟它斗智，要偷偷地“算计”它。基本的方法是粘。主要工具是一根长长的细细的竹竿，顶端缠上粘物。粘物有三种，一种是桃树分泌的树脂,不知怎么加工一下(大概是掺进一些桐油，搅成黑乎乎粘糊糊的脂膏状，但此物太脏，一般不用)；一种是在竹竿的顶部绑上用竹枝弯成的一个小圈，那形状仿佛是一柄缩小了的网球拍，大小还不到鸡蛋大，缠上蜘蛛网，用来粘知了；第三种方法是用面筋，粘在长竹竿的顶部。做面筋很容易，用一小撮面粉，加点水，放在水里不停地揉捏，把淀粉挤去后就成了一团粘糊糊的面筋，把它缠在竹竿顶端，有时小孩子只简单地放在口里反复咀嚼，居然也能做出面筋来。
有了工具，就可以行事了。孩子们冒着毒毒的太阳，悄悄走到有知了在引吭高歌的树下，锐利的目光往树叶丛中寻觅，很快就发现了趴在树杆上的歌唱家，它正专注地唱着情歌，陶醉于歌声中呢，现在它的危险不是逼近的螳螂，而是一伙顽皮的小孩。就在它忘情的歌唱时，危险渐渐逼近，如果它发觉得早，还可以一飞了之，否则，被粘竿粘上，真是“有翅难逃”了。被捉住的知了在顽童的手里很少有生路，它们最后的结局就是很快死亡。也许为了保持它的清高，也许是为了表示对玩弄它的人类的抗议，被捉住的知了往往不再唱歌，直到生命终结。
知了称夏蝉，顾名思义与夏天有关。知了唱完秋天的挽歌，就再也发不出声，没到冬天，它就一命呜呼了。但有一次在寒风劲吹的十一月底，我在南京的莫愁湖公园里居然听到知了的歌声，短促而悲伤，所谓“暮蝉无好声”，不禁使人产生凄凉之感，以致令我和我的同事一时间竟停止了说笑，脸色顿时凝重起来。
古人对夏蝉或赞美有加，或同情怜悯，“居高声自远”，既“清高”又名声远播；“餐风饮露”，有神仙风骨；“饮露身何洁，吟风韵更长，”不但是个歌唱家，也是一位志存高远的诗人；“蝉声极意说凄凉”，在游子听来，会引发无穷的乡愁。其实蝉是一种对树木有害的昆虫，不过它的危害并不大。它把卵产在泥土下，化成幼虫后在黑暗的地下以吸树木根系中的水份长大，从幼虫到成虫要经过十几年的漫长岁月。当一只全身由外皮包裹的成虫艰难地钻出泥土得见天日的时候，还得爬上树杆脱去它的外皮，才能成为会唱歌的知了。它蜕下的壳称蝉蜕、蝉衣，是一味中药。也许是知了是歌王，蝉蜕的药用功效之一是能治嗓子嘶哑的毛病。
看看如今街道旁的树木，不是刚栽不几年的新树，就是根基早已被水泥封住，知了们的生长条件正一点点丧失，所以城市里的蝉鸣越来越少。今年我特意留意了一下，上下班的一路上确实没有听到蝉的鸣叫，耳根清静了不少。蝉鸣正离我们渐行渐远，要听夏蝉，大概只有到农村里去了。但近年来农村里的浓荫大树也在迅速减少，也许用不了几年，“知了在声声叫着夏天”，恐怕要变成“夏天在声声呼唤知了”了。

zhouheng1212

心态坐标  


人，总是在不知不觉中老起来的，这过程比较缓慢，不像秋天叶绿叶黄，随风飘落。所以常常令人有蓦然回首的惆怅。可你别小看这个惆怅，它正预示着人在过了一个年龄段之后的心态所发生的微妙变化。
  记得年青时活得无拘无束，那时对生活、工作中顺与逆，得与失，上司的批评与表扬，人们的说长道短以至身边的一切都不甚在意。虽然当时的生活环境、工作条件很艰苦，日子却是踩着轻快的节拍走过来的，令你对未来充满着希望。尽管到后来明白了“希望”之歌所说，希望是娼妓，她对谁都盅惑，可以把一切都献给她，但等你牺牲了你的青春，她就弃掉你了。不过，那时候是无悔无怨的，原因是年轻。到了中年时期，日子就大不一样了，就我个人的体验，步入中年以后，日子一天比一天劳碌奔波，负荷一年比一年沉重，再无法像青年时那样不在乎身边的一切了。这时期，除了要为“五斗米”拼命奋斗之外，更多是精神上的负担。由于出生在“史无前例”的年代，没有上大学深造的福气。到了社会转型期，才知道文凭的重要（知识重要暂不去说它），这张文凭，仿佛有亚当、夏娃下身那片树叶的功用，可以遮羞包丑，可以把自己的空寡陋、愚笨都掩盖起来。别人都是研究生、硕士或什么“家”的了，你没有文凭，好像精神上赤条条的，没有包裹，行吗？于是，悠悠万事，唯此唯大，第一件事就是干到老学到老，先去搞一张文凭再说，这对于中年人来说自然不是一件轻松的事。接踵而来的、困扰你的事情还多得很，比如事业上的成与败。朝市中的荣与辱，人言中的褒与贬，五花八门，常常把我搅得心神不宁。人情冷暖，世态炎凉，让你感喟甚多。能否从容地接受现实给你安排的这一切，那就得靠自己修养了。
  几年前，曾读明代学者洪应明的《菜根潭》，其中135条目为“万事随缘，随遇而安”。洪老先生说:“释氏随缘，吾儒素位，四字是渡海的浮囊。盖世路茫茫，一念求全，则万绪纷起，随遇而安，则无入不得矣。”其意是说，佛家讲求随着因缘顺应自然，儒家主张要谨守自己本分。这“随缘素位”四个字是渡越苦海的救生物。因为人生的道路缥纱茫远，如果有一个求全的念头兴起，就会引来其他无数的杂念。能够安然面对所遇到的事物，无论在哪里都可以怡然自得。我想:洪老先生说这番话的时候，或许是出于无奈，或许是终其一生的体会。据说他是一位早年热衷尘世，晚来皈依佛门，广事交游，出入佛道的儒生。但无论如何，洪老先生都是道出了“随缘素位”的机理。当然，这个机理自然是不适合那些胸怀大志，搏击人生干大事业者，更不适合那些贪得无厌，横领豪夺有欲无耻的人。那么，“随缘素位”大概唯有适合于像我这样的平庸之辈了。为把这个“随缘素位”落实到具体行为中，我认真地给自己订下几条守则:
不要胡思乱想，
不要怕被人遗忘，
不要怕受到冷落，
不要不识时务抛头露面，
不要怕失去讲话的机会，
不要怕别人否定自己，
不要当九斤老太。
守则订了，而且恪守。本以为可以洁身自好，风平浪花静了，不幸的是我估计错了，其实这仅仅是一厢情愿，你不热衷世事，世事偏要关心你。现代社会很宽容，人却苛刻，一个生活的弱者，还是逃不过那些鄙夷、嘲讽或尖端刻薄的语言的伤害，甚至暴跳如雷拍案而起的指责，还有那甜美笑容背后的卑劣暗算………看来“随缘素位”仅仅能解决主观世界中的一些浮躁狂想，而对于来自客观世界的红尘世事却难以抗拒。而要从容地接受这一切，还需要更高的修养境界。
为了这心仪的情结，我沿着释氏的因缘缘说，再深窥一下佛的秘密。尔后读了《起言论·修行信心分》中的“亦当忍于利、衰、毁、誉、称、讥、苦、乐等法”。这就是佛家教导的:必须“八风不动”。所谓“八风”，就是上面的利、衰、毁、誉、称、讥、苦、乐，四顺四逆，一共八件事。顺利成功是利，失败是衷，别人背后诽谤是毁，背后赞美是誉，当面赞美是称，当面訾骂攻击是讥，痛苦是苦，快乐是乐。佛家要求修养到遇八风中任何一风时，情绪都不为所动。无疑这是很高的修养，凡人是不易做到的。而凡人应如何对待诸如此类的荣辱毁誉之事呢？孟子有两句说得较为贴切的话:“有不虞之誉，有求全之毁”。“人之易其言也，无责耳矣”。孟子的意思是说，人有时会得到意料不到的赞扬，有时会遭到过于苛求的诋毁，那是人生中常事，不足为奇。那些人随随便便说话，是他的品格个性，不必重视，不值得责备和理睬他。回头想来，佛家的“八风不动”和孟子的“不责耳矣”可能都是至理名言，无疑要做到这样是需要很高的修养境界的。不过细细想来，人活着，尤其是活到了一大把年纪了，实在不必患得患失，整天把自己的灵魂附在别人的躯壳上，一举一动，一切一切的思维都要围着别人转，倒是痛痛快快地为自己活上几天也好。况且，并不是他说我不行就不行了。农夫绝不至于听到田间的蝼蛄（一种害虫）叫，就不再去种庄稼的了。对世间事，还是以平常心待之为妙。
过了不惑之年，天命尚不可知，但对于那些廉价的吹捧，那种居高临下，不可一世咄咄逼人的脸孔，早已不再陌生。我隐隐看到了一种人生价值的昭示:摒弃浮躁轻狂浅薄空疏之后的充实，再不要去沽名钓誉。什么荣荣辱辱都无关要紧了，要紧的是调正自己的心态坐标，如陶翁所吟:纵浪大化中，不喜亦不惧。应尽便须尽，无复独多虑。

偶不乖

不要胡思乱想，
不要怕被人遗忘，
不要怕受到冷落，
不要不识时务抛头露面，
不要怕失去讲话的机会，
不要怕别人否定自己，
不要当九斤老太。

照做.......

zhouheng1212

标  题: 博弈论经典案例
发信站: 小天鹅 BBS站 (Mon Aug 21 10:31:02 2006), 转信

  这个例子讲的是:猪圈里有两头猪，一头大猪，一头小猪。猪圈的一边有个踏板，
每踩一下踏板，在远离踏板的猪圈的另一边的投食口就会落下少量的食物。如果有一只
猪去踩踏板，另一只猪就有机会抢先吃到另一边落下的食物。当小猪踩动踏板时，大猪
会在小猪跑到食槽之前刚好吃光所有的食物；若是大猪踩动了踏板，则还有机会在小猪
吃完落下的食物之前跑到食槽，争吃到另一半残羹。那么，两只猪各会采取什么策略？

zhouheng1212

http://bbs.uibe.edu.cn/cgi-bin/b ... FKaoyan%2FDA9DE643F


标  题: 考研经验谈
发信站: UIBEBBS (2002年05月25日10:59:20 星期六), 站内信件

考研经验谈
作为已经考入外经济贸易大学的研究生，对于那些渴望考入这所热门学校的学弟学妹们
，我想还是有些东西可谈的，希望我下面所说的话可以给你们一点帮助，一点启发。
考试的门路
首先需要对外校的考生说几句话。有过许多外校的同学问我，他们需不需要到这里来听
专业课？需不需要找笔记？需不需要和出题的导师联系联系？我总对他们说，若你的“
门路”真的很硬，那未尝不可；若你和大多数人一样，就不必在这些方面绞尽脑汁，费
煞苦心了，因为对外经济贸易大学是比较公平和公正的。
为什么不设辅导班
举个例子来说，上学期许多本校的同学向“校长信箱”写信要求开设专业课的考研辅导
班,校长回复说,本来外校的学生就有不公平的感觉,我们更不能这样做了,要保证所有的
人都在同一条起跑线上。而且考研成绩出来后，研究生部立即将成绩和名次公布于众，
这有效地避免了黑箱操作，而不象许多学校只公布成绩，不公布名次，或者干脆连成绩
都不公布，谁收到通知谁就去复试。比较而言，我校的透明度较高，所以考生只需集中
精力，踏下心来学习就是了，不要为这方面的事情操心。
数学怎么对付
其次谈一谈各门课的复习情况。我觉得所有课的考研考的都是基础，而不是过难过偏的
东西。比如数学，从历届题目来看，基本概念和基本技巧占了绝大多数，如果这些题目
能够正确掌握，那即使有一些过难过偏的题目也不足为惧。但问题的关键就在这里。许
多同学都有同感，一道题目看上去很眼熟，但怎么想也想不起来；或是一道题做了n次，
却总也做不对。很多同学其实很浮躁，错了的东西改过了就再也不看，做过的题目也不
屑再做，而一味追求多做题，做偏题和难题。其实，如果我们能够把会做的题目都做对
，都拿足分，那数学分数绝不会低。一般复习数学，大家用的较多的参考书是陈文灯的
，但我向大家推荐严守权的，因为他的书很侧重基础，没有许多花哨的技巧，只要把他
的例题和练习一道一道吃透，收获会很大的。而陈文灯的有些练习过难，我想考研一般
不会考到的，不必在上面耗费太多的时间和精力。
英语和政治
英语学习也是一样，我个人的经验是在精读中学习。一般经贸大学的专业课中必有一门
是专业外语，就外贸来说考的是几大篇英译汉，这本身就需要大量的阅读，若我们在平
时的专业外语学习中就做精读的话，会节省许多基础课英语的学习，并会带动词汇语法
的提高。至于政治，考前的突击自不必说，平常就要多看报纸和电视，注意时事新闻，
因为这些从来就是考试热点----其实不仅对政治有好处，对英语的阅读理解和写作也大
有益处，因为这些题目的选材也往往涉及时事热点。
专业课的范围
经贸大学的专业课考试设置一般是一门综合考试，一门专业英语。综合考试即基本理论
的考试，一般的复习范围是几门必须要具备的专业知识（各个专业究竟考什么，大家可
以参考招生简章）。首先需要强调的一点是，大家不要被招生简章上所列出的课程吓倒
（尤其是那些想转专业的同学），因为一来呢课程可能很多，二来呢，有些课你可能根
本没有学过；不过这些并不可怕。拿99年国贸、金融考研来说，专业课一共有9 门，分
别是:国际贸易、国际贸易实务、国际金融、西方经济学、世界市场行情、运输、保险
、国际经济合作原理及外贸概论。
专业课是否很难
乍一看很吓人，其实最后考试的时候并没有全部考到，就象研究生部的老师所说，目的
就是让大家多看书。有些课，比如世界市场行情、国际经济合作原理、外贸概论基本是
一分未出，而运输和保险实际上是国际贸易实务中的两节，所以真正考到的只是前四门
课（实际上2000年的简章已将国贸的专业课减少为这四门，大家应认真参考招生简章的
要求）；而对于从未学过这些课程的同学来说，可能会有些难度，尤其是那些本科专业
是理工科的同学，因为他们上大学时没有经济学的氛围和环境；但是，我想大家都很清
楚，由文转理是极难的，而由理转文却容易得多，而且大学学习，大家的自学能力应该
很强，拿下这些课程理应不成问题。
有哪些题型
其次谈一下综合考试的题型。用一句话来概括，即除了连线题以外的所有你能想到的题
型都有。专业课重视的是基本概念和基本原理，这些基本概念和基本原理便分布在名词
解释、填空、单选、多选、案例分析、简答、计算等题型中，而最后一道大题一般是论
述题，涉及的课外知识可能比较多，需要大家平时多注意经济热点问题，多积累一些知
识。案例分析涉及运输、保险等实务方面的机率会比较大。这里还需要强调一点，即西
方经济学很重要，绝对不可轻视，因为即使上了研，它也是学位课之一，更不必说它在
考试中占很大的比重呢。
如何找感觉
最后要说的一点是，大家最好能找到你所要考的专业前两年的题目看一看，对于大概情
况作到心中有数；但没有必要在这些试卷上用心良苦的想找到特别有用的信息，因为稳
扎稳打在任何时候都比投机取巧来得实用和有效棗但这并不是说没有技巧，比如一个人
的时间和精力总是有限的，面对这么多门专业课，总不能面面俱到，大家要学会大胆取
舍，不要过多纠缠一些过细、过深的东西，因为你想，一共100分，分配到每本书的每一
节能剩下几分呢？不过究竟如何把握，每个人的感觉不一样，本人也没有办法说出什么
具体的方式，只能看每个人的“造化”了。
专业英语怎么办
下面谈一下专业英语的情况。专业英语考试的题型各个专业不一样，比如会计和管理专
业，题型就很多，从填空、选择到翻译应有尽有；而国贸和金融就简单得多，几大篇英
译汉。准备专业外语，首先必须具备一定的专业词汇，你若在本科学过，那再好不过；
你若没有学过，那也不要紧，因为这类书籍很多，从头来过就是，这一步并不会花很多
时间。需要注意的一点是，最好是在阅读中学习专业词汇，而不要拿一本词汇手册去背
，为什么这样做，我想道理大家应该知道，我就不必多说了。当你具备了一定的专业词
汇，就可以找来招生简章上推荐的复习书目进行学习了。就我的经验而言，精读阅读材
料是一种一举多得的好办法。材料不必求多，一星期读一篇至两篇千字文章即可，但要
作到每句话都弄懂，绝不能允许一篇文章中存在模糊不清的语句，最好把难句子摘抄出
来，逐字译为汉语，就我的经验而言，再难的句子只要你坚持不懈，多方求教，早晚会
被你“钻”出来的。如果你一直坚持下去，精读30篇左右的经贸文章，作到每一篇都可
以很顺利的翻译成汉语，那你的专业英语成绩一定不会很低，而且你可以不必惧怕基础
考试中的英语阅读和翻译题了。至于材料的内容还是满多样化的，有经济热点文章，有
贸易实务中的合同或是INCOTERMS 中的某一条术语，甚至有可能是时事政治，所以平常
多做一些泛读也是很重要的。
答题的“技巧”
专业课的考试时间相对于题量来说还是比较充裕的，所以完全有时间用心答题，争取把
你会做的题目拿足分，至于一些你从未接触过的题目，即使你一点思绪也没有，也要争
取“胡乱”“编造”写满试卷，因为专业课考试不象基础课那样严格，毕竟是学校里的
老师自己判卷，他们总是有一些“恻隐之心”的，弄不好可以多“混”几分。
专业怎么报
最后我想谈一下报考的问题。当然，报考什么主要取决于考生的个人兴趣和志向，但不
用我说，每年的趋势也是大家极为关心的。就拿国贸和金融这两个专业来说，99年金融
分数很高，而国贸较低，所以金融很难考，而去年国贸的分数一下就上来了，金融相对
又较为容易。所以大家应该注意这些方面的情况。
自己与自己竞争
总之，考研是真实力的比拼，而不是撞大运；但它又不象想象中得那么难。只要大家静
得下心来，耐得住寂寞，不为真正考研复习以外的杂事烦心，集中精力，踏踏实实的学
好基础的东西，是大有希望获得成功的！祝大家美梦成真
--

zhouheng1212

标  题: 对外经济贸易大学2003年金融学专业基础课试题
发信站: BBS 小天鹅站 (Tue Jan 25 19:32:27 2005)

今天整理机器发现的，或许留下来对有的站友有用，贴上来吧

----------------------------------------------------
对外经济贸易大学
2003年攻读硕士学位研究生入学考试

（金融学院）金融学:专业基础课 （试题代码:471）

所有答题（包括英语的判断题和选择题）均做在答卷纸上，并在每题前标明各级题号。答
在本试卷上无效。
一. True—False Questions(1X15=15points.please write T for true statements
or F for false statements following every question number on your answer sheet
)
1. International investment position is a concept of stocks.
2. Asian currency market doesn’t belong to European currency market.
3. Tariff is on expenditure shifting policies ,but monetary policy is just o
ne of expenditure switching policies.
4. Yankee bond is a kind of Eurobonds.
5. Foreign exchange control is mainly aimed at residents.
6. The theoretical foundation of commodity arbitrage is the Law of One Price
,so is that of interest arbitrage.
7. The meaning of foreign exchange at premium or discount in direct quotatio
n system is just the opposite of that in indirect quotation system.
8. Monetary approach to exchange rate determination is actually another vers
ion of Purchasing Power Parity Theory.
9. Interest Parity Theory is about determination of short-run exchange rate.

10. Buying in the international gold market will increase international rese
rves.
11. Free floating of exchange rate leads to a huge drain on foreign exchange
reserves.
12. Devaluating native currency may improve on trade account balance.
13. In buyer’s credit ,payment at sight is required.
14. Bretton Woods System can be regards as an exchange rate system of gold e
xchage standard.
15. Reverse position in IMF is included in general drawing rights.
二.Single or Multiple –Choice Questions (2x10=20points.In each question, at
least one answer is true .If your choices are right but fewer than the standar
d ,you will still get fewer points .Please wirte the letters of your choice fo
llowing every question number on your answer sheet.)
1. Meade’s conflict will take place in the conditions of
A . unemployment and deficit in the balance of payment
B.unemployment and surplus in the balance of payment
c.inflation and deficit in the balance of payment
D.inflation and surplus in the balance of payment
2. which of the following organization are included in the world bank group?

A. International Bank for Reconstruction and Development
B. International Development Association
C. International Finance Company
D. Bank for International Settlement
3. Assume that annual interest rate of Great British pound is 21%and that of
US dollar is 9%,then according to Interest Parity Theory Great British pound
relative to US dollar in 3months forward exchange market will be devaluated by

A,30% B,12%,C,10%,D,7.5%,E,4%,F,3%
4. Bretton woods system is the result of
A,White Plan B,Kenes Plan,C,Brady Plan D,Marshall Plan
5. Currencies determing value of SDRs after 1999 include
A,Swiss Franc B,United State Dollar C,French Franc D,Deutsche Mark E.Italian L
ira
F.Great British Pound G.Japanese Yen H.Euro
6. According to balance of Payment Theory of Exchange Rate ,which of the fol
lowing factors will lead to devalution of native currency?
A.domestic interest rate level up B.foreign GNP increased
C.native GNP increased  D.domestic level up
7. Eurodollar means
A.US dollar in Europe B.US dollar outside USA
C.a general term of US dollars in the whole world D.US dollar reserve
8. In general ,a letter of credit is
A. irrevocable B.confirmed C.unconfirmed D.transferable E.nontransferable
9. In Absorption Approach to the balance of payment ,the direct influence of
devaluation on absorption includes
A. cash balances effect B.terms-of-trade effect
B. income redistribution effect D.monetary illusion effect
E.idle resources effect
10. When economy is in conditions of inflation and deficit in the balance of
payments,which of policy mixes should be practiced by Mundell Assignment Rule
?
A. decreasing fiscal expenditure and raising interest rate
B. increasing fiscal expenditure and reducing interest rate
C. increasing fiscal expenditure and raising interest rate
D. decreasing fiscal expenditure and reducing interest rate

三.简答题 每题4分,共36分)
1. 什么是边际效用递减定律?
2. 纯交换条件下帕累托最优配置的主要条件是什么？
3. 菲利普斯曲线是什么？
4. 欧元对传统货币制度观念的挑战体现在哪方面？
5. 商业信用具有哪些局限性？
6. 什么是货币需求分析研究微观角度和宏观角度？
7. 货币供给的内生性或外生性命题的含义是什么？
8. 什么是“成本推进型”通货膨胀？
9. 什么是货币政策的内部时滞？
四.简述题（每题10分，共30分）
1. 简述凯恩斯的货币需求函数。
2. 简述政府的财政政策原理。
3. 分析发展中国家金融自由化的主要内容。
五.案例分析题（满分14分）
有人主张对原油征收附加税，并认为原油价格上升不会引起汽油价格上升。他们的推理是
:真实汽油价格上升，但价格上升引起汽油的需求减少，这就会使汽油价格下降到原来的
水平。这种推理对吗？为什么？
注意:以下请考生按所报的货币经济学、金融经济学或金融组织学三个专业之一答题。
六.简述题（考生按所报专业方向答其中二题，每小题10分，满分20分）
1.（货币经济学方向答）分析功能性金融监管的内容及优点。
2.（货币经济学方向答）根据《中华人民共和国中国人民银行法》的有关内容，简要分析
我国中央银行的独立性。
3.（金融经济学方向答）简述国库券的市场特性和收益率的计算方法。
4.（金融经济学方向答）投资者购入一投资组合，当时市场无风险利率是6%，预期市场收
益率是16%，假设所购投资组合预期的永久现金流为1000美元，但因有风险而不确定。如果
投资者认为该组合的贝塔值0.5，但实际上该组合与市场组合的协方差加倍时，投资者愿
意支付的金额与该组合的实际价格间有什么样的差距？（提示:用资产定价模型计算和分
析）
5.（金融组织学方向答）分析杠铃结构投资法及优缺点。
6.（金融组织学方向答）简述融资缺口模型及其运用。
七.论述题（考生按所报专业方向答其中一题，满分15分）
1.（货币经济学方向答）以中央银行宏观经济分析的货币账户的构成分析:（1）不同层
次货币供给的生成机制和相互关系；（2）货币账户同其它宏观经济账户的关系。
2.（金融经济学方向答）结合我国实际，分析间接金融和直接金融之间运行机制和功能的
差异。
3.（金融组织学方向答）试述现代商业银行的发展趋势。