| Isaac 的个人资料Isaac Montgomery日志列表网络 |  工具  帮助 |
|
1月5日 新年就这么来了不得不说我真的很懒，看看过去的2007年，发现我没写什么东西。虽说我着实写不出什么有意义的东西，不过这种借口终归只能用来搪塞自己吧。 我也不知道我在2007年到底在做什么，似乎只是一直在忙碌，做一些看似有趣的事情，然后感觉自己一直在进步，就像ACM班班训说的“每天把自己变得更强些”。其实班训前面还有两句话，“不断进取,追求卓越”，我一直不知道，大概是老板平时也不大提的缘故。我一直只记得这么一件事情，那就是每天让自己不断得变强，至于为什么，也许是那个不知停留在何方的疯狂的理想在作怪。 一年里做废了两个网站，退出了一个团体，重装了数不清的电脑，喝了数不清的酒，也看了很多很多的书和文档，感受到了从未有过的冲击，还了结了一件我一直很在乎的事情。。。总之一年就这么过去了，也没必要把旧账统统翻一遍，大概就是这个样子。 不像2006的最后一天喝酒喝到吐了，2007年的最后一天没有喝酒，这一顿没有酒，也不需要酒，很开心地和老朋友吃了顿饭，晚上四个人在外面游荡，到很晚才回去。很久很久没有这样子开心了，也许是一些事一直压在心里的缘故，现在终于可以释怀，也未尝不是一件好事。 之后就是2008年，从一开始就注定要忙碌的2008年，期终就在眼前了。 前几天一直对VHDL这个烂语言很无语，明明觉得逻辑很正确的代码，结果总是不对。昨天在crow同志的帮助下终于搞定了，感谢crow同志，也感谢老师一直让我用实验室，我在那里混的时间可不短了。 昨天下午终于把传说中的dll编译好了，于是乎我们的Othello终于有了可测试的平台，再加上前一周搞到的系数，瞬间我们的Othello成了打遍天下无敌手的Bug。现在还差历史启发以及其它特征的系数，如果将这几个综合起来应该可以再一次对棋力有很大的提升。还剩最多半个月的时间，争取弄出一两个吧，这样子PPCA这门课也算是有一个圆满的结果了。 至于企业策划与实践这门课，实在没什么想法，现在也只能勉强凑一个文档还有一个ppt应付一下了，不管怎样还是感谢老师之前给了我一个寻找失落感的机会。 流水账差不多记好了，就这样，继续动漫去了。。。 12月26日 退出我一直很喜欢自己冲动的性格，因为我觉得什么都不敢做那不是男人。常常会有些冲动的想法，只要是自己能够承担后果的事情，我都会选择去做。 这一次，我又冲动了，并且我又要去承担冲动的后果。 我选择退出，不属于我的东西终究该远离吧，也许这真是欧氏空间的两条相交的直线，曾经有一个交点，之后是无尽的远离。。。 12月9日 12月09号这个星期一直在研究Othello，很奇妙的东西。本来觉得IEEE的文章质量还是不错的，不过这周之后我对某些文章彻底绝望了。 Temporal Difference Learning Versus Co-Evolution for Acquiring Othello Position Evaluation 这篇文章发表于Proceedings of the 2006 IEEE Symposium on Computational Intelligence and Games（CIG 2006） Temporal Difference Learning of an Othello Evaluation Function for a Small Neural Network with Shared Weights 这篇文章发表于Proceedings of the 2007 IEEE Symposium on Computational Intelligence and Games (CIG 2007) Evolutionary Othello Players Boosted by Opening Knowledge 这篇文章发表于2006 IEEE Congress on Evolutionary Computation 上面三篇文章貌似代表了最近Othello研究的最新成果，基本上都是用GA或者神经网络，还给出了不同AI在Tournament中的得分状况。
三篇文章都指出CEL的AI是最强的，我一开始也这么认为，于是用文章给的参数写了一个估价函数。本来对这个AI期望很高的，结果用使用这个估价函数的AI跟我们目前的AI对战，双方各执黑白一次，从搜索1层到搜索7层，CEL的AI完败。 我以为是我的函数写错了，去论文的作者的网站下了一个她的Sample，再下仍然是完败。。。 对这种文章完全没有想法了，本来以为这个上面的文章都不错的，结果居然是这个样子。。。交大的电院博士生毕业就要求一篇IEEE，看起来原来就这个水准的也可以毕业了。。。 今天参加了第十届上海市慈善慢跑，看到那么多人来参加其实还是很感动的。一只觉得中国人对慈善事业不够热心，今天看到有这么多普通市民参与其中，顿时看到了希望。也许现在的问题都是暂时的，几代之后我们的后代们也能看到一个充满爱与责任的社会吧。 回来后就一直睡到晚上，去讲了PPCA的ppt，Game Theory，本来觉得ppt这次做得很漂亮的，按照正常讲东西的状态来说应该很完美。不过么貌似这个ppt做的太早了，两周的时间过后我连程序写得什么都不记得了。。。糟糕的presentation啊。。。 还有逻辑作业没做，现在好好研究一下：） 12月1日 贴歌词今天看了三国志的动漫，感觉片尾的音乐很好，贴贴歌词 风姿花传-----谷村新司 6月26日 知道分数以后。。。。。。 今天知道了自己的分数，639，湖北省累计到这个分数有503人，貌似不是很好的分数。知道分数之前呢，我估分640，然后某天做了一个梦梦到看到分数是637，今天发现这两个数字都比较接近啊，看来我的感觉实在是很准的。
最近刚刚过了18岁生日，终于成年了。父母的生日礼物是一台Sony的笔记本电脑，VGN-FE18C，T2400 （1.83GHz）的CPU，1G内存，80GB硬盘，15.4的屏幕，GeForce7400 显卡，256MB显存，DVDRW，还有内置摄像头，实在是非常爽，另外还受到了两个很特殊的小礼物，我都会珍藏的
 在迷茫中，走完了高中，心情很复杂，短短的三年经历了太多太多。。。。。。
