曾经的80人 曾经的80人
关注数: 34 粉丝数: 220 发帖数: 3,984 关注贴吧数: 18
【求个助】麻烦各位大神进来看看这个代码说的是什么。 最近课上老师让编个程序演示周期性边界条件(Periodic Boundary Conditions)的,以前没学过计算机语言,手头上有同学的fortran语言,请教下各位能帮我指出这代码每一行每一段都代表什么意思吗,不长,就20行。另外各位能帮忙把这个改到java语言吗。麻烦了谢谢,(还有一个C语言的)诸位可以也帮忙看看吧。 program p1 integer, parameter :: n = 500000000 integer :: i real :: x real :: y real :: time call random_seed() call positive_floor_pbc() call half_nint_pbc() call half_while_pbc() contains subroutine positive_floor_pbc() time = secnds(0.0) do i = 1, n call random_number(x) call random_number(y) x = 5 * x if (y <= 0.5) x = -x x = x - floor(x) end do time = secnds(time) print *, '(0, 1) using floor()' print *, 'Total time (s): ', time print *, 'Time per iteration (s): ', time / n end subroutine positive_floor_pbc subroutine half_nint_pbc() time = secnds(0.0) do i = 1, n call random_number(x) call random_number(y) x = 5 * x if (y <= 0.5) x = -x x = x - nint(x) end do time = secnds(time) print *, '(-0.5, 0.5) using nint()' print *, 'Total time (s): ', time print *, 'Time per iteration (s): ', time / n end subroutine half_nint_pbc subroutine half_while_pbc() time = secnds(0.0) do i = 1, n call random_number(x) call random_number(y) x = 5 * x if (y <= 0.5) x = -x do while (x < -0.5) x = x + 1 end do do while (x > 0.5) x = x - 1 end do end do time = secnds(time) print *, '(-0.5, 0.5) using do while' print *, 'Total time (s): ', time print *, 'Time per iteration (s): ', time / n end subroutine half_while_pbc end program 麻烦各位了。
【鸡公煲】关于学生处官方发言的回复。 唉,其实上次发帖子只是想跟很多关心这件事情的进展及处理结果的同学们有个交代。毕竟当时自己不能回贴子(为啥?问school leaders去)。寻思交代完了也就完了,没想到还会有这么多同学关心,深感大家关怀之余我却在忙着期中考试····咳咳,所以没怎么回帖子,今天考完试扫一眼贴吧偶然发现居然出来了一个学生处的“官方声明”,链接如下;http://tieba.baidu.com/p/2668615648 看完之后真是觉的好好笑啊。 虽然我明白学校每次遇到这种事情最看重的都只有【压】下去,关心的只有不要让事情扩大,所以这也是为什么大学四年看了好多120,听了好多同学突然就没了(jump to their own deaths, run to death when taking running test, drowned without any subjective reasons)这种事情后,你从来不会得到学校的官方解释。The school will never give their offical explanation about it, never. They just disappeared without any reasons. 我们当初毕业多事之秋不想找麻烦(其实一直都没有想过找麻烦),学校说什么我们就做什么,not a problem at all, 只要你是真心实意要帮助我们解决问题。可是后来结果呢?你在声明中说“学校保卫处了解到该事后,积极与大连市公安局相关部门、凌水派出所沟通,请求公安部门尽快查清真相,维护学生正当权益,并一直密切跟踪处理进展情况,在解决事情的过程中发挥了积极作用;” I just want to say, "When?Where? How? " Why I know nothing about this untill now?? 最终一个月后我们才只能得到一个“私了,没证据”的官方说法。呵呵。至于第一点“鉴于其家庭情况,学生工作处积极建议当事同学申请家庭经济困难补助,并提供了一个在学校自助复印室工作的勤工助学岗位,帮助其解决经济困难;”,我承认你们的确做了,嗯,一个学校自助复印工作的勤工助学岗位。可是,大家可以想一想我在上篇帖子中提过当事人室友在事发后在别处兼职被威胁的事情吗?如果学校的这个岗位真的有用,我的室友还会去校外找兼职???Ok,这里要澄清一点,不是我们嫌勤工助学的钱不够,而是那个复印室的机器根本就是一摊废材料好么??根本没人去用好么??不光没有助学工资还要倒搭钱好么(如果要使得复印室可以重新使用的话)??? 综上所述,同学们你们觉的我对于这份官方声明的评价,“假 大 空,呵呵”过份么??这真的是一份极好极好的完美的官方发言,they taik so much and actually nothing~~!让我们为这份完美的官方发言鼓掌~~!! 最后附另一篇帖子(同样一个非当事人室友实在看不过去的发帖)链接:http://tieba.baidu.com/p/2670730241# Ps, 我想说,我的确很怀念在大工的四年生活,我也同样对大工在学术上的培养表达深深的感谢,大工在做学问方面是一个好地方,当然,在某些方面,就是个屁。
【关于鸡公煲事件】【结果】当事人 最近又发现半年前的帖子被学弟们顶了上来,感受到大工力量之余,觉的要跟大家汇报下最终的处理情况,让关注此事的同学们知道一下。 首先要说的是这件事发生在四五月份临近毕业时,所以如今当事人(也就是鄙人室友)及宿舍全体都已经毕业啦~都在各处发展~ 当时事件发生后我们报了警捅了报纸然后还有很多媒体要来采访,不过学校领导及时找到我们让我们不得再接受任何采访,当时处于毕业时期不想给自己找麻烦就接受了,同时帖子也不让回复了,在此跟大家说声抱歉。当然学校的介入让我们推掉了电台电视台媒体的采访,不再回复帖子,然后学校就不闻不问了,没有下文了。呵呵 等了大概一个月,警察局来信说是证据不足不能立案只能调节,所以让我们私了,,呵呵,多方咨询未果,只能最后接受私了,插一句,在等待警察局结果期间,鸡公煲老板娘的老公,据说也是大工毕业的一个人,从上海(工作在上海)回到大连并且找到我当事人同学并进行【威胁】,要我们把所有帖子删掉并且私了要不就教训我们,呵呵好大的威风。最后结果就是赔了1000块完事。 其实我们也不想就这么解决可是我们也没其他的办法,学校不管警察局不管我们也只能为自己争取更大的利益了。最后跟大家说一下一定要注意保护自身权益,指不定什么时候你就遇上一些超乎想象的贱女人,呼吁大家也不要去鸡公煲了~同学在那干了那么久负责任的说不光不干不净还缺斤短两。最后谢谢大家的关心~~我们几个现在工作的工作读研的读研,时时刻刻也在怀念着大工的四年。珍惜大学生活吧 楼主这边不早了(其实都半夜三点了T^T)~睡了~晚安大工吧~
1 下一页