24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

ljw4010

荣誉版主 (职业作家)

小木虫从头派教主

应助: 116 (高中生)
贵宾: 5.434
金币: 26572.7
散金: 4305
红花: 70
沙发: 10
帖子: 4104
在线: 889.1小时
虫号: 3019479
注册: 2014-03-05
专业: 半导体微纳机电器件与系统
管辖: 计算模拟

[求助] 急：求用Fortran或者其他语言编写一个程序，处理下面的数据！！！！！！！！！！

我现在在处理程序画图时很费劲，想对获得数据文件处理下，因为我没学过Fortran，自学了一下，但还是没解决，其他语言写的也可以，求助大神！

1.我的数据文件格式如下：
T[K]             N                   DOS(Ef)                         S                   s/t             R_H                         kappa0                   c                   chi
10.0000 -0.00088309  0.36829829E+01 -0.22021730E-03  0.26301947E+18 -0.79475299E-03  0.44466758E+11  0.18490799E-02  0.54983779E-10
20.0000    -0.00088309  0.26875931E+01 -0.90876783E-04  0.20008966E+18 -0.19857427E-04  0.68363230E+11  0.32057178E-02  0.40123462E-10
30.0000    -0.00088309  0.22924650E+01 -0.84664015E-04  0.16822569E+18 -0.83733589E-05  0.12349874E+12  0.56812697E-02  0.34224538E-10
40.0000    -0.00088309  0.21550792E+01 -0.98572721E-04  0.15610861E+18 -0.65840150E-05  0.18320424E+12  0.75723680E-02  0.32173486E-10
50.0000    -0.00088309  0.20689471E+01 -0.11499769E-03  0.15044739E+18 -0.61060992E-05  0.24851448E+12  0.91199376E-02  0.30887607E-10
60.0000    -0.00088309  0.19878188E+01 -0.13042206E-03  0.14698777E+18 -0.59478990E-05  0.32102167E+12  0.10595254E-01  0.29676431E-10
70.0000    -0.00088309  0.19072220E+01 -0.14418642E-03  0.14447949E+18 -0.58933740E-05  0.39984025E+12  0.12066150E-01  0.28473190E-10
80.0000    -0.00088309  0.18283895E+01 -0.15633123E-03  0.14246774E+18 -0.58795297E-05  0.48428944E+12  0.13542317E-01  0.27296288E-10
90.0000    -0.00088309  0.17522085E+01 -0.16711278E-03  0.14074025E+18 -0.58843546E-05  0.57466693E+12  0.15037461E-01  0.26158971E-10

10.0000    -0.00883088  0.84410600E+01 -0.11689296E-03  0.24789870E+19 -0.41920906E-06  0.38654460E+12  0.46876655E-02  0.12601779E-09
20.0000    -0.00883088  0.49614612E+01 -0.81871808E-04  0.14192156E+19 -0.65426762E-06  0.65286003E+12  0.87741598E-02  0.74070364E-10
30.0000    -0.00883088  0.46756154E+01 -0.55743996E-04  0.12778854E+19 -0.65291729E-06  0.97812153E+12  0.13236410E-01  0.69802931E-10
40.0000    -0.00883088  0.47012209E+01 -0.50147434E-04  0.12586296E+19 -0.64568125E-06  0.13259755E+13  0.17575579E-01  0.70185200E-10
50.0000    -0.00883088  0.47269535E+01 -0.51492758E-04  0.12561404E+19 -0.64100715E-06  0.16823697E+13  0.22066680E-01  0.70569365E-10
60.0000    -0.00883088  0.47408328E+01 -0.54860269E-04  0.12560297E+19 -0.63779752E-06  0.20366930E+13  0.26804368E-01  0.70776571E-10
70.0000    -0.00883088  0.47488656E+01 -0.58348815E-04  0.12551960E+19 -0.63559342E-06  0.23914729E+13  0.31943350E-01  0.70896493E-10
80.0000    -0.00883088  0.47576572E+01 -0.61496957E-04  0.12534166E+19 -0.63394892E-06  0.27522054E+13  0.37606365E-01  0.71027745E-10
90.0000    -0.00883088  0.47716152E+01 -0.64381860E-04  0.12511220E+19 -0.63256571E-06  0.31236204E+13  0.43859197E-01  0.71236126E-10

10.0000    -0.08830878  0.42141602E+02  0.87953597E-04  0.75126055E+19 -0.98769667E-07  0.23033392E+13  0.41537770E-01  0.62913800E-09
20.0000    -0.08830878  0.43692263E+02 -0.41588947E-05  0.82094250E+19 -0.82516579E-07  0.41555023E+13  0.80748205E-01  0.65228805E-09
30.0000    -0.08830878  0.44663624E+02 -0.21504742E-04  0.82540992E+19 -0.79165706E-07  0.55733828E+13  0.12447749E+00  0.66678964E-09
40.0000    -0.08830878  0.45312345E+02 -0.27007473E-04  0.80589511E+19 -0.79127587E-07  0.75597431E+13  0.17202093E+00  0.67647448E-09
50.0000    -0.08830878  0.45883812E+02 -0.29833271E-04  0.79234737E+19 -0.79037621E-07  0.99651412E+13  0.22031734E+00  0.68500600E-09
60.0000    -0.08830878  0.46378068E+02 -0.31377720E-04  0.78728970E+19 -0.78450172E-07  0.12484013E+14  0.26638841E+00  0.69238480E-09
70.0000    -0.08830878  0.46754191E+02 -0.32326518E-04  0.78761793E+19 -0.77551438E-07  0.14973971E+14  0.30934617E+00  0.69800000E-09
80.0000    -0.08830878  0.46993506E+02 -0.33260061E-04  0.79047459E+19 -0.76560603E-07  0.17417591E+14  0.34962559E+00  0.70157277E-09
90.0000    -0.08830878  0.47101837E+02 -0.34544692E-04  0.79414153E+19 -0.75615674E-07  0.19845552E+14  0.38805026E+00  0.70319006E-09

2.我需要提取第1列和第4列的数据，并将第四列数据乘以10的6次方

3.以中间的空行为分割线，将每个分割后区域数据依次输出到 1.txt 、 2.txt、3.txt（数据多的话，可能更多块，更多）

4.分割后的数据格式大致这样：
1.txt为例：
   T[K]                S
10.0000    -0.22021730E-03
20.0000    -0.90876783E-04
30.0000 -0.84664015E-04
40.0000    -0.98572721E-04
50.0000    -0.11499769E-03
60.0000    -0.13042206E-03
70.0000    -0.14418642E-03
80.0000    -0.15633123E-03
90.0000    -0.16711278E-03

5.数据附件如下：

回复此楼