本文將用fortran代碼實現數據格式的轉換，并實現用grapher畫出多測道圖的目的

第一步：實現數據格式轉換，下面展示一些 內聯代碼片。

Program MainImplicit NoneCharacter(Len=80)::infilename,outfilenameInteger,Parameter::nt=26Integer::nx,i,j,kReal(Kind=8)::t(nt)Real(Kind=8),Allocatable::dbdt(:,:)Do i=1,3Write(infilename,"(g0)")2800+(i-1)*50outfilename=Trim(infilename)//".dat"infilename="newtime50_Line"//Trim(infilename)//".dat"Write(*,*)infilename,outfilenameOpen(100+i,file=infilename)Read(100+i,*)nxWrite(*,*)nxAllocate(dbdt(26,nx))Read(100+i,"(a)")Do j=1,nxRead(100+i,"(a)")Read(100+i,"(a)")Read(100+i,"(a)")Read(100+i,"(a)")Do k=1,ntRead(100+i,*)t(k),dbdt(k,j)End DoEnd DoOpen(200+i,file=outfilename)Do k=1,ntWrite(200+i,"(*(3xg0))")t(k),dbdt(k,:)End DoClose(200+i) Deallocate(dbdt)Close(100+i) End Do End Program

第二步：如何運用grapher軟件畫出多測道圖
①將數據導入grapher中，如下圖所示，其中第一列表示時間t，后面的n列表示n個接收點的電磁場信號；

②刪掉第一列的數據時間t（選中第二列之后，右擊delete即可），然后選中其余的數據，點擊Transpose，將行列轉置，即第一行表示第一個接收點，如下圖所示：

③在第一列新插入一列，1，2，，，nt


④打開一個新的plot界面，將數據復制到worksheet里面，畫圖即可

總結

以上是生活随笔為你收集整理的将圆滑软件中的数据改写为用grapher画多测道图的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。