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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 急：求用Fortran或者其他语言编写一个程序，处理下面的数据！！！！！！！！！！
383/4返回列表上一页1234下一页
查看: 2592  |  回复: 37
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

jpchou

专家顾问 (著名写手)
Shell Script + AWK

1.??????????????????(case.trace_fixdoping)

2.??????????1?к??4?е???????????????????????10??6?η?
> awk   '{print $1,$4}'   case.trace_fixdoping                ?????1?к??4?е?????
   awk   '{print $1,$4*1000000}'   case.trace_fixdoping  ?????????????10??6?η?

3.???м????????????????????????????? ????????? 1.txt ?? 2.txt??3.txt??????????????????飬????
> ????
awk '{if($1<800){print $1,$4 >> n".txt"} if($1==800){print $1,$4 >> n".txt"; n=n+1}}' case.trace_fixdoping
      
???????M?Y?????? T=10 ~ T=800
????? awk ??y????????Y?????? 800 ????????????n??
???? question 2
=>
awk '{if($1<800){print $1,$4*1000000 >> n".txt"}
       if($1==800){print $1,$4*1000000 >> n".txt"; n=n+1}}' case.trace_fixdoping




???????
awk '{if($1<800){printf ("%s  %15.8f\n", $1,$4*1000000) >> n".txt"}
       if($1==800){print ("%s  %15.8f\n",  $1,$4*1000000) >> n".txt"; n=n+1}}' case.trace_fixdoping

15.8f ??? ???? 15 λ????С???c???@????? 8 λ
??g???W??????????
???? 15.8e ?????
赞一下(2人) 回复此楼

» 本帖已获得的红花（最新10朵）

ljw4010
21楼2014-08-11 20:40:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ljw4010

荣誉版主 (职业作家)

小木虫从头派教主
送红花一朵
引用回帖:
21楼: Originally posted by jpchou at 2014-08-11 20:40:55
Shell Script + AWK

1.我的数据文件格式如下：(case.trace_fixdoping)

2.我需要提取第1列和第4列的数据，并将第四列数据乘以10的6次方
> awk   '{print $1,$4}'   case.trace_fixdoping                提 ...

多谢了，我今天花了一天时间看shell,也试着用shell做了下，比较理想能输出五个文件，但是不能循环控制，程序冗长，看了你的觉得爽快多了，帖子关了，送你一朵大红花！

[ 发自小木虫客户端 ]
赞一下 回复此楼
不要说话
22楼2014-08-11 21:02:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhangxnt

银虫 (小有名气)
引用回帖:
19楼: Originally posted by ljw4010 at 2014-08-11 18:12:33
很不错了，多谢哈！因为我的数据数量 是根据温度变化的（第一列），比如上次给你的数据是以最大温度800 ，温度梯度10 输出的数据，
1.可不可以让我自己任意输入最大温度和温度梯度，最大温度上线1000，下线300
2 ...

S(m) 这点我不是很明白，是指该行由 T...S 变成 Y[K]...S(m)，并且每个输出文件的 m 的内容要有你自己输入？
赞一下 回复此楼
23楼2014-08-12 08:29:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ljw4010

荣誉版主 (职业作家)

小木虫从头派教主
引用回帖:
23楼: Originally posted by zhangxnt at 2014-08-12 08:29:46
S(m) 这点我不是很明白，是指该行由 T...S 变成 Y...S(m)，并且每个输出文件的 m 的内容要有你自己输入？...

就是我给的那个数据文件是最大温度800的，温度步长是10，恰好这俩值控制行数，可不可以这俩值由我自己输入，比如我用1000,10也可以，300,5也可以！再就是s（m）,能达到这种效果也行：比如我输入m=1e18存放到1.txt的s（m）中,接着1e19或者1.1e18放到2.txt……最好m中e左右俩数按步长可控

[ 发自小木虫客户端 ]
赞一下 回复此楼
不要说话
24楼2014-08-12 08:43:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhangxnt

银虫 (小有名气)
引用回帖:
24楼: Originally posted by ljw4010 at 2014-08-12 08:43:40
就是我给的那个数据文件是最大温度800的，温度步长是10，恰好这俩值控制行数，可不可以这俩值由我自己输入，比如我用1000,10也可以，300,5也可以！再就是s（m）,能达到这种效果也行：比如我输入m=1e18存放到1.txt的 ...

http://pan.baidu.com/s/1dDCdwPV
希望这个可以有用..
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

ljw4010
25楼2014-08-12 09:23:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ljw4010

荣誉版主 (职业作家)

小木虫从头派教主
送红花一朵
引用回帖:
25楼: Originally posted by zhangxnt at 2014-08-12 09:23:24
http://pan.baidu.com/s/1dDCdwPV
希望这个可以有用.....

