应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】重金求C或fortran编写小程序，万分谢谢
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 877  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前主题已经存档。
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

流浪猫8386

银虫 (正式写手)

[交流] 【求助】重金求C或fortran编写小程序，万分谢谢

我是一个编程菜鸟，想请教下一个小程序怎么编译：有8000组数据，每组数据里包括能量，一百多个原子的坐标等其他信息，我要每隔10组取出一组，万分感谢。急。
回复此楼

» 猜你喜欢
1楼 2009-04-23 09:49:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

流浪猫8386

银虫 (正式写手)
引用回帖:
Originally posted by fspdlh at 2009-4-23 10:32:
这种编程应该是问题不大的，随便哪种语言都可以，给个数据样本嘛，不然誰也帮不了你

这是其中两组数据，这样的数据有8000组，所以不好粘贴上来

   332                                    
    1         -300                        
Bi      5.60000      3.44806      0.02255
Bi     12.36555      3.44806      0.02255
Bi      5.60000     22.24028      0.02255
Bi     12.36555     22.24028      0.02255
Bi      5.60000      2.75194      0.02255
Bi     12.36555      2.75194      0.02255
Bi      5.60000     15.74416      0.02255
Bi     12.36555     15.74416      0.02255
Bi      6.45518      3.44806      0.02255
Bi     15.32073      3.44806      0.02255
Bi      6.45518     22.24028      0.02255
Bi     15.32073     22.24028      0.02255
Bi      6.45518      2.75194      0.06665
Bi     15.32073      2.75194      0.06665
Bi      6.45518     15.74416      0.06665
Bi     15.32073     15.74416      0.06665
Bi      0.54482      3.44806      5.06665
Bi      9.41037      3.44806      5.06665
Bi      0.54482     22.24028      5.02255
Bi      9.41037     22.24028      5.02255
Bi      0.54482      2.75194      5.02255
Bi      9.41037      2.75194      5.02255
Bi      0.54482     15.74416      5.02255
Bi      9.41037     15.74416      5.02255
Bi      4.97759      6.00000      5.02255
Bi     13.84314      6.00000      5.02255
Bi      4.97759     18.99222      5.02255
Bi     13.84314     18.99222      5.02255
Bi      4.97759     12.49611      5.02255
Bi     13.84314     12.49611      5.02255
Bi      4.97759     25.48833      5.02255
Bi     13.84314     25.48833      5.02255
Bi      7.93278      6.00000      5.02255
Bi     16.79833      6.00000      5.02255
Bi      7.93278     18.99222      5.02255
Bi     16.79833     18.99222      5.02255
Bi      7.93278     12.49611      5.02255
Bi     16.79833     12.49611      5.02255
Bi      7.93278     25.48833      0.02255
Bi     16.79833     25.48833      0.02255
Bi      2.02241      6.00000      0.02255
Bi     10.88796      6.00000      0.02255
Bi      2.02241     18.99222      0.02255
Bi     10.88796     18.99222      0.02255
Bi      2.02241     12.49611      0.02255
Bi     10.88796     12.49611      0.02255
Bi      2.02241     25.48833      0.02255
Bi     10.88796     25.48833      0.02255
Bi      5.60000      6.00000      1.27449
Bi     12.36555      6.00000      1.27449
Bi      5.60000     18.99222      1.27449
Bi     12.36555     18.99222      1.27449
Bi      5.60000     12.49611      1.27449
Bi     12.36555     12.49611      1.27449
Bi      5.60000     25.48833      1.27449
Bi     12.36555     25.48833      1.27449
Bi      6.45518      6.00000      1.27449
Bi     15.32073      6.00000      1.27449
Bi      6.45518     18.99222      1.27449
Bi     15.32073     18.99222      1.27449
Bi      6.45518     12.49611      1.27449
Bi     15.32073     12.49611      1.27449
Bi      6.45518     25.48833      1.27449
Bi     15.32073     25.48833      1.27449
Bi      0.54482      6.00000      1.27449
Bi      9.41037      6.00000      1.27449
Bi      0.54482     18.99222      1.27449
Bi      9.41037     18.99222      1.27449
Bi      0.54482     12.49611      1.27449
Bi      9.41037     12.49611      1.27449
Bi      0.54482     25.48833      1.27449
Bi      9.41037     25.48833      1.27449
Bi      4.97759      3.44806      1.27449
Bi     13.84314      3.44806      1.27449
Bi      4.97759     22.24028      1.27449
Bi     13.84314     22.24028      1.27449
Bi      4.97759      2.75194      1.27449
Bi     13.84314      2.75194      1.27449
Bi      4.97759     15.74416      1.27449
Bi     13.84314     15.74416      1.27449
Bi      7.93278      3.44806      1.27449
Bi     16.79833      3.44806      1.27449
Bi      7.93278     22.24028      1.27449
Bi     16.79833     22.24028      1.27449
Bi      7.93278      2.75194      1.27449
Bi     16.79833      2.75194      1.27449
Bi      7.93278     15.74416      1.27449
Bi     16.79833     15.74416      1.27449
Bi      2.02241      3.44806      1.27449
Bi     10.88796      3.44806      1.27449
Bi      2.02241     22.24028      1.27449
Bi     10.88796     22.24028      1.27449
Bi      2.02241      2.75194      1.27449
Bi     10.88796      2.75194      1.27449
Bi      2.02241     15.74416      1.27449
Bi     10.88796     15.74416      1.27449
B       5.60000      6.00000      5.79704
B      12.36555      6.00000      5.79704
B       5.60000     18.99222      5.79704
B      12.36555     18.99222      5.79704
B       5.60000     12.49611      5.79704
B      12.36555     12.49611      5.79704
B       5.60000     25.48833      5.79704
B      12.36555     25.48833      5.79704
B       6.45518      6.00000      5.79704
B      15.32073      6.00000      5.79704
B       6.45518     18.99222      5.79704
B      15.32073     18.99222      5.79704
B       6.45518     12.49611      5.79704
B      15.32073     12.49611      5.79704
B       6.45518     25.48833      5.79704
B      15.32073     25.48833      5.79704
B       0.54482      6.00000      5.79704
B       9.41037      6.00000      5.79704
B       0.54482     18.99222      5.79704
B       9.41037     18.99222      5.79704
B       0.54482     12.49611      5.79704
B       9.41037     12.49611      5.79704
B       0.54482     25.48833      5.79704
B       9.41037     25.48833      5.79704
B       4.97759      4.02643      0.02255
B      13.84314      4.02643      0.02255
B       4.97759     17.01865      0.02255
B      13.84314     17.01865      0.02255
B       4.97759     10.52255      0.02255
B      13.84314     10.52255      0.02255
B       4.97759     25.61477      0.02255
B      13.84314     25.61477      0.02255
B       7.93278      4.02643      0.02255
B      16.79833      4.02643      0.02255
B       7.93278     17.01865      0.02255
B      16.79833     17.01865      0.02255
B       7.93278     10.52255      0.02255
B      16.79833     10.52255      0.02255
B       7.93278     25.61477      0.02255
B      16.79833     25.61477      0.02255
B       2.02241      4.02643      0.02255
B      10.88796      4.02643      0.02255
B       2.02241     17.01865      0.02255
B      10.88796     17.01865      0.02255
B       2.02241     10.52255      0.02255
B      10.88796     10.52255      0.02255
B       2.02241     25.61477      0.02255
B      10.88796     25.61477      0.02255
B       4.97759      7.97357      0.02255
B      13.84314      7.97357      0.02255
B       4.97759     20.96579      0.02255
B      13.84314     20.96579      0.02255
B       4.97759      1.47745      0.02255
B      13.84314      1.47745      0.02255
B       4.97759     14.46967      0.02255
B      13.84314     14.46967      0.02255
B       7.93278      7.97357      0.02255
B      16.79833      7.97357      0.02255
B       7.93278     20.96579      0.02255
B      16.79833     20.96579      0.02255
B       7.93278      1.47745      0.02255
B      16.79833      1.47745      0.02255
B       7.93278     14.46967      0.02255
B      16.79833     14.46967      0.02255
B       2.02241      7.97357      0.02255
B      10.88796      7.97357      0.02255
B       2.02241     20.96579      0.02255
B      10.88796     20.96579      0.02255
B       2.02241      1.47745      0.02255
B      10.88796      1.47745      0.02255
B       2.02241     14.46967      0.02255
B      10.88796     14.46967      0.02255
B       5.60000      6.00000      3.24806
B      12.36555      6.00000      3.24806
B       5.60000     18.99222      3.24806
B      12.36555     18.99222      3.24806
B       5.60000     12.49611      3.24806
B      12.36555     12.49611      3.24806
B       5.60000     25.48833      3.24806
B      12.36555     25.48833      3.24806
B       6.45518      6.00000      3.24806
B      15.32073      6.00000      3.24806
B       6.45518     18.99222      3.24806
B      15.32073     18.99222      3.24806
B       6.45518     12.49611      3.24806
B      15.32073     12.49611      3.24806
B       6.45518     25.48833      3.24806
B      15.32073     25.48833      3.24806
B       0.54482      6.00000      3.24806
B       9.41037      6.00000      3.24806
B       0.54482     18.99222      3.24806
B       9.41037     18.99222      3.24806
B       0.54482     12.49611      3.24806
B       9.41037     12.49611      3.24806
B       0.54482     25.48833      3.24806
B       9.41037     25.48833      3.24806
B       5.60000      3.44806      2.54898
B      12.36555      3.44806      2.54898
B       5.60000     22.24028      2.54898
B      12.36555     22.24028      2.54898
B       5.60000      2.75194      2.54898
B      12.36555      2.75194      2.54898
B       5.60000     15.74416      2.54898
B      12.36555     15.74416      2.54898
B       6.45518      3.44806      2.54898
B      15.32073      3.44806      2.54898
B       6.45518     22.24028      2.54898
B      15.32073     22.24028      2.54898
B       6.45518      2.75194      2.54898
B      15.32073      2.75194      2.54898
B       6.45518     15.74416      2.54898
B      15.32073     15.74416      2.54898
B       0.54482      3.44806      2.54898
B       9.41037      3.44806      2.54898
B       0.54482     22.24028      2.54898
B       9.41037     22.24028      2.54898
B       0.54482      2.75194      2.54898
B       9.41037      2.75194      2.54898
B       0.54482     15.74416      2.54898
B       9.41037     15.74416      2.54898
B       4.97759      7.27449      1.27449
B      13.84314      7.27449      1.27449
B       4.97759     20.26671      1.27449
B      13.84314     20.26671      1.27449
B       4.97759      0.77838      1.27449
B      13.84314      0.77838      1.27449
B       4.97759     13.77060      1.27449
B      13.84314     13.77060      1.27449
B       7.93278      7.27449      1.27449
B      16.79833      7.27449      1.27449
B       7.93278     20.26671      1.27449
B      16.79833     20.26671      1.27449
B       7.93278      0.77838      1.27449
B      16.79833      0.77838      1.27449
B       7.93278     13.77060      1.27449
B      16.79833     13.77060      1.27449
B       2.02241      7.27449      1.27449
B      10.88796      7.27449      1.27449
B       2.02241     20.26671      1.27449
B      10.88796     20.26671      1.27449
B       2.02241      0.77838      1.27449
B      10.88796      0.77838      1.27449
B       2.02241     13.77060      1.27449
B      10.88796     13.77060      1.27449
B       4.97759      4.72551      1.27449
B      13.84314      4.72551      1.27449
B       4.97759     17.71773      1.27449
B      13.84314     17.71773      1.27449
B       4.97759     11.22162      1.27449
B      13.84314     11.22162      1.27449
B       4.97759     24.21384      1.27449
B      13.84314     24.21384      1.27449
B       7.93278      4.72551      1.27449
B      16.79833      4.72551      1.27449
B       7.93278     17.71773      1.27449
B      16.79833     17.71773      1.27449
B       7.93278     11.22162      1.27449
B      16.79833     11.22162      1.27449
B       7.93278     24.21384      1.27449
B      16.79833     24.21384      1.27449
B       2.02241      4.72551      1.27449
B      10.88796      4.72551      1.27449
B       2.02241     17.71773      1.27449
B      10.88796     17.71773      1.27449
B       2.02241     11.22162      1.27449
B      10.88796     11.22162      1.27449
B       2.02241     24.21384      1.27449
B      10.88796     24.21384      1.27449
B       5.60000      2.75194      0.00000
B      12.36555      2.75194      0.00000
B       5.60000     15.74416      0.00000
B      12.36555     15.74416      0.00000
B       5.60000      3.44806      0.00000
B      12.36555      3.44806      0.00000
B       5.60000     22.24028      0.00000
B      12.36555     22.24028      0.00000
B       6.45518      2.75194      0.00000
B      15.32073      2.75194      0.00000
B       6.45518     15.74416      0.00000
B      15.32073     15.74416      0.00000
B       6.45518      3.44806      0.00000
B      15.32073      3.44806      0.00000
B       6.45518     22.24028      0.00000
B      15.32073     22.24028      0.00000
B       0.54482      2.75194      0.00000
B       9.41037      2.75194      0.00000
B       0.54482     15.74416      0.00000
B       9.41037     15.74416      0.00000
B       0.54482      3.44806      0.00000
B       9.41037      3.44806      0.00000
B       0.54482     22.24028      0.00000
B       9.41037     22.24028      0.00000
B       6.47200      5.17890      7.60494
B      15.33755      5.17890      7.60494
B       6.47200     18.17112      7.60494
B      15.33755     18.17112      7.60494
B       4.98950      7.76870      7.50964
B      13.85505      7.76870      7.50964
B       4.98950     20.76092      7.50964
B      13.85505     20.76092      7.50964
B       3.48670      5.19070      7.60884
B      12.35225      5.19070      7.60884
B       3.48670     18.18292      7.60884
B      12.35225     18.18292      7.60884
B       4.96880      2.94590      6.30814
B      13.83435      2.94590      6.30814
B       4.96880     15.93812      6.30814
B      13.83435     15.93812      6.30814
B       7.62910      7.50790      6.13284
B      16.49465      7.50790      6.13284
B       7.62910     20.50012      6.13284
B      16.49465     20.50012      6.13284
B       7.63310      7.61180      8.89474
B      16.49865      7.61180      8.89474
B       7.63310     20.60402      8.89474
B      16.49865     20.60402      8.89474
B       2.34430      7.52870      6.13944
B      11.20985      7.52870      6.13944
B       2.34430     20.52092      6.13944
B      11.20985     20.52092      6.13944
B       2.34830      7.63260      8.90154
B      11.21385      7.63260      8.90154
B       2.34830     20.62482      8.90154
B      11.21385     20.62482      8.90154
AA      4.97470      3.99700      7.65164
AA     13.84025      3.99700      7.65164
AA      4.97470     16.98922      7.65164
AA     13.84025     16.98922      7.65164
AA      6.76300      7.06360      7.53374
AA     15.62855      7.06360      7.53374
AA      6.76300     20.05582      7.53374
AA     15.62855     20.05582      7.53374
AA      3.21050      7.07770      7.53814
AA     12.07605      7.07770      7.53814
AA      3.21050     20.06992      7.53814
AA     12.07605     20.06992      7.53814
赞一下 回复此楼
6楼2009-04-24 09:18:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

