 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 2220 | 回復(fù): 37 | ||||
ljw4010榮譽(yù)版主 (職業(yè)作家)
小木蟲從頭派教主
|
[求助]
急：求用Fortran或者其他語言編寫一個程序，處理下面的數(shù)據(jù)�。。。。。。。。�！
|
|||
|
我現(xiàn)在在處理程序畫圖時很費(fèi)勁，想對獲得數(shù)據(jù)文件處理下，因?yàn)槲覜]學(xué)過Fortran，自學(xué)了一下，但還是沒解決，其他語言寫的也可以，求助大神！ 1.我的數(shù)據(jù)文件格式如下： 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列的數(shù)據(jù)，并將第四列數(shù)據(jù)乘以10的6次方 3.以中間的空行為分割線，將每個分割后區(qū)域數(shù)據(jù) 依次輸出到 1.txt 、 2.txt、3.txt（數(shù)據(jù)多的話，可能更多塊，更多） 4.分割后的數(shù)據(jù)格式大致這樣： 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.數(shù)據(jù)附件如下： |
回復(fù)此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識產(chǎn)權(quán)問題，其責(zé)任在于用戶本人，如對版權(quán)有異議，請聯(lián)系郵箱：xiaomuchong@tal.com - 附件 1 : case.trace_fixdoping
2014-08-10 18:37:44, 60.69 K
» 猜你喜歡
271材料工程求調(diào)劑
已經(jīng)有5人回復(fù)
-
281求調(diào)劑（0805）
已經(jīng)有16人回復(fù)
-
304求調(diào)劑
已經(jīng)有6人回復(fù)
-
材料工程專碩調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿天大材料與化工（085600）總分338
已經(jīng)有4人回復(fù)
-
085700資源與環(huán)境308求調(diào)劑
已經(jīng)有3人回復(fù)
-
求材料調(diào)劑
已經(jīng)有8人回復(fù)
-
294求調(diào)劑材料與化工專碩
已經(jīng)有5人回復(fù)
-
一志愿華中科技大學(xué)，080502，354分求調(diào)劑
已經(jīng)有4人回復(fù)
-
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 有沒有大神看一下能不能用FORTRAN求解下面的式子
已經(jīng)有14人回復(fù)
- Fortran如何讀取不確定行數(shù)的數(shù)據(jù)
已經(jīng)有3人回復(fù)
- Fortran程序在linux下編譯的問題
已經(jīng)有5人回復(fù)
- FORTRAN中erf函數(shù)怎么編譯？
已經(jīng)有9人回復(fù)
- fortran編譯中$符號的使用
已經(jīng)有4人回復(fù)
- 求直接模擬蒙特卡羅方法的程序，包括二維和三維的用fortran編寫的，謝謝
已經(jīng)有9人回復(fù)
- 編一個fortran程序
已經(jīng)有17人回復(fù)
- 用Fortran編寫程序輸出的數(shù)據(jù)一般用什么程序作圖比較好？
已經(jīng)有28人回復(fù)
- fortran文件操作，接著寫不覆蓋
已經(jīng)有3人回復(fù)
- 大家?guī)臀铱匆粋�fortran的程序，我總是計算不出正確的結(jié)果
已經(jīng)有20人回復(fù)
- 求助計算機(jī)高人，編寫個Fortran程序
已經(jīng)有13人回復(fù)
- 如何用fortran編寫高斯白噪聲程序
已經(jīng)有6人回復(fù)
- 寫了一個fortran90的小程序，編譯通不過，請大俠幫忙
已經(jīng)有59人回復(fù)
- 【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離
已經(jīng)有34人回復(fù)
- 【求助】FORTRAN寫文件時每行開頭都多了一個空格？
已經(jīng)有6人回復(fù)
- 【求助】用fortran怎么描述下面這樣的情況，我是新手，請大家?guī)兔?/a>
已經(jīng)有8人回復(fù)
- 【求助】求高手關(guān)于Fortran數(shù)據(jù)讀寫的問題�！疽淹杲Y(jié)】
已經(jīng)有12人回復(fù)
- 【求助】請問一下fortran的可視化編程
已經(jīng)有7人回復(fù)
- 【求助】fortran中怎么存儲不確定長度的數(shù)據(jù)【已完結(jié)】
已經(jīng)有6人回復(fù)
- 【求助】這樣的公式，在fortran里該怎么寫了，謝謝【求助成功】
已經(jīng)有4人回復(fù)
sxf2012
木蟲 (正式寫手)
- 應(yīng)助: 23 (小學(xué)生)
- 金幣: 1133.8
- 紅花: 3
- 帖子: 313
- 在線: 148.9小時
- 蟲號: 900812
- 注冊: 2009-11-12
- 專業(yè): 光學(xué)
ljw401037樓2014-08-13 11:02:13
jpchou
專家顧問 (著名寫手)
-
專家經(jīng)驗(yàn): +20 - 應(yīng)助: 231 (大學(xué)生)
- 金幣: 2342
- 散金: 4367
- 紅花: 103
- 帖子: 1061
- 在線: 757.3小時
- 蟲號: 585915
- 注冊: 2008-08-08
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
- 管轄: 第一性原理
|
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 ????? |
» 本帖已獲得的紅花（最新10朵）
21樓2014-08-11 20:40:55
jjdg
版主 (知名作家)
- 程序強(qiáng)帖: 9
- 應(yīng)助: 223 (大學(xué)生)
- 貴賓: 3.926
- 金幣: 51005.2
- 紅花: 238
- 帖子: 7227
- 在線: 474.2小時
- 蟲號: 27000
- 注冊: 2003-10-21
- 專業(yè): 藥物代謝與藥物動力學(xué)
- 管轄: 程序語言
5樓2014-08-10 23:02:45
zhangxnt
銀蟲 (小有名氣)
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1625.5
- 紅花: 2
- 帖子: 228
- 在線: 619.9小時
- 蟲號: 1565343
- 注冊: 2012-01-05
- 性別: GG
- 專業(yè): 等離子體物理
【答案】應(yīng)助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
ljw4010: 金幣+40, ★★★很有幫助, 很滿意了！ 2014-08-11 18:02:25
感謝參與，應(yīng)助指數(shù) +1
ljw4010: 金幣+40, ★★★很有幫助, 很滿意了！ 2014-08-11 18:02:25
|
可執(zhí)行文件（把你的數(shù)據(jù)文件復(fù)制到dist目錄下，運(yùn)行plot_case.exe即可）： http://pan.baidu.com/s/1eQmsNJ0 源代碼： http://pan.baidu.com/s/1bnChxFp 我也是新手，寫的很粗糙，有問題給我留言 |
18樓2014-08-11 16:32:13
zhangxnt
銀蟲 (小有名氣)
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1625.5
- 紅花: 2
- 帖子: 228
- 在線: 619.9小時
- 蟲號: 1565343
- 注冊: 2012-01-05
- 性別: GG
- 專業(yè): 等離子體物理
35樓2014-08-12 14:57:17
ljw4010
榮譽(yù)版主 (職業(yè)作家)
小木蟲從頭派教主
- 應(yīng)助: 116 (高中生)
- 貴賓: 5.434
- 金幣: 26572.7
- 散金: 4305
- 紅花: 70
- 沙發(fā): 10
- 帖子: 4104
- 在線: 889.1小時
- 蟲號: 3019479
- 注冊: 2014-03-05
- 專業(yè): 半導(dǎo)體微納機(jī)電器件與系統(tǒng)
- 管轄: 計算模擬
2樓2014-08-10 21:58:35
3樓2014-08-10 22:14:57
ljw4010
榮譽(yù)版主 (職業(yè)作家)
小木蟲從頭派教主
- 應(yīng)助: 116 (高中生)
- 貴賓: 5.434
- 金幣: 26572.7
- 散金: 4305
- 紅花: 70
- 沙發(fā): 10
- 帖子: 4104
- 在線: 889.1小時
- 蟲號: 3019479
- 注冊: 2014-03-05
- 專業(yè): 半導(dǎo)體微納機(jī)電器件與系統(tǒng)
- 管轄: 計算模擬
4樓2014-08-10 22:18:45
ljw4010
榮譽(yù)版主 (職業(yè)作家)
小木蟲從頭派教主
- 應(yīng)助: 116 (高中生)
- 貴賓: 5.434
- 金幣: 26572.7
- 散金: 4305
- 紅花: 70
- 沙發(fā): 10
- 帖子: 4104
- 在線: 889.1小時
- 蟲號: 3019479
- 注冊: 2014-03-05
- 專業(yè): 半導(dǎo)體微納機(jī)電器件與系統(tǒng)
- 管轄: 計算模擬
6樓2014-08-10 23:30:15
|
T[K] S 10 -220.217300000000 20 -90.8767830000000 30 -84.6640150000000 40 -98.5727210000000 50 -114.997690000000 60 -130.422060000000 70 -144.186420000000 80 -156.331230000000 90 -167.112780000000 T[K] S 10 -116.892960000000 20 -81.8718080000000 30 -55.7439960000000 40 -50.1474340000000 50 -51.4927580000000 60 -54.8602690000000 70 -58.3488150000000 80 -61.4969570000000 90 -64.3818600000000 T[K] S 10 87.9535970000000 20 -4.15889470000000 30 -21.5047420000000 40 -27.0074730000000 50 -29.8332710000000 60 -31.3777200000000 70 -32.3265180000000 80 -33.2600610000000 90 -34.5446920000000 |
7樓2014-08-11 01:05:54
ljw4010
榮譽(yù)版主 (職業(yè)作家)
小木蟲從頭派教主
- 應(yīng)助: 116 (高中生)
- 貴賓: 5.434
- 金幣: 26572.7
- 散金: 4305
- 紅花: 70
- 沙發(fā): 10
- 帖子: 4104
- 在線: 889.1小時
- 蟲號: 3019479
- 注冊: 2014-03-05
- 專業(yè): 半導(dǎo)體微納機(jī)電器件與系統(tǒng)
- 管轄: 計算模擬
8樓2014-08-11 07:08:52
ljw4010
榮譽(yù)版主 (職業(yè)作家)
小木蟲從頭派教主
- 應(yīng)助: 116 (高中生)
- 貴賓: 5.434
- 金幣: 26572.7
- 散金: 4305
- 紅花: 70
- 沙發(fā): 10
- 帖子: 4104
- 在線: 889.1小時
- 蟲號: 3019479
- 注冊: 2014-03-05
- 專業(yè): 半導(dǎo)體微納機(jī)電器件與系統(tǒng)
- 管轄: 計算模擬
9樓2014-08-11 09:02:27
magicmonk
至尊木蟲 (著名寫手)
- 應(yīng)助: 172 (高中生)
- 金幣: 11451.3
- 紅花: 24
- 帖子: 1124
- 在線: 3108.8小時
- 蟲號: 1191315
- 注冊: 2011-01-17
- 專業(yè): 理論和計算化學(xué)
10樓2014-08-11 09:20:52
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 ljw4010 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085410人工智能專碩317求調(diào)劑（0854都可以） +3 | xbxudjdn 2026-03-18 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +4 | 脫穎而出 2026-03-16 | 10/500 |
|
|
|
[考研] 0703化學(xué)調(diào)劑，求各位老師收留 +9 | 秋有木北 2026-03-14 | 9/450 |
|
|
|
[考研] 材料專碩306英一數(shù)二 +10 | z1z2z3879 2026-03-16 | 13/650 |
|
|
|
[考博] 環(huán)境領(lǐng)域全國重點(diǎn)實(shí)驗(yàn)室招收博士1-2名 +3 | QGZDSYS 2026-03-13 | 5/250 |
|
|
|
[考研] 工科材料085601 279求調(diào)劑 +6 | 困于星晨 2026-03-17 | 6/300 |
|
|
[考研] 307求調(diào)劑 +3 | 冷笙123 2026-03-17 | 3/150 |
|
|
|
[考研] 材料專碩326求調(diào)劑 +6 | 墨煜姒莘 2026-03-15 | 7/350 |
|
|
|
[考研] 一志愿蘇州大學(xué)材料工程（085601）專碩有科研經(jīng)歷三項(xiàng)國獎兩個實(shí)用型專利一項(xiàng)省級立項(xiàng) +6 | 大火山小火山 2026-03-16 | 8/400 |
|
|
|
[考博] 26申博 +4 | 八旬速覽 2026-03-16 | 4/200 |
|
|
|
[考研] 考研調(diào)劑 +3 | 淇ya_~ 2026-03-17 | 5/250 |
|
|
|
[考研] 085600調(diào)劑 +5 | 漾漾123sun 2026-03-12 | 6/300 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 290分有科研經(jīng)歷，論文在投 +7 | 膩膩gk 2026-03-14 | 7/350 |
|
|
|
[考研] 0856求調(diào)劑 +3 | 劉夢微 2026-03-15 | 3/150 |
|
|
|
[考研] 294求調(diào)劑 +3 | Zys010410@ 2026-03-13 | 4/200 |
|
|
|
[考研] 308 085701 四六級已過求調(diào)劑 +7 | 溫喬喬喬喬 2026-03-12 | 14/700 |
|
|
|
[考研] 求材料調(diào)劑 085600英一數(shù)二總分302 前三科235 精通機(jī)器學(xué)習(xí) 一志愿哈工大 +4 | 林yaxin 2026-03-12 | 4/200 |
|
|
|
[考研] 0856材料與化工301求調(diào)劑 +5 | 奕束光 2026-03-13 | 5/250 |
|
|
|
[考研] 329求調(diào)劑 +3 | miaodesi 2026-03-12 | 4/200 |
|
|
|
[碩博家園] 085600 260分求調(diào)劑 +3 | 天空還下雨么 2026-03-13 | 5/250 |
|