多谢多谢，我试了下，这个程序对我附件的数据处理挺好，但是我换了一个case就不行了，不知道运行这个程序还要注意什么。这个帖子昨天不小心被关了，金币不知道怎么送了，暂且送你大红花吧！
赞一下 回复此楼
不要说话
26楼2014-08-12 09:50:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhangxnt

银虫 (小有名气)
引用回帖:
26楼: Originally posted by ljw4010 at 2014-08-12 09:50:22
多谢多谢，我试了下，这个程序对我附件的数据处理挺好，但是我换了一个case就不行了，不知道运行这个程序还要注意什么。这个帖子昨天不小心被关了，金币不知道怎么送了，暂且送你大红花吧！...

可以把不行的case传给我看看么
赞一下 回复此楼
27楼2014-08-12 10:03:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ljw4010

荣誉版主 (职业作家)

小木虫从头派教主
引用回帖:
27楼: Originally posted by zhangxnt at 2014-08-12 10:03:37
可以把不行的case传给我看看么...

温度最大800，步长50的！
赞一下 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : case.trace_fixdoping
    • 2014-08-12 11:01:07, 12.26 K
不要说话
28楼2014-08-12 11:01:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ljw4010

荣誉版主 (职业作家)

小木虫从头派教主
引用回帖:
21楼: Originally posted by jpchou at 2014-08-11 20:40:55
Shell Script + AWK

1.我的数据文件格式如下：(case.trace_fixdoping)

2.我需要提取第1列和第4列的数据，并将第四列数据乘以10的6次方
> awk   '{print $1,$4}'   case.trace_fixdoping                提 ...

您好，我用了您的程序之后，出现一个问题，就是第一行数据为0.00000000，然后输出的最后一个数据文件为空？
可不可以帮我修改啊，然后最好输出的文件都有标题，标题格式如下：
T[K]    S(m)
其中m的值我可以控制，比如我输入m=1e18，输出文件标题就变成：
T[K]    S(1e18)
--------------------------
T[K]    S(1e19)
-----------------------------
T[K]    S(1e20)
--------------------------
-
--
-
-
等等
赞一下 回复此楼
不要说话
29楼2014-08-12 11:32:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhangxnt

银虫 (小有名气)
引用回帖:
26楼: Originally posted by ljw4010 at 2014-08-12 09:50:22
多谢多谢，我试了下，这个程序对我附件的数据处理挺好，但是我换了一个case就不行了，不知道运行这个程序还要注意什么。这个帖子昨天不小心被关了，金币不知道怎么送了，暂且送你大红花吧！...

http://pan.baidu.com/s/12FZNS

忘了设置温度下限了...不好意思
赞一下 回复此楼

» 本帖已获得的红花（最新10朵）

ljw4010
30楼2014-08-12 11:57:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ljw4010 的主题更新
383/4返回列表上一页1234下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 基金啊基金 +3 longfie172 2026-08-20 3/150 2026-08-21 00:04 by wuchongjun
[基金申请] 科研孤儿太难了 +14 我4大白菜 2026-08-20 15/750 2026-08-20 22:33 by 袁向阳007
[基金申请] 言之凿凿，明天官网会通知放榜？ +15 医学老男孩 2026-08-20 17/850 2026-08-20 20:35 by CaoLG
[基金申请] 时间戳又变了 +12 wuchongjun 2026-08-20 17/850 2026-08-20 20:05 by spzhao
[基金申请] 今天系统多次维护，明天很可能放榜！ +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 时间戳变了，能看出什么问题？ +18 基诺咪客 2026-08-17 23/1150 2026-08-20 17:19 by Godzela
[基金申请] 只有每年这种时候来逛逛小木虫 +21 yaoyewhu2008 2026-08-20 22/1100 2026-08-20 17:03 by yaoyewhu2008
[基金申请] 放榜前的不淡定 40+3 snowwithsea 2026-08-19 12/600 2026-08-20 15:56 by lfy8008
[基金申请] 今天基金会出结果吗？20260819 +14 kkkl_v 2026-08-19 15/750 2026-08-20 08:21 by sunzitan
[基金申请] filecode，4个jtjc了 +11 ziyangfang 2026-08-19 13/650 2026-08-19 21:28 by aasahr
[教师之家] 为什么余额宝的年化利率越来越低？主要原因有哪些？ +5 瞬息宇宙 2026-08-15 5/250 2026-08-19 20:23 by super2002521
[基金申请] 今天放榜吗？ +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。 +6 Tide man 2026-08-14 7/350 2026-08-19 09:56 by ZJTJZ
[基金申请] 什么时候开奖？ +6 CrisMessi 2026-08-18 6/300 2026-08-19 08:06 by Equinoxhua
[论文投稿] 投稿咨询 +4 wwm09 2026-08-17 6/300 2026-08-18 15:36 by wwm09
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
信息提示
关闭
请填处理意见
关闭