fspdlh

金虫 (正式写手)
★
gwdavid(金币+1,VIP+0):程序软件版新开版！大家多多支持，欢迎常来！ 5-30 22:14
这种编程应该是问题不大的，随便哪种语言都可以，给个数据样本嘛，不然誰也帮不了你
赞一下(10人) 回复此楼
2楼2009-04-23 10:32:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

feichengxyz

铁杆木虫 (著名写手)
★
gwdavid(金币+1,VIP+0):程序软件版新开版！大家多多支持，欢迎常来！ 5-30 22:14
这个不用编程，excel也能完全胜任吧。
赞一下(10人) 回复此楼
3楼2009-04-23 11:45:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

windhair

铜虫 (小有名气)
★
kuhailangyu(金币+1,VIP+0):感谢参与！ 4-24 11:15
CODE:
open file

read until  EOF (Energy, x, y, z)
i++
if mod(i,10) = 0
  save to new data array
endif

close readfile
赞一下(10人) 回复此楼
5楼2009-04-23 23:56:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 348求调剂 +3 小懒虫不懒了 2026-03-28 3/150 2026-03-29 00:39 by 544594351
[考研] 本科新能源科学与工程，一志愿华理能动285求调剂 +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[考研] 266分，求材料冶金能源化工等调剂 +7 哇呼哼呼哼 2026-03-27 9/450 2026-03-28 12:22 by zllcz
[考研] 一志愿南昌大学324求调剂 +7 hanamiko 2026-03-27 7/350 2026-03-28 09:56 by 李上岸0921
[考研] 材料求调剂一志愿哈工大324 +7 闫旭东 2026-03-28 9/450 2026-03-28 08:51 by Xu de nuo
[考研] 308求调剂 +7 墨墨漠 2026-03-27 7/350 2026-03-28 07:43 by 热情沙漠
[考研] 085701环境工程求调剂 +9 多久上课 2026-03-27 9/450 2026-03-28 03:58 by fmesaito
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 求调剂 +4 零八# 2026-03-27 4/200 2026-03-27 18:07 by yu221
[考研] 07化学280分求调剂 +10 722865 2026-03-23 10/500 2026-03-27 15:51 by Plutoqq
[考研] 0856调剂 +5 求求让我有书读� 2026-03-26 6/300 2026-03-27 15:12 by caszguilin
[考研] 化学308分求调剂 +8 你好明天你好 2026-03-23 9/450 2026-03-27 14:01 by 杨光于青云
[考研] 考研调剂 +9 小蜡新笔 2026-03-26 9/450 2026-03-27 11:10 by 不吃魚的貓
[考研] 324求调剂 +8 hanamiko 2026-03-26 10/500 2026-03-27 08:06 by hypershenger
[考研] 求调剂 一志愿 本科 北科大 化学 343 +6 13831862839 2026-03-24 7/350 2026-03-26 22:57 by 不吃魚的貓
[考研] 329求调剂 +5 1() 2026-03-22 5/250 2026-03-26 20:40 by fmesaito
[考研] 085602 289分求调剂 +8 WWW西西弗斯 2026-03-24 8/400 2026-03-26 16:33 by 不吃魚的貓
[考研] 293求调剂 +7 加一一九 2026-03-24 7/350 2026-03-25 12:02 by userper
[考研] 289材料与化工（085600）B区求调剂 +4 这么名字咋样 2026-03-22 5/250 2026-03-25 08:20 by mx.yue
[考研] 292求调剂 +4 鹅鹅鹅额额额额� 2026-03-24 4/200 2026-03-24 16:41 by peike
信息提示
关闭
请填处理意见
关闭