不知我为何做出从武钢三中转到华师一来的决定，也许是一时头脑发热吧，也许这个决定让我最终与金牌无缘，但有什么好后悔呢，或许我的一生都得益于这个冲动的决定吧：）初到华师一，一切都那么新鲜，梦想中的高中原来就是这样的------白天坐在只有40多人的教室里上课，晚自习干自己的事，没有老师上课，回寝室后一群人躺在床上聊天，憧憬美好的高中以及未来，想着三年后可以去清华或者北大。。。。。。生活过得很滋润，虽然每天都要和N多的题目打交道，不过感觉是很好的，毕竟这是在向自己的梦想走去。
高一时莫名其妙地捡起了数学竞赛并以此为业，希望可以实现多年的梦想，由此开始了我的咖啡生涯。每天晚自习至少一杯\罐咖啡，每天在正课外看数学书近10小时，短短的一个学期就学完了几套竞赛教材，寒假还去北京玩了一趟。虽说是个很垃圾的冬令营，不过讲义上的题目还是蛮有意思的，我们也顺便买了几本数学书，以后这些书成为了宝贝书：）这样看来，参加培训的唯一意义就是买书。。。。。。非常Ｅａｓｙ的考试题，虽然说是两个小时的，我花了半个小时就搞定了，又干坐了半个小时后实在受不了了就交卷离开。我和叶出去逛了一大圈，下午的颁奖仪式我们也没去。我们两个都犯了低级错误，得了两个二等奖，阿柳同学得了唯一的一个一等奖，这样前三名就被我们学校的三个人包了。之后就是不到一周的寒假，这么短的假期实在是不爽，不过也没办法，谁要我们是理科实验班呢？高一下上了没几天课我就搬去小教室了，在初中部找了一间大教室，我们几个人用，除了周一上午有一个三道题的测试，剩下时间都是自习。日子过得倒是舒畅，每天早上睡到７点多起来去教室，第一节下课前去吃早饭，第五节下课前吃午饭，下午亦如此。。。。。。就这样，日子一天天过去，中间我组织了一次到森林公园的春游，参加了一个创新杯数学竞赛，拿了一个一等奖。后来金牌发下来，我们三个一人一个，就把牌牌撤下来弹硬币玩，实在是消极：）再往后就搬家了，从洪山校区搬到了武昌校区，暑假开始上了几天课就放假了。本来这是个好消息的，因为这样我们应该有近２０天的假期，实在是很难得，结果我在家４天就又被老师召唤到了学校。我，叶之林还有洪裕三个人上午在办公室自习，做卷子，下午和高二理科班的一起考试，晚上自己安排。这段时间搬到了公寓，日子过得很好，晚上可以从六点开始做题一直到两点左右，这样一天晚上就可以完成一份冬令营的试题，感觉相当好。８月又去了一趟北京，这回住在清华附中，参加２００４年的协作体夏令营。我和高三的人每天除了听听课，就是在清华北大瞎逛，把路都混熟了。现在呢，他们大多都在那里了，我却只能呆在武汉继续度过我的大学。。。。。。可悲啊！！！
高二一开始就是联赛，这是第一次巨大的打击，我光荣得获得了二等奖，差几分一等奖，郁闷的人。考完联赛马上就是社会实践，一次很有意思的集体活动。在农村的一周过得非常愉快，看到了很多有趣的东西，也让我看到了我们国家军队的落后。回来以后要写社会实践的论文，我就花了一个通宵的时间写了一篇《新世纪的中国人名解放军军队建设》，长达１９页，结果居然连三等奖都没评上，气死我了。社会实践后，我在计算机组呆了一个月，后来我决定我这辈子就搞计算机了。在计算机组的日子里，每天都充满了欢笑，整个小组就像一个家，我也学得很多很快。后来的ＮＯＩＰ算是第二个打击，如此简单的题目居然没有一等奖。。。。。。两件事让我郁闷了相当长的一段时间，实在是没什么话好说的。后来很平静的度过了高二上的剩下的时间，我赢来了迄今为止最长的假期－－一个月的寒假，不过每天都在和题典奋斗，我一个假期搞定了两本题典，还做了大量的其它的题目，算是收获颇丰吧。一开学就去参加国家集训队的旁听，最后的成绩并不理想，不过我这次结识来自全国各地的竞赛选手，也不虚此行。经过一个学期的准备，我又一次参加了协作体夏令营，这回是在大连，一个美丽的城市。虽然考试时在发烧，我还是获得了一等奖，算是运气好吧。在大连期间，每天晚上都比较自由，我就在外面四处逛，某日有幸找到了一个视野极佳的位置，可以俯瞰整个大连夜色，实在是美极了！可惜的是这美景仅有我一人独享，他们都懒得走到这么远的地方来，就如王安石在《游褒禅山记》中所说一样。
回来后就是高三了，又搬了一回家，来到了偏僻的鸟不拉屎的江夏区。。。。。。郁闷的备考生活，中间其它小组接连考挂，本来以为这回我们会人品大爆发的，事实证明我们的人品都被阿柳抽干了，我们全军覆没，唯有阿柳一路杀进了国家队：）第三次打击之后我马上开始准备最后一次ＮＯＩＰ，这次是为我的前途一搏了。结果呢，我又考挂了，简直是不可思议。。。。。。第四次打击让我绝望了，也许我就不该搞竞赛吧，那现在怎么办呢？？？？？？大学怎么办？？？我甚至产生了去南开学数学的打算，这个是我唯一可以保送去的学校，貌似还不错。还有一个去法国的机会，还有其他任何学校的自主招生的机会，不过我最终都放弃了。。。我明白从小到大，我都一路走来，不管多么困难，我从来都没有放弃过，难道这个时候我就可以这么轻易的放弃？还有六个月啊！事实证明我的决定是对的，经过６月的艰苦备考生活，我的总分从５１０到５７９，到５１９，到５７０，到６１０，到６６１，再到最后高考的６３９，虽然不是很理想，不过还是有华工计算机系上的，这就足够了。对于我来说，用六个月的时间再加上高中总共上课一年取得这样的成绩，已经很满足了：）
然而高考这个东西总是有人欢喜有人愁的，很多人考的并不理想，现在正处在极度的郁闷之中，这是很正常的，就像我连续Ｎ次打击又放弃了所有的机会时一样。不过，我个人认为再惨也不会比我惨，我现在都过得很好，所以那些人也应该充满希望的！相信未来是自己的，将未来把握在自己手中，生命很快就会充满阳光的！
就这样，还要做项目，准备面试，希望可以参加面试的：） 5月31日 终点？开始？ 不知不觉中，以前想者很痛苦的六个月过去了，马上就要高考了。。。。。。
对于我来说，高考一直只是一种形式上的东西，仅仅在某种意义上表明这是高中生活的终点，大学生活的开始吧。现在呢，即将很平静面对它，希望我可以用我三年的汗水把它敲得粉碎：）
还要复习，就不说太多，希望理科试验班的每一个人都可以考得很好，还有Allen可以梦想成真：） 3月31日 等待 已经回班上课四个月了，今天刚刚考完八校联考，真的很无聊。。。。。。也许是懒散惯了，这样的生活过的很郁闷。幸好只有两个月了，不然恐怕真的会疯掉的。
最近抽时间复习了一下Delphi,写了一个读图片数点的程序。自己认为写的不错，程序没有什么Bug，功能也比较让人满意（客户需求），顺便学了一下怎么处理图片信息，以后有时间我也可以写一个PhotoShop了：）
下面把源代码贴出来，留个纪念：）
picture5(V1.1.2.3)
Picture.DPR
program Picture;
uses
Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {AboutBox}, Unit3 in 'Unit3.pas' {Frorm3}, ImageProcessingPrimitives in 'ImageProcessingPrimitives.pas', RealColorLibrary in 'RealColorLibrary.pas', ColorLibrary in 'ColorLibrary.pas', GraphicsConversionsLibrary in 'GraphicsConversionsLibrary.pas', IEEE754 in 'IEEE754.pas'; {$R *.RES}
begin
Application.Initialize; Application.Title := '图片信息统计系统'; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm3, Form3); Application.Run; end. Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, ExtDlgs, StdCtrls, ComCtrls, ImgList, StdActns, ActnList, ToolWin, ColorLibrary, XPMan, Buttons; type
TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; guanbi1: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; Image1: TImage; OpenPictureDialog1: TOpenPictureDialog; N11: TMenuItem; Panel1: TPanel; StaticText1: TStaticText; StaticText2: TStaticText; StaticText3: TStaticText; Edit1: TEdit; Edit2: TEdit; BitBtn1: TBitBtn; procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure Image1Click(Sender: TObject); procedure guanbi1Click(Sender: TObject); procedure N5Click(Sender: TObject); function calc:Double;
function AreRGBTriplesEqualA(CONST Triple1, Triple2: TRGBTriple): BOOLEAN; function AreRGBTriplesEqualB(CONST Triple1, Triple2: TRGBTriple): BOOLEAN; procedure FormCreate(Sender: TObject); procedure N6Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } Directory : String; end; const COUNT=1;
var
Form1 : TForm1; BitmapTemp : TBitmap; BitmapHeader : pBitmapInfo; BitmapImage : POINTER; HeaderSize : DWORD; ImageSize : DWORD; Height,Width : DWORD; Current : TRGBTriple; Flag,Flag1 : Boolean; Delta : Longint; implementation
uses
Unit2,Unit3, JPEG, ImageProcessingPrimitives, RealColorLibrary, GraphicsConversionsLibrary, IEEE754, Math; {$R *.dfm}
procedure TForm1.N3Click(Sender: TObject);
begin if OpenPictureDialog1.Execute then begin Flag:=True; Directory:=OpenPictureDialog1.FileName; BitmapTemp:=LoadGraphicsFile(Directory); Image1.Picture.Bitmap:=BitmapTemp; GetDIBSizes(BitmapTemp.Handle, HeaderSize, ImageSize);
GetMem(BitmapHeader, HeaderSize); GetMem(BitmapImage, ImageSize); Form3.Label12.Caption:=Directory;
Width:=BitmapTemp.Width; Height:=BitmapTemp.Height; Form3.Label13.Caption:=IntToStr(Width)+'×'+IntToStr(Height); // Form3.Label13.Caption:=IntToStr(ImageSize); end; end; procedure TForm1.N4Click(Sender: TObject);
begin Close; end; procedure TForm1.Image1Click(Sender: TObject);
var dc : HDC; pt,pp : TPoint; ans : TColor; s1,s2 : String; temp : Longint; begin
if flag then begin dc:=GetDC(0); //ans:=GetDeviceCaps(dc, BITSPIXEL); GetCursorPos(pt); ans:=GetPixel(dc, pt.x, pt.y); Current.rgbtRed:=GetRValue(ans); Current.rgbtGreen:=GetGValue(ans); Current.rgbtBlue:=GetBValue(ans); ReleaseDC(0, dc); pp:=Image1.ClientOrigin;
Form3.Label9.Caption:=IntToStr(Current.rgbtRed);
Form3.Label10.Caption:=IntToStr(Current.rgbtGreen); Form3.Label11.Caption:=IntToStr(Current.rgbtBlue); Form3.Label5.Caption:='X='+IntToStr(pt.x-pp.x); Form3.Label6.Caption:='Y='+IntToStr(pt.y-pp.y); Form3.Shape1.Pen.Color:=RGBTripleToColor(Current); //BitmapTemp.Canvas.
Temp:=trunc(Calc*10000);
s1:='';s2:=''; Str(Temp,s2); while(length(s2)<4)do s2:='0'+s2; if(s2='0000') then s1:='0'+'%' else s1:=IntToStr(Temp div 100)+'.'+s2[3]+s2[4]+'%'; s2:='';Str(Calc,s2); Form3.Edit2.Text:=s1; Form3.Edit1.Text:=s2; end; end; procedure TForm1.guanbi1Click(Sender: TObject);
begin If Flag then begin BitmapTemp.Free; Flag:=False; Image1.Picture.Assign(Nil); end; end; procedure TForm1.N5Click(Sender: TObject);
begin If Form3.Visible then Form3.Close else Form3.Visible:=True; end; function TForm1.calc:Double;
var Count : Double; Total : Double; i,j : Longint; rowIn : pRGBTripleArray; begin
Count:=0;Total:=Height*Width; for j:=0 to Height-1 do begin rowIn:=BitmapTemp.Scanline[j]; for i:=0 to Width-1 do begin if AreRGBTriplesEqualA(rowIn[i],Current) then Count:=Count+1; end; end; Calc:=Count/Total; end; function TForm1.AreRGBTriplesEqualA(CONST Triple1, Triple2: TRGBTriple): BOOLEAN;
begin RESULT:=(Abs(Triple1.rgbtRed-Triple2.rgbtRed)<=Delta)and (Abs(Triple1.rgbtGreen-Triple2.rgbtGreen)<=Delta)and (Abs(Triple1.rgbtBlue-Triple2.rgbtBlue)<=Delta); end; function TForm1.AreRGBTriplesEqualB(CONST Triple1, Triple2: TRGBTriple): BOOLEAN;
begin RESULT:=(Abs(Triple1.rgbtRed-Triple2.rgbtRed)+ Abs(Triple1.rgbtGreen-Triple2.rgbtGreen)+ Abs(Triple1.rgbtBlue-Triple2.rgbtBlue)<=Delta); end; procedure TForm1.FormCreate(Sender: TObject);
var Input : TFileStream; begin Flag:=False;Flag1:=False;Delta:=0; { Input:=TFileStream.Create(GetCurrentDir+'\Delta.ini',fmOpenRead); Delta:=Input.Read(Delta,Delta); StaticText4.Caption:=IntToStr(Delta); Input.Free;} end; procedure TForm1.N6Click(Sender: TObject);
begin if not Flag1 then begin Application.CreateForm(TAboutBox, AboutBox); Flag1:=True; end; end; procedure TForm1.N11Click(Sender: TObject);
begin If Panel1.Visible=False then begin Panel1.Visible:=True; Edit1.Text:=IntToStr(Delta); Edit2.Text:=IntToStr(Delta); end else Panel1.Visible:=False; end; procedure TForm1.BitBtn1Click(Sender: TObject);
Var Output : File; begin Delta:=StrToInt(Edit2.Text); Panel1.Visible:=False; { AssignFile(Output,GetCurrentDir+'\Delta.txt');Rewrite(Output,1); Writeln(Delta);CloseFile(Output);} end; end.
Unit1.dfm
object Form1: TForm1
Left = 127 Top = 249 Width = 808 Height = 534 Caption = #22270#29255#20449#24687#32479#35745#31995#32479 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 0 Top = 0 Width = 800 Height = 480 Cursor = crCross AutoSize = True DragCursor = crCross OnClick = Image1Click end object Panel1: TPanel Left = 8 Top = 40 Width = 217 Height = 129 TabOrder = 0 Visible = False object StaticText1: TStaticText Left = 8 Top = 8 Width = 64 Height = 28 Caption = #33394#23481#24046 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object StaticText2: TStaticText Left = 8 Top = 40 Width = 28 Height = 17 Caption = #40664#35748 TabOrder = 1 end object StaticText3: TStaticText Left = 8 Top = 64 Width = 28 Height = 17 Caption = #35774#23450 TabOrder = 2 end object Edit1: TEdit Left = 48 Top = 40 Width = 150 Height = 21 ReadOnly = True TabOrder = 3 end object Edit2: TEdit Left = 48 Top = 64 Width = 150 Height = 21 TabOrder = 4 end object BitBtn1: TBitBtn Left = 72 Top = 96 Width = 75 Height = 25 Caption = #30830#23450 TabOrder = 5 OnClick = BitBtn1Click end end object MainMenu1: TMainMenu AutoHotkeys = maManual Left = 8 Top = 8 object File1: TMenuItem Caption = #25991#20214'(F)' object N3: TMenuItem Caption = #25171#24320'(O)' OnClick = N3Click end object guanbi1: TMenuItem Caption = #20851#38381'(C)' OnClick = guanbi1Click end object N4: TMenuItem Caption = #36864#20986'(X)' OnClick = N4Click end end object N1: TMenuItem Caption = #35270#22270'(V)' object N5: TMenuItem Caption = #23646#24615'(P)' OnClick = N5Click end object N11: TMenuItem Caption = #33394#23481#24046'(C)' OnClick = N11Click end end object N2: TMenuItem Caption = #24110#21161'(H)' object N6: TMenuItem Caption = #20851#20110#25105#20204'(A)' OnClick = N6Click end end end object OpenPictureDialog1: TOpenPictureDialog FileName = 'C:\Final Fantasy.jpg' Left = 32 Top = 408 end end Unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI, ExtCtrls, jpeg, Variants; type
TAboutBox = class(TForm) Panel1: TPanel; ProgramIcon: TImage; ProductName: TLabel; Version: TLabel; Copyright: TLabel; Comments: TLabel; OKButton: TButton; Label1: TLabel; StaticText1: TStaticText; StaticText2: TStaticText; StaticText3: TStaticText; procedure Label1Click(Sender: TObject); procedure OKButtonClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var
AboutBox: TAboutBox; implementation
uses
unit1; {$R *.dfm} procedure TAboutBox.Label1Click(Sender: TObject);
begin ShellExecute(Handle,nil,PChar('mailto:montgomery_isaac@hotmail.com'),nil,nil,SW_NORMAL); end; procedure TAboutBox.OKButtonClick(Sender: TObject);
begin Close; end; procedure TAboutBox.FormClose(Sender: TObject; var Action: TCloseAction);
begin Unit1.Flag1:=False; end; end.
Unit3.pas unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ImageProcessingPrimitives, RealColorLibrary, ColorLibrary; type
TForm3 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Shape1: TShape; Edit1: TEdit; Edit2: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); private
{ Private declarations } public { Public declarations } end; var
Form3: TForm3; //procedure PreProcess;
implementation
{$R *.dfm} {procedure PreProcess;
var FloatRow: pSingleArray; i : integer; j : integer; PixelRow: pRGBQuadArray; R,G,B : BYTE; begin for j:=0 to Height-1 do begin PixelRow:=Scanline[j]; FloatRow:=Scanline[j]; for i:=0 to Width-1 do with PixeRow[i]do begin rgbred end; end;
end;} procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin Form3.Visible:=False; end; end.
Unit2和Unit3的Form不好贴，就算了
里面还调用了ColorLibrary.pas，GraphicsConversionsLibrary.pas，IEEE754.pas，ImageProcessingPrimitives.pas，RealColorLibrary.pas这几个文件。
这是偶的第一个赚钱的程序，虽不知赚了多少不过也算是一种安慰吧，毕竟有人承认自己做的东西了，继续努力吧。至于高考么，目标只有华工计算机系了，相传去年它在湖北的分数线是648分，比清华的投档线低一分。。。。。。革命尚未成功，同志仍需努力啊：）
New Start 明天就是2006年,又一年过去了,不知道过去的一年中我又成长了多少。
不知怎的，2005年是我最郁闷的一年了，数学和计算机都考杂了，没办法，只能接受命运吧，也许对于我来说高考才是惟一的出路吧。既然已经这样了，我也就只有努力了，但愿06年会好些。
当然，总得来说，这一年过的还是不错的。协作体夏令营的那趟大连之旅是我终身难忘的，在沈阳也结交了很多朋友，五月还通过了软件设计师的测试，这些都算是05年的闪光点吧。
但是这些都已经成为过去，接下来的路是很艰苦的，毕竟用六个月时间来完成高中三年的全部内容是一件很麻烦的事，希望我可以的。毕竟我的智商还是比较高的，情商也还不错，个人感觉良好：）
就这样吧，休息一下，祝朋友们新年愉快：） 12月16日 Over 又一次要说很遗憾了，没办法又拿了一个计算机二等奖，只这能这样子了。两年，四个二等奖，也真是让人够恼火的，可以说是极度的郁闷。。。。。。
终于，要开始另一种生活了———高考，以前从未想过的，现在只能接受现实了。因为竞赛的缘故，前两年基本上没怎么学其他的科目，现在有一大堆的内容要自学。还有不到六个月的时间，但是要从什么都没学开始准备高考，想来还是非常恐怖的。毕竟，这只是整个高中的六分之一，时间是很短了。虽然如此，我觉得还是有希望的，毕竟数学已经够好了，这对于学其他的科目都有帮助，还有智商也不低，记忆力也还不错。时间虽短，但是只要努力还是可以的。就像一句话中说的，“蜘蛛不会飞翔，但它照样把网结在了空中，奇迹是执著者造就的”。
已经回班上了四周的课了，每天事很多，除了完成老师布置任务外的还要补课，还要管理班上的一些小事，感觉就像高一刚来时一样，生活很充实。还有一百七十几天就要高考，我的高中时光已经不多了，最后的日子里希望我能愉快的度过，享受和大家在一起的每一天。
就这样把，最后祝所有关心、支持我的人以及我的朋友们一切都好！ 11月18日 明天ＮＯＩＰ 明天就是ＮＯＩＰ，这段时间的计算机组生活也到了该结束的时候了，下周就回班准备高考。这个时候有很多的话想说，毕竟之后将要开始的是一种截然不同的生活。
去年这个时候的感觉和现在是大不相同的，现在想来大概是一种无所谓的想法吧，那时总想着“以后的机会很多，现在只是试试就可以的”。这个时候，在经历了数学考砸之后，很多都变了。那确实是个很大的打击，从来没想过会考砸的，现在只能接受残酷的现实。
对于曾经的日子，每一天都是值得怀恋的，那是一生中难得的经历，每一天都充满了欢乐。至于以后的路，虽然有些迷茫，但我对未来充满希冀，我的目标从未因任何事而改变，所以无论怎样我都会努力的。至于能否成功倒不太重要了，因为我努力过，我问心无愧就足矣。。。。。。
剩下的话就可以略去了，大多是怀念以前的日子。明天还要考试，现在就做些不懂脑子的事，好好休息一下  11月6日 NOIP 最近一段时间都在准备NOIP中，每天都很辛苦。早上一到机房就做题，下午讲题，晚上则是整理白天的题目，写解题报告。
日子就这样一天天过去，还有两周就要考试了。虽然每天都很累，但是感觉很好，就像高一来时刚开始学数学一样。毕竟每天都在学习新的东西，能够有所得就是最好的了。
虽然这样，有时总会有些想法。既然秋天是收获的季节，为什么到现在为止却是颗粒无收？难道付出的努力还不够？我不是个相信命运的人，我相信自己的努力可以使自己成功，但是每次总是在关键时刻失败。。。。。。为什么？？
我不想想的太多，毕竟有些问题一辈子都不会明白的。也罢，就这样吧，继续努力，不论还有多少失败在等待着我，我都不会放弃对理想的追求，我会一直坚持下去的。
现在呢，好好准备NOIP，Go for it! 10月16日 Game Over 今天数学联赛终于考完了，很遗憾没能考出一个满意的成绩。虽然成绩还没出来，不过个人感觉很不好，看来注定要失败了。。。。。。
对于许许多多支持我的人,我只能说“对不起，我尽力了，只可惜我失败了”。
考试时的心态是三年中最好的一次，大概是因为看得很淡的缘故吧。虽然一试做的很失败，平时不论如何都是大题满分，这一次大题和小题都错不见了。但是考过后出奇地平静，并没有太大的情绪波动，二试时的状态也还不错。虽然如此，不过。。。。。。
真的很遗憾，努力了三年，最后不能有应有的收获。。。。。。
当然，人不能总停留在失败的阴影中。考完了，也就过去了，接下来还有计算机竞赛，我还可以再得一个一等奖的，我还有机会。
对于联赛，就这样了。我不期盼过多，随便怎样吧。现在，我只想回忆一下在数学组度过的两年。
其实一开始从武钢三中过来，我就没打算学数学的，希望能够学物理或者化学。不过老天爷就是不让我如愿，高一数学联赛后我就被余老师预挖到数学组了。其实那一次也没怎么准备，很诧异的是我居然人品爆发了，然后考了一个比较精妙的成绩，被余四平看中就只好去数学组了。
接下来就是拼命地学习，毕竟初中的竞赛基础不好，只有通过努力才可能有快速的提高。那段时间是高中最苦的日子，一天除了上课之外还要做近十小时的数学题，每天不停的做题，一直到12月底才结束第一阶段的学习。令人欣慰的是付出的得到了回报，我的数学水平上了一个台阶，虽然离目标查很远，但是看到自己水平的提高就对以后的学习充满了信心。
1月，我参加了第一次外出培训。那次是去北京，不过完全被骗了，老师讲的剧简单，我们上课就只能做自己的题目。至于吃饭问题就更严重了，只有柳智宇很满意，每天还说馒头很好吃，我和叶就只能吃肯德基或者泡面。最后一天有一个测试，无比Easy的题目，120分钟的题目只花了40分钟就完成了，可惜错了一题。下午是闭幕式兼颁奖，我和叶就没去了，两个人去逛大街了。那次培训基本上什么都没学到，唯一做的就是去北京逛了一圈。
开学后继续正常的生活，一直到4月底。
四月之后的生活就完全不同了，我不再去班上上课，每天都呆在初中的一间教室里自习，周一时会有一个三道题的测试。这段时间过得很消极，一天的大部分时间都在混日子，然后早早地去食堂吃饭，总是在别人还没下课时就已经回到了寝室 。在教室里，我们要么在讨论一些稀奇古怪的数学问题或者就是讲一些强人的故事，剩下的时间看一下书或者睡一下。
时间过得很快，转眼间高一就结束了。这次，我和富雷住在公寓，这样晚上就有更多的时间可以供自己支配，用电也会方便许多。假期时别的组都有补课，不过数学组却都放了假，很可惜的是我辈李建国叫到学校来自习。上午的时候我，洪裕还有叶之林就在数学老师的办公室自习，下午和高三的一起参加测试。测试很无聊，或者是一试的模拟题，或者是四道大题。总的来说，完成的都不错。晚上的时间我都呆在宿舍，从6点开始做题，一直到2点半。那段时间我的精神实在是好，每天到晚上2点多钟仍然不想休息。
7月31日，我和高三的4个同学一起去清华附中参加协作体夏令营。这是一个很好的学习机会，不过我们更倾向于逛清华北大。每天课余，除了洗澡洗衣服吃饭之外，我们湖北来的几个人总在清华北大里逛来逛去，想为以后的生活做好准备——提前熟悉一下地形嘛。其间的测试考得很不理想，主要是小题做得不好，后来我还专门花了一段时间连小题，不过貌似这次小题又没考好。后来我们还去爬了长城，我一路狂奔冲到最高点，实在是无比NB，不过看到一个老奶奶慢悠悠地从上往下走我就郁闷了，强人啊——居然不出汗！
回来以后准备了一段时间，我抱着很大的期望去参加了2004年的全国高中数学联赛。本来希望能够进冬令营的，不过最后连一等奖都没有，惨哪！我为此郁闷了一周，每天晚上回寝室喝啤酒。
这之后我花了很长时间调整心态，一直到现在对于考试我都以一种无所谓的态度应对。虽然这样，不过该复习的时候还是很认真的。
从10底到第二年六月底，生活都是很滋润的，平时就呆在校教室自习，休息时就在机房编程、上网或者玩游戏。这段时间虽然在数学上花的时间相对以前少了很多，但是却是提高最快的，水平从应对全国联赛提高到冬令营甚至更高。也许很多方面都存在缺陷，但这已是一个大的飞跃。
3月底到4月初，我，叶之林和柳智宇去东北育才中学参加国家集训队的旁听。在东北育才，我认识了很多全国其他地方的竞赛高手，虽然考试成绩不尽如人意，但也有不少提高。
回学校以后我继续弥补自己的缺陷，同时准备8月的协作体竞赛以及10月的联赛。在这期间，我通过了软件设计师的考试（昨天拿到了证书，超酷的绿本本）。
8月份，我在大连度过了愉快的一周，协作体获得了一等奖，这个时候冯威以NOI第十名进入了国家集训队，这些都是我非常高兴。
9月是很让人郁闷的，物理、化学竞赛相继进行，最后成绩都不理想，孙孙和彭迁都考砸了，形势一下子变得很严峻——这届理科班的成败都在于数学了，还得靠数学撑门面了。
这段时间数学组也很团结，大家都很认真地准备着，我也希望大家都能取得满意的成绩。可惜我已经挂了，至于其他人我不清楚，但愿某人能考好的。
考完了，一切都结束了，我也结束了自己在数学组的生活，现在要重新开始另一种生活了，至于它是什么样子，我不得而知。在数学组的两年，是我高中的黄金时间，也是我这么多年来提高最快的两年。我学的东西也许很多在以后的生活中都不会用到，这样的生活也许以后不回再有，对于我而言两年中的一点一滴都是弥足珍贵的。
不管怎样，生活都还要继续，我会继续努力的，并沿着自己的道路一直走下去，但愿我的梦想可以成真，也祝我所有的朋友们都可以梦想成真!
10月14日 Bless 接下来的两天考试比较多。明天下午是NOIP的初赛，个人觉得应该没问题的，毕竟是过了高级程序员的人了。后天呢，是非常重要的全国高中数学联赛，这是最后一次机会了。虽然前两年的成绩都不是很理想，不过经过了三年的努力，我相信自己应该可以实现自己的愿望的。这个秋天是属于我们的，在这里就Bless一下数学组的所有人，祝大家都能考出满意的成绩，当然还有理科班的所有同学，希望大家都能考好！就这样，后天考完了再写。 10月3日 无题 这段时间比较乖，一直在准备数学联赛，本来是不准备上网的，不过今天留校生的活动就是去机房，那我就破一次例了。
最近身体无比之好，头疼没有了，感冒咳嗽也没有了，感觉非常好，而且还可以踢足球，个人认为状态从来没有这么好过。然后就是复习，感觉还不错，基本上差不多了，不过还有些细节需要注意，还有就是最近做小题的正确率不是很让人满意，这个需要再训练一下。不管怎样，最近还是提高了不少的，希望联赛可以考好！
这两天休息了一下，生活比较腐败，早上一睡就是一上午，下午再一睡就吃晚饭了，看来这样子不是很好，明天就恢复原样。
就这样，还是等联赛成绩出来了再写吧。。。。 8月17日 回归 这两天痛苦的咽炎终于好了，感冒还需一段时间即可完全康复，可以开始好好学习了。之后的一段时间希望能够回归到高一时的状态，每天专心学习数学，准备联赛，所以两个月估计不会上网了，Blog也就不更新了。就这样，祝我好运！ 8月11日 大连之旅 本次大连之旅感觉还不错，本来很早就想写Blog的，结果找不到网吧可以让我上网，谁让我只有17岁呢？终于回来了，就随便写一点。
这次去大连发现那里的环境很好，人也很厚道，确实是一个很好的城市。
7-30
今天出发，早上5：00就起来了，把东西收拾了一下，将要搬走的行李都堆到床上，然后就开始了漫长的火车之行，一共28个小时的火车，真是爽到了：）
7-31
中午到的大连，一下车就下雨。在去24中时，我们遇到了第一个问题——过马路，相传是要走地下通道。不过我们发现那其实是个商场，结果就迷路了，四处询问才走出去。。。。。。实在是郁闷。接下来坐Taxi到学校，稍微等了一下就可以去宿舍了。一到宿舍，我们发现更精妙的东西——这里的宿舍都是14人间，没有插座，没有电扇，而且宿舍也是其他学校的，这是差到极点了！下午小小的休息了一下，计划明天的旅游。
8-1
早上吃完早餐我们就出发了，先乘车去星海广场，想看一下海洋世界的。不过到了以后发现人实在是多，不过是花钱看人头罢了，遂决定更换地点——去棒槌岛。虽然不能上岛，不过海边的沙滩还不错，我们拣了半天石头（我的石头以质量取胜，一个比一个大，最后都被我丢掉了）。
接下来是海之韵公园，一路走下来感觉非常好，尤其是石壁上的海洋世界。体形较小的水生物被放大若干倍，看着一个个比自己还大的螃蟹，虾，水母，海星......估计晚上一个人走还是有点怕的，做的实在很像！
8-2
今天是开营仪式，过程很简单，似乎感觉没有去年那么正式，接下来就是上课了。
上课讲的都是些很简单的东西，所以就都不怎么听，基本上都在看书或者帮别人做题。
晚饭是很恼火的东西，说什么5：30开始，结果我洗完澡5点去就没有了，真是很过分！
8-3
上课继续混时间，并为晚饭恼火，只好去吃KFC。
8-4
同上。
8-5
今天安排去金石滩旅游，我们称空调大巴前往，由于空调的缘故我的头疼又发作了，只能一路望着车窗外什么都不能干，不过一路上的风景都被我看完了，感觉确实很美的。不过参观的地方不是很好，先是什么蜡像馆，接下来是所谓的金石园——说到底不过是一堆几亿年前的烂石头，个人感觉不适很适合游览，给小孩子捉迷藏倒是很好的。让我郁闷的是，在爬石头时不小心把胳膊擦破了。。。。。。后来无意中发现，脸上也有两小处，只是不明显。
接下来去一个高尔夫球场，每人试打三杆，感觉还是比较有意思的。我三杆都集中球，貌似还有点距离，对于新手来说还算不错的。可怜的是我们的啊柳，打了N杆都不中，有机会把录像发上来，实属经典啊！
之后是午餐时间，饭后去海边散步，我和叶买了一些贝壳作纪念。
晚上感到不是很舒服，想出去走走，就沿着街走了六七站路，又原路返回，突然看到一条岔路就走进去看了一下。这是发现时间仍然很早，忽然想到住宿之处后面的一个水塘尚未去过，遂决定去看看。看看也就罢了，我突然心血来潮想到后面的山上去看看——山顶有大连电视塔。于是，我一人沿着山路慢慢前行，鉴于山路很幽静，一路上并无什么行人，我小小地总结了一下自己这段时间的得失，又想了一些问题。不知不觉的，我已经来到了山顶，在这里可以看到大连的全貌。由于当时是晚上，且刚刚下过雨，整个城市笼罩在一片静谧的夜色中，虽然处处华灯，但一点也不刺眼，给人一种很温馨的感觉。沐浴在夜风中，欣赏着城市的夜景，实在是一种难得的享受，我觉得自己真的很幸运能够看到这样的景致，其他人也许都不曾见过吧。
8-6
今天又空虚了一天，不过感冒的初期症状已经显现，晚上无比艰难的入睡，最后只睡了4小时，4点就被外面的俄罗斯歌曲吵醒直至7点起床，此时估计体温40摄氏度。
8-7
今天是考试，我已一种极差的状态来到了考场，喝完咖啡后便爬着休息，准备考试。上午是25道填空题，下午是3个大题，完成的都还算顺利。由于下午实在撑不住了，所以四点多就交卷去打针了。医院环境很差，不过护士的态度都很好。我看到一个病人在发牢骚，护士就想方设法让他开心，“不要生气，再气就要上火了，这个天天气本来就很热的”。
晚上回去后依然很难入睡，又睡得很差。
8-8
今天上午还是考试，前两题作的很顺利，半个小时就解决了，结果第三题把握做郁闷了。这是一道陈题，但是当我想出了第一个式子后就再也想不出第二个式子，于是思维一直处于停滞状态。一连3个小时，我都在思考同一个问题，最后不得不去混过程，结果得数错了，所以就没分了。
中午我吃完饭后就去打针了，坐着打针闲来无事就想了一下第三题，结果五分钟就想出来了，实在是郁闷致死。这是回头仔细想了一下，当时就是因为觉得此题以前做过就没有去想构造，但事实是证明的一部分正式从构造中得到启发的，而非凭空想出的，这是在是一个值得思考的问题。以后碰到这样的问题应当如何去处理？
8-9
终于熬出头了，可以离开这里无比垃圾的宿舍了！
上午是闭幕式，出乎我的意料居然还有一等奖，当然是因为今年又10个一等奖，去年只有6个。我们的小哲是第一，啊柳第二，三中三个一等奖，华一两个。
后来听说偶第一天考得很好，相传是第一，等到了第二天就一下子掉到了第九。。。。。。。 没办法，谁让我考试发昏呢！
下午返程，又是30小时的火车，这个就不谈了。
离开总是恋恋不舍的，不过这次我没有这样的感觉，难道大连没有一点值得留恋的地方？我不知道，虽然我看到这个城市很人性化的一面，看到了秀美的景色，生活的很愉快，但是总是感觉少点什么，尝试去找寻，却失败了。不得以，只有这样吧，带着遗憾离去。也许什么时候我想明白了，又会来到大连，找寻曾经失去的感觉。。。。。。 回家休息 昨天去医院取了检查的结果，发现头部没有问题，只是由于颈椎向后突出压迫椎脊动脉导致后脑供血不足，从而引发头痛，这个实在是比较郁闷。。。。。。。。。医生说要我以后不要做剧烈运动，包括打球啊、仰卧起坐啊，还要注意自己的姿势，这样就可以控制病情了。不过此病貌似治不好，这个就没办法了，可能还会影响以后的计算机生涯。。。。。。。。。。。不过昨天还得到了一个好消息，我通过了软件工程师的考试，上午和下午的通过分数都是45分，我的分数是50分和60分，冯威也过了（他是55分和57分）。以后还要继续努力，争取大一过系统分析师：）
今天下午计算机组就要去复旦培训了，祝他们一路顺风，在八月的NOI取得好成绩！
最后呢，计划周日早上乘襄樊到武汉的火车返校，下周好好调整一下状态，争取在协作体的考试中取得好成绩，当然还要继续准备10月的联赛。 |
|
|
