layout: post title: 2009年11月 categories:
没想到<br/> 我还留下这么一个发问帖<br/> 嗯 也没啥<br/> 谁不是从菜鸟过来的？<br/> 我当然也不能例外<br/> 那时才接触电脑不久<br/> 八成只会用ＩＥ<br/> 中标也是很容易的事<br/> 那时我就上１６３了<br/> 现在也还在上<br/> １６３存活时间还真够长的<br/> 可搜狐我怎么一点印象没有呢？<br/> 我都不记得自己什么时候上过<br/> 或许就是可数的几次吧<br/> 现在 就更没有了<br/>
-- 作者：Jerkwin<br/> -- 发布时间：2005-3-13 9:18:16<br/> -- 如何删除骚扰网页？<br/> 打开163或Sohu的时候老弹出一些无聊的网页，关不掉。请各位大侠指教。谢谢。
一夜大风<br/> 天就冷下来了<br/> 早上出门<br/> 风大到不成<br/> 我薄薄的外套已经挡他不住<br/> 只得竖起衣领 缩了头<br/> 手却露在外边 冰冷<br/> 小孩子甚至穿起了羽绒服<br/> 冬天 真的要来了<br/> 或许 已经来了<br/> 只是 好像 来得早了一些？<br/>
写得多了<br/> 才发现日志编辑器里格式调起来真是烦<br/> 反应巨慢暂且不说<br/> 产生的代码也是非常累赘<br/> 根本没有直接写ｈｔｍｌ代码简洁<br/> 看来我真要学学ｈｔｍｌ格式了<br/> 学会了以后直接用代码写<br/> 懒得用这个臃肿的编辑器<br/>
那时湖边游走的时候<br/> 一眼看到湖的对岸<br/> 尖尖的两个 红红的墙<br/> 便马上知道那是教堂<br/> 便想走去近距离看一看<br/> 我绕着湖边慢慢转去的时候<br/> 才知道这近在眼前的教堂<br/> 实际离我远得很哪<br/> 看来 接近上帝的路真是不近<br/> 一个人太阳底下 孤零零地行走<br/> 却只是为了看看上帝世间的朝拜之所<br/> 我也算得虔诚了<br/> 走到中途我几乎要放弃了<br/> 一度想走回头的路<br/> 可惜那会更长 也没有机会<br/> 只得一直走下去 走下去<br/> 终于还是到了这近前<br/> 天主堂<br/> ——那门却不是为我开的<br/>
接昨天<br/> 继续整理那时的照片<br/> 湖边随拍的几个<br/>
我不曾记得自己戴口罩<br/> 大约是没有过吧<br/> 小时候没有机会的<br/> 非典的时候我也没戴<br/> 现在却戴了一次<br/> 这是我印象中的第一次<br/> 以后的机会 或许更多<br/> 这却不是什么好的事情<br/> 我宁愿从来不知<br/>
昨晚累累睡下<br/> 还吃了两片药<br/> 早上醒来看一看钟<br/> １１点<br/> 我相信自己的眼睛<br/> 却不相信那钟<br/> 认定是他中间停走了<br/> 就拿手机来对对时间<br/> 还是１１点<br/> 我不相信自己的眼睛了 <br/> 真是奇迹<br/> 我竟然能一觉睡到11点<br/> 睡的时间够长<br/> 脑袋却还是浑浑噩噩<br/> 一整天都是这样<br/> 也不能思考很精致的东西<br/> 算了 洗洗睡吧<br/>
没有什么特别要说的<br/> 继续整理照片<br/> 还是一起的<br/>
湖对岸的塔形建筑，是做什么的呢？我好像没有走到那里<br/>
夜里雨下得很大<br/> 早上雷打得很响<br/> 现在不是冬天的么？<br/> 怎么还有这么响的雷呢？<br/> 如果是在我的家乡<br/> 父亲又该念叨那句老话了<br/> 寒暑不定的时候<br/> 都是乱穿衣的<br/> 也就给了流感许多机会<br/> 我也要常常跑医院了<br/> 幸好都没有什么大碍<br/> 只是还要注意自己<br/>
Programing...<br/> No Time To Longer<br/>
永远不要高估学生的能力<br/> 也永远不要低估学生的能力<br/> 这貌似矛盾的话<br/> 却蕴含着真理的成分<br/>
这唯一的休息时间<br/> 却也不得闲<br/> 又冷又奔<br/> 又冷又奔<br/> ……<br/>
很冷的天<br/> 我的家乡不是下雪了吧？<br/> 会不会下得很大呢？<br/> 整个村子是不是都盖上了厚厚一层？<br/> 那样 天也就更冷了<br/> 父母应该生起火来取暖了吧？<br/>
午间 冷冷的雨<br/> 走过花坛的时候<br/> 有鸟儿一跳一跳<br/> 躲到花丛底下去了<br/> 她们 也不再飞<br/> 她们 也冷了呢<br/> 忽然就想起以前看到的<br/> 一个小孩子问<br/> 下雨的时候 蝴蝶都在哪里呢？<br/> 是啊<br/> 冬天的时候 鸟儿都在哪里呢？<br/> 她们不也是觉得冷么？<br/> 除了那个守望者<br/> 谁关心她们呢？<br/>
我在山路上遇见她<br/> 就选她作了ＭＯＤＥＬ<br/> 试一试微距的效果<br/> 可惜她却不怎么配合<br/> 害我费了好大周章<br/> 而时间过得真快<br/> 现在 她在哪里呢？<br/>
天冷了 烧水难<br/> 以前很快就烧好的<br/> 现在要等上好长时间<br/> 还听不到烧开的声音<br/> 烧水难 洗澡也就难<br/> 本来就不喜欢<br/> 现在就更不愿洗了<br/> ——幸好没人管<br/> 除了我自己<br/>
这里 落雪了<br/> 今年的第一场<br/> 来得早了些<br/>
不知道为什么<br/> 到了冬天<br/> 我的手就会变得一只热一只冷<br/> 是左手热 右手冷<br/> 左手经常暖暖的 感觉不到冷<br/> 右手经常冷冷的 感觉不到暖<br/> 这真是奇怪的事情<br/> 不是说男左女右的么？<br/> 或许 我的手本来就是这样<br/> 只是其他时候没有感觉到？<br/>
紧急<br/> 急急如律令<br/>
阴霾清冷的几天终于过去<br/> 今天 终于又看见了太阳<br/> 太阳暖暖地照着<br/> 积雪 也慢慢融化了<br/> 滴滴答答地落下来<br/> 这时 才发现太阳的可爱<br/> 这些 在夏天 就感觉不到<br/> 那时 反倒有些怨他的热了<br/> 人 是善变的啊<br/>
彼时我常做梦 也常常忘却<br/> 可自来这里以后 梦就少了许多<br/> 或许也并没有少吧 只是都不为我所知道<br/> 这些天梦却又渐渐多起来<br/> 醒来却大多也还是忘记 终于没有什么印象<br/> 所以我虽常常记梦 却从不曾在这里得见<br/> 只前两天的梦印象深刻 我如今都还记得<br/>
我似乎到了一个陌生怪异的地方<br/> 那似乎是《山海经》中的世界<br/> ——我自然是知道那个世界的<br/> 奇怪的树木 诡异的动物<br/> 我一直在追或被追<br/> 我被虎人追得爬上树去<br/> ——它是专吃人的 却也会爬树<br/> 我只有爬到人科人种的树枝才不会被吃掉<br/> 我们追逐两只狐狸 一黑一白<br/> 黑狐跑在前面 白狐跟在后面<br/> 终于 我追上了他们<br/> 那黑狐却伏在地上 一动不动<br/> 我停下去抚看时 自己却变成了他<br/> 我向前跑 那白狐却丢下我 反向跑了<br/> …… ……<br/>
已经有两周没有好好睡觉了<br/> 今天终于饱饱睡了一觉<br/> 可恶的是不能洗澡<br/>
今天忽又翻到一篇旧文<br/> 介绍Ｗｉｎ７的库管理<br/> 猛地想起<br/> 这不就是我以前所说的Ｔａｇ功能么？<br/> ＭＳ只不过给换了个名字而已<br/> 若真是这样<br/> 那我也要转向Ｗｉｎ７了<br/> 虽然还是很留恋ＸＰ<br/> 可找了半天ＸＰ下也没有可以代替的<br/> 这大约是要些时间的<br/> 希望不要太慢<br/> 那样我就不用换了<br/>
早早起来<br/> 匆匆吃饭<br/> 忙忙赶到<br/> 却是白跑<br/> 又犯糊了<br/> 还不是第一次！<br/>
一个简单的程序<br/> 以为很快就搞定的<br/> 没想到吭哧吭哧半天<br/> 还是不成<br/> 看来手真是生了啊<br/> 才没多长时间<br/> 就已经生到这种地步<br/> 却是大大出乎我的意料<br/> 时间 罪恶之源<br/>
从前往后读 好读<br/> 从后往前读 倒读<br/> 倒读读一步退两步<br/> 这点我倒是想明白了<br/> 可倒退时却怎么也做不成<br/> ｂａｃｋｓｐａｃｅ<br/> 你是存心跟我作对么？<br/>
BACKSPACE语句：称为回退语句，它使指定设备号的文件指针退回一个记录位置，一般用于顺序文件。它的一般形式为：
BACKSPACE{unit|([UNIT=]unit[,ERR=err][,IOSTAT=iostat])除了以下几种情况外，使用BACKSPACE语句正好使文件的指针向前移动一条记录：本条记录前再没有记录时文件指针的位置不变；文件指针的位置在一条记录的中间时，文件指针移到本条记录的开始处；本记录的前—记录是文件结束记录时，文件指针移到文件结束记录之前。
既然你不退<br/> 罢了 那我退<br/> 躲着你还不成么？<br/>
<pre class="line-numbers" data-start="0"><code class="language-fortran"># Language: fortran open(unit=Linp, file=trim(Finp), status='old', position='append', IOstat=Ierr) backspace(Linp) read(Linp, *, IOstat=Ierr) Nstp do while(Ierr/=0) backspace(Linp) read(Linp, '(A80)', IOstat=Ierr) txt backspace(Linp) read(txt, *, IOstat=Ierr) Nstp end do </code></pre>终于把Fortran和C的编译器集成到一起了<br/> 以前就知道Fortran的编译有赖于C<br/> 却不知怎么编译C<br/> 今天花了点时间终于把两个都弄好了<br/> 想编译谁就编译谁<br/> 随心所欲 简洁有力 我喜欢<br/>
工具有了之后<br/> 我却喜欢拿来造轮子<br/> 这真不是个好习惯<br/> 虽然轮子的作用很大<br/> 可是再重新造也不值得<br/>
这几天一直在折腾<br/> 折腾的过程也就是学习的过程<br/> 不折腾 当然没事 也没什么改变<br/> 可别忘了<br/> 改变 未必更好<br/> 不变 绝无更好<br/> 说实话 我还不是怎么满意<br/> 不过先就这样吧<br/> 等有时间了再继续折腾<br/>
<pre class="line-numbers" data-start="0"><code class="language-fortran"># Language: fortran Program FrqSptr implicit none integer, parameter:: Linp = 4 integer, parameter:: Lout = 5 integer, parameter:: Nmax = 1000 real*8, parameter:: Pi = 3.14159265358979D0 integer i, Ierr, Nfrq real*8 Fmin, Fmax, Fres, Fwid, Fscl, Alf, Lpre, Gbet, Gpre, & & Frq, Fdel, Alor, Agau, Anom, Fpos(Nmax), Famp(Nmax) print*, '>>>>>>>>>>>>>>>> Program FrqSptr Running <<<<<<<<<<<<<<<<' print*, '>>>>>>>>>>>>>>>> Jerkwin@gmail.com <<<<<<<<<<<<<<<<' print*, '>>>>>>>>>>>>>>>> Copyleft <<<<<<<<<<<<<<<<' print*, '>>>>>>>>>>>>>>>> 2009-04-15 17:37:47 <<<<<<<<<<<<<<<<' print* open(unit=Linp, file='FrqSptr.dat', status='old', IOstat=Ierr) if (Ierr/=0) then print*, '>>ERROR !!! Input File ''FrqSptr.dat'' NOT Exist !' print*, '>>>>Any Key to Exit...' read* stop end if read(Linp, *, IOstat=Ierr) Fmin, Fmax, Fres, Fwid, Fscl print*, 'Spectrum Range: ', Fmin, 'to ', Fmax print*, 'Spectrum Resolution: ', Fres print*, 'Spectrum Peak Half-Width:', Fwid print*, 'Frequency Scaling Factor:', Fscl print* print*, ' # Frequency Frequency(Scaled) Intensity' Alf = 0.5D0*Fwid Lpre = Alf/Pi Gbet = -log(2.D0)/(Alf*Alf) Gpre = sqrt(log(2.D0)/Pi)/Alf Nfrq = 0 Anom = 0.D0 do while(Ierr==0) Nfrq = Nfrq+1 read(Linp, *, IOstat=Ierr) Fpos(Nfrq), Famp(Nfrq) if (Ierr==0) then print*, Nfrq, Fpos(Nfrq), Fpos(Nfrq)*Fscl, Famp(Nfrq) Anom = Anom+Famp(Nfrq) Fpos(Nfrq) = Fpos(Nfrq)*Fscl end if end do Nfrq = Nfrq-1 Anom = 1.D0/Anom close(Linp) open(unit=Lout, file="FrqSptr_Result.dat") write(Lout, *) write(Lout, *) 'Frq k(Lorentz) k(Gauss)' Frq = Fmin-Fres do while(Frq<=Fmax) Frq = Frq+Fres Alor = 0.D0 Agau = 0.D0 do i=1, Nfrq Fdel = Frq-Fpos(i) Alor = Alor+Famp(i)/(Alf*Alf+Fdel*Fdel) Agau = Agau+Famp(i)*exp(Gbet*(Fdel*Fdel)) enddo Alor = Lpre*Alor*Anom Agau = Gpre*Agau*Anom write(Lout, '(F10.2, 2F15.6)') Frq, Alor, Agau end do close(Lout) print* print*, '>>FrqSptr Achv.' print*, '>>>>Any Key to Exit...' read* End Program FrqSptr </code></pre>将要还书了才记起还没有读几页<br/> 那就在还之前狠狠读一下吧<br/> 好像这样的事也不是第一次了啊<br/> 有时借来的书都没怎么看就又还回去了<br/> 只是混了个脸熟<br/> 要是所有的书都能混个脸熟也不错啊<br/> 可惜<br/> ——那是不可能的<br/>
今天才知道<br/> 原来还有脸盲一说<br/> 怪不得老觉得自己认人有障碍<br/> 虽然不是太大<br/> 原来是轻微脸盲的缘故<br/> 是啊<br/> 人脸识别这可不是精确计算的<br/> 我以前就曾考虑过<br/> 人到底是怎么认出一个面孔的呢<br/> 结果——未果<br/>