24小时热门版块排行榜    

查看: 835  |  回复: 13
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

流浪猫8386

银虫 (正式写手)

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

我是一个编程菜鸟,想请教下一个小程序怎么编译:有8000组数据,每组数据里包括能量,一百多个原子的坐标等其他信息,我要每隔10组取出一组,万分感谢。急。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

prestoner

木虫 (小有名气)


小木虫(金币+0.5):给个红包,谢谢回帖交流
这里给出C程序的主要部分
FILE *fp;
int   i, n0, n1, n2;
char  str[10];
float  fval[3];
if ( NULL == (fp = fopen("data.dat", "rt" )
  return ;
fscanf(fp, "%d\n", n0);
fscanf(fp, "%d %d\n", &n1, &n2);
while ( !feof(fp) )
{
  for (i=0; i<10; i++)
  {
    if ( 0 == fscanf(fp, "%s %f %f %f\n", str, &fval[0], &fval[1], &fval[2]) )
      goto end;
  }
  /* 取出的信息都在 str 和 fval[] 里面了,随你怎么用了 */
  ......
}
end:
fclose(fp);
╰╭︿︿☆╮ {/ . .\} ( (oo) ) ︶︶︶︶
14楼2009-05-31 22:55:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

fspdlh

金虫 (正式写手)


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

feichengxyz

铁杆木虫 (著名写手)


gwdavid(金币+1,VIP+0):程序软件版新开版!大家多多支持,欢迎常来! 5-30 22:14
这个不用编程,excel也能完全胜任吧。
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

5楼2009-04-23 23:56:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见