今天凌晨两点，在一片漆黑中离开宁国，上午就到了厦薄雾浓云愁永昼门。真的不知不觉我又度过了一个寒假，很没压力的一个寒假，很世故的一个寒假。寒假干了啥？看了老秦，看了sheldon，见了老姜、芋头、大妈、HL等等，还请了我的第一次客。老秦还是那样让人很愿意去接近，去倾听她的思想，但又不太敢接近，忌惮她可以削铁的眼神。离开的同时，在一片聚光灯下，热刺和米兰拉开了欧冠淘汰赛的序幕，吃早饭时正好看到了比赛结束哪几分钟，单刀不进莫维奇进了一个过程上不合法的漂亮进球，不晓得加图索怎么那么大的脾气，好像这场比赛的裁判在赛后受到了很大的质疑。裁判者，其实在球场上是一个理论上不存在但视觉上存在的生物体，简单说就是隐形人，在这凌乱世界留下的指纹是你最没心跳的一张牌。
兰州的那帮子各种机构各种的不给力，在厦薄雾浓云愁永昼门只有等着了顺带被动的到处逛逛了。很喜欢今天刚到时的那种清新的毛毛雨，驱散了节日里的那份喧闹。
质点的位移与时间成正弦函数关系的运动时简单和谐的运动
质点的位移与时间成线性关系的是匀速运动
质点的位移与时间成二次函数的是匀加速运动
那么，质点的位移与时间成指数和对数函数关系的函数是啥子运动？
本人总是计划太多，做的太少。颓废了这么多日，有些醒悟，就先列个计划吧。
阅读：我读书一直都不多，现在是时候补一补了。当然这里包括cppphymath、reader里的还有那米国语言。
我还想发展下我的脚上功夫，原来看过有个大概叫科力的训练，找找看。
发张我的桌面，上次看了一场贝卡的AC米兰比赛。
23号的背影
学了感生电场发现其电场线是闭合的，这与我们原来学的“电场线是一条不闭合曲线”不符。
Then,why it is? Which is fault?
search, then find this:
导体不动，磁场变化时会产生感生电动势，若导体不存在，磁场的变化仍会在其周围激发一种电场，这种电场不同于静电场，它不是由电荷激发的而是由磁场的变化引起的。故名“感生电场” .感生电场与静电场的共同点是都能对电荷产生力的作用。感生电场的电场线是闭合的，因而它不是保守场，场强的环流不等于零，我们又称其为“涡旋电场”。静电场的电场线是不闭合的，它是保守场，场强的环流恒等于零。
到了这里，我们应该把感生电动势和感生电场联系起来看。当感生电场中有闭合导体时，则在导体上产生感生电流，产生这个电动势非静电力就是感生电场对导体中电荷的作用力，电场是非静电场，它对电荷的作用力就是非静电力了。
导体在涡旋电场中产生的电流就是涡流。而这个涡旋电场则是由变化的磁场产生的。
原来，此电场非彼电场——一个是静电场，另一个是感生电场。
What's difference? 静电场是保守场，感生电场不是保守场。
保守的区别：某个性质与位置是否有关（我的理解）。
差不多就这些。
Mean having confusingly interrelated parts.
Complex suggests the unavoidable result of bringing together various parts, notions, or details and does not imply a fault or failure.
Complicated applies to what offers difficulty in sovling, understanding, or dealing with.
Invovled implies extreme complication and often disorder.
Knotty suggests complication or entanglement that make solution or understanding improbable.
1002.pas关于离散化的补充：其实，在离散化的过程中“大于一定范围的点”是有规律可循的。除过s=t例外，显然当t=s+1 时“大于一定范围的点”最大。设a表示题目中两点范围，b为离散化后的点； 对于这点，可假设全部使用全部用t步，在通过可递减范围确定这个离散化的点。（有点类似小学时的鸡兔同笼）经计算可得到这个公式，当最大步数为t时，有—— b=(2s-t-1)*t+1.（不过，当b数值数据的离散化和概念分层产生
program vp1002;
var
i,j,k,d,l,s,t,min,te,ml:longint;
m:array[0..11000] of byte;
mp:array[0..110] of longint;
f:array[0..11000] of byte;
procedure special;
begin
te:=0;
for i:=1 to ml do
begin
read(k);
if (k mod s=0) then inc(te);
end;
writeln(te);
end;
begin
readln(l);
readln(s,t,ml);
fillchar(m,sizeof(m),0);
if s=t then special else begin
for i:=1 to s-1 do f[i]:=250;
for i:=1 to ml do read(mp[i]);
for i:=1 to ml-1 do
for j:=i+1 to ml do if mp[i]>mp[j] then
begin k:=mp[i];mp[i]:=mp[j];mp[j]:=k; end;
if mp[1]>100 then
begin
k:=mp[1]-100;
mp[1]:=100;
for i:=2 to ml do dec(mp[i],k);
end;
i:=1;
while i<=ml do begin if mp[i]-mp[i-1]>100 then
begin
k:=mp[i]-mp[i-1]-100;
mp[i]:=mp[i-1]+100;
for j:=i+1 to ml do dec(mp[j],k);
end;
inc(i);
end;
for i:=1 to ml do m[mp[i]]:=1;
l:=mp[ml]+t;
for i:=s to l do
begin
min:=maxint-10000;
for d:=s to t do
begin
j:=i-d;
if j>=0 then begin
te:=f[j]+m[j];
if te
program vp1057;
program vp1057;
var
a:array[0..1001,0..1001] of boolean;
f:array[0..1001,0..1001] of integer;
n,m,i,j,k,res:integer;
procedure indata;
var
i,j,x:integer;
begin
readln(n,m);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
for j:=1 to m do
begin
read(x);
if x=1 then a[i,j]:=true;
end;
readln;
end;
end;
begin
indata;
fillchar(f,sizeof(f),0);
res:=1;
for i:=1 to m do f[n,i]:=ord(a[n,i]);
for i:=1 to n do f[i,m]:=ord(a[i,m]);
for i:=n-1 downto 1 do
begin
for j:=m-1 downto 1 do
begin
if a[i,j] then
begin
k:=f[i+1,j+1];
if (f[i+1,j]res then res:=f[i,j];
end;
end;
end;
writeln(res);
end.
code>
极简单的递推方程:f[i,j]:=min(f[i,j-1],f[i-1,j],f[i-1,j-1])+1;
不过小看了一下提示
感觉自己思想总是对的,就是还差那么一点
似乎DP的思想还没完全贯通,那继续做题
