刚才试着在百度和谷歌里分别输入site:www.xiaonei.com 结果是大不一样啊，看来校内网保护用户隐私的工作还要加强啊。
一个颇为有趣的现象
回复
思想汇报
看来要转正的话，有N篇思想汇报要完成呐！看来是非要把偶变成一只河蟹不可，郁闷！
突然就想到了cb上对于“清廉战士”的一段精彩评论：很好，很强大！
——貌似《清廉战士》已经关站了(http://qing.cnlzyx.cn/上说是软硬件升级，实际上已经关了）——可惜了
，要知道它可让宁波在全国人民面前“风光”了好一阵子^_^
——貌似《清廉战士》已经关站了(http://qing.cnlzyx.cn/上说是软硬件升级，实际上已经关了）——可惜了，要知道它可让宁波在全国人民面前“风光”了好一阵子^_^反思
现在的状况是大家都很尴尬，应该说我要对此负一大部分的责任。先是我不顾她的感受贸然出击，结果使她很难处理。其实她很善良，非常善解人意，貌似也给了我 一些机会（我相信这不是我的错觉），但我竟然弱智般地放过了。如果真是那样，她也一定对我失望透顶了。其实，我不在乎有人喜欢她，或者她喜欢别人，因为她 很优秀，这都是很正常的，一切都可以竞争，都可以争取的。
但问题是，现在的我他妈的还不够男人！
梯形积分法
刚刚pan给我一个题目，说要用什么梯形近似，偶不懂啊，只好去百度了，原来是将曲边梯形做n等分后用梯形面积公式求小梯形面积，他们的和就是近似积分值(是数值分析中的常用方法），长见识了啊！——据说还是道澳大利亚的题。汗……
在网上搜到了一个vb代码（积分函数是x平方）：
Dim a, b, dx, x, xx1, xx2, yy1, yy2, Sol, SubSol As Single
Private Sub Command1_Click()
a = Val(InputBox(“下限a=?”, “积分范围”))
b = Val(InputBox(“上限b=?”, “积分范围”))
no = 1000 ‘间隔数
xx1 = a
xx2 = a
dx = (b – a) / no
For i = 1 To no
xx1 = xx2
xx2 = xx1 + dx
yy1 = func(xx1)
yy2 = func(xx2)
SubSol = (yy1 + yy2) * dx / 2
Sol = Sol + SubSol
Next i
b = Val(InputBox(“上限b=?”, “积分范围”))
no = 1000 ‘间隔数
xx1 = a
xx2 = a
dx = (b – a) / no
For i = 1 To no
xx1 = xx2
xx2 = xx1 + dx
yy1 = func(xx1)
yy2 = func(xx2)
SubSol = (yy1 + yy2) * dx / 2
Sol = Sol + SubSol
Next i
MsgBox “积分结果=” & CStr(Sol), vbOKOnly, “梯形法积分”
End Sub
——————————————————————————–
Function func(ByVal x As Single) As Single
‘函数在此更改
func = x ^ 2#
End Function
在vb里编译了一下，真是可以，就是1000的分割有点儿小，不太精确。
ps：在http://richrat.ys168.com/的下载目录里，可以下到那个小程序：梯形积分法.exe
炼狱结束
终于结束了，第一时间发博祝贺
收获颇多，最大的收获就是使我认识到当初自己是如此得幼稚，竟然会去干这种最苦最累又最不讨好的活儿！不过，本人发现中餐馆里的打工仔打工妹们是如此的可爱、善良、本份，他们是我见过的所有人中最最好相处的一些人！