| 查看: 3297 | 回复: 23 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
maomao1210金虫 (正式写手)
|
[交流]
【分享】暑假闲来无事，与虫虫共同进步 已有17人参与
|
||
|
暑假闲来无事, 有对写学术型代码感兴趣的虫子可以一起共同进步 [ Last edited by maomao1210 on 2010-7-28 at 18:53 ] |
回复此楼» 猜你喜欢
没有任何消息-是不是就凉了
已经有10人回复
-
人气不行了
已经有11人回复
-
2026国自然函评费到账
已经有22人回复
-
导师吐槽：我怎么摊上了这么个极品研究生！
已经有3人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有7人回复
-
今天基金会出结果吗？20260819
已经有18人回复
-
我面上完蛋了
已经有14人回复
-
范进中举一文的中心思想
已经有8人回复
-
只有每年这种时候来逛逛小木虫
已经有27人回复
-
明天应该可查了！？
已经有5人回复
txf10
金虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 1006.6
- 散金: 367
- 红花: 18
- 沙发: 1
- 帖子: 1776
- 在线: 217.4小时
- 虫号: 1019904
- 注册: 2010-05-16
- 专业: 凝聚态物性I:结构、力学和
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
小木虫(金币+0.5):给个红包，谢谢回帖交流
|
请教一下： program eambcc implicit none real :: i,j,k integer :: at=0 do i=-1,1,0.5 do j=-1,1,0.5 do k=-1,1,0.5 if((mod(i,1.0)==0.and.mod(i,1.0)==0.and.mod(i,1.0)==0).or.& (abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))then write(*,100)i,j,k 100 format(2x,f4.1,2x,f4.1,2x,f4.1) end if end do end do end do 运行结果： -1.0 -1.0 -1.0 -1.0 -1.0 -0.5 -1.0 -1.0 0.0 -1.0 -1.0 0.5 -1.0 -1.0 1.0 -1.0 -0.5 -1.0 -1.0 -0.5 -0.5 -1.0 -0.5 0.0 -1.0 -0.5 0.5 -1.0 -0.5 1.0 -1.0 0.0 -1.0 -1.0 0.0 -0.5 -1.0 0.0 0.0 -1.0 0.0 0.5 -1.0 0.0 1.0 -1.0 0.5 -1.0 -1.0 0.5 -0.5 -1.0 0.5 0.0 -1.0 0.5 0.5 -1.0 0.5 1.0 -1.0 1.0 -1.0 -1.0 1.0 -0.5 -1.0 1.0 0.0 -1.0 1.0 0.5 -1.0 1.0 1.0 -0.5 -0.5 -0.5 -0.5 -0.5 0.5 -0.5 0.5 -0.5 -0.5 0.5 0.5 0.0 -1.0 -1.0 0.0 -1.0 -0.5 0.0 -1.0 0.0 0.0 -1.0 0.5 0.0 -1.0 1.0 0.0 -0.5 -1.0 0.0 -0.5 -0.5 0.0 -0.5 0.0 0.0 -0.5 0.5 0.0 -0.5 1.0 0.0 0.0 -1.0 0.0 0.0 -0.5 0.0 0.0 0.0 0.0 0.0 0.5 0.0 0.0 1.0 0.0 0.5 -1.0 0.0 0.5 -0.5 0.0 0.5 0.0 0.0 0.5 0.5 0.0 0.5 1.0 0.0 1.0 -1.0 0.0 1.0 -0.5 0.0 1.0 0.0 0.0 1.0 0.5 0.0 1.0 1.0 0.5 -0.5 -0.5 0.5 -0.5 0.5 0.5 0.5 -0.5 0.5 0.5 0.5 1.0 -1.0 -1.0 1.0 -1.0 -0.5 1.0 -1.0 0.0 1.0 -1.0 0.5 1.0 -1.0 1.0 1.0 -0.5 -1.0 1.0 -0.5 -0.5 1.0 -0.5 0.0 1.0 -0.5 0.5 1.0 -0.5 1.0 1.0 0.0 -1.0 1.0 0.0 -0.5 1.0 0.0 0.0 1.0 0.0 0.5 1.0 0.0 1.0 1.0 0.5 -1.0 1.0 0.5 -0.5 1.0 0.5 0.0 1.0 0.5 0.5 1.0 0.5 1.0 1.0 1.0 -1.0 1.0 1.0 -0.5 1.0 1.0 0.0 1.0 1.0 0.5 1.0 1.0 1.0 Press any key to continue 为什么运行结果不满足：(abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))这个条件？ |
22楼2010-09-06 21:00:09
feichengxyz
铁杆木虫 (著名写手)
- 应助: 1 (幼儿园)
- 金币: 8535.5
- 散金: 60
- 红花: 4
- 帖子: 1162
- 在线: 908.4小时
- 虫号: 425858
- 注册: 2007-07-28
- 性别: GG
- 专业: 催化化学
3楼2010-07-22 18:28:59
sxlion811
金虫 (正式写手)
- 程序强帖: 3
- 应助: 12 (小学生)
- 贵宾: 0.128
- 金币: 1076.3
- 散金: 2188
- 红花: 3
- 帖子: 872
- 在线: 448.2小时
- 虫号: 479151
- 注册: 2007-12-14
- 专业: 食品科学
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
小木虫(金币+0.5):给个红包，谢谢回帖交流
|
既然大家开始有时间了，有个问题请教大家，实现语言不限。 有一组数据，每一行有四个变量id1-id4，如果任意有两个值相等的话， 就认为他们是同组数据。 比如说，取其中6行数据说明。 1 11 21 31 1 12 22 31 2 11 22 32 2 13 21 32 3 14 23 32 4 11 22 33 确定为同一组值后，需要对他们进行编号。 例如第1，2行，有相同的1，31，所以为相同组，编号1； 又3和4，3和6行分别有相同的2，32和11，22，所以3，4，6为同组编号2。 第5行不和其他行有两个或以上相同的值，编号3。 大家有什么好的解决方法吗？由于数据可能上千条，所以需要考虑效率的问题。 |
4楼2010-07-22 20:05:44
sxlion811
金虫 (正式写手)
- 程序强帖: 3
- 应助: 12 (小学生)
- 贵宾: 0.128
- 金币: 1076.3
- 散金: 2188
- 红花: 3
- 帖子: 872
- 在线: 448.2小时
- 虫号: 479151
- 注册: 2007-12-14
- 专业: 食品科学
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
小木虫(金币+0.5):给个红包，谢谢回帖交流
|
还是简化一下吧，那个有点复杂。 有一列数据，见附，任何一行数据有相等的sort1或sort2，分成一组。 如：1，2，14，18，3，28为一组。 4，15，6，11，10，15，20，17，24，12，22，7，30为第二组。 依此分组。 sort1 sort2 1 2 1 3 1 14 2 14 2 18 3 28 4 15 4 30 6 10 6 15 6 16 6 27 7 17 8 30 10 20 11 15 12 17 12 22 12 24 14 18 16 27 17 30 19 23 24 30 好像要用到图论中的方法。 |
5楼2010-07-23 10:10:43
20