随机波浪zuixinban.docVIP

下载本文档

13
0
约2.94万字
约 33页
2017-12-10 发布于河南
举报
版权申诉

随机波浪zuixinban.doc

1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

随机波浪zuixinban

用fortran写tecplot的二进制文件 2008-06-19 21:55 tecplot的文件分为ASCII码和二进制两种，二进制文件的大小要远小于前者，对于节约空间较为有利；另外tecplot 在打开ASCII码文件是要先把它转化为二进制文件，当文件较大时速度奇慢。然而二进制文件的生成方法较为复杂，一位浙大的同学帖子中有介绍，并且给出了用C语言直接写二进制文件的程序。具有很好的参考价值。/hepei63/blog/item/32f9dd0f73c018e9ab6457f2.html 不过该程序只能写单区的文件，如何写多区文件呢？进过两天的实验，我用FORTRAN语言写了一个，然后又弄了多区的文件。现在贡献给大家，希望有用。 tecplot安装目录里的util\preplot\preplot.c的最后部分详细介绍了二进制文件的格式，各个版本的格式不完全一样，本程序是参照TECPLOT10.0格式写的。先来一个简单的单区的： program tecbinimplicit real*4 (a-h,o-z) integer, parameter:: imax=50integer, parameter:: jmax=25integer, parameter:: kmax=50Integer*4 I,J,K,GTYPEcharacter*40 Title,varcharacter*40 Varname1,Varname2,Varname3,Varname4character*40 Zonename1 real(kind=8):: x(imax,jmax,kmax)??????????????? !x coordinatereal(kind=8):: y(imax,jmax,kmax)??????????????? !y coordinatereal(kind=8):: z(imax,jmax,kmax)??????????????? !z coordinatereal(kind=8):: den(imax,jmax,kmax)????????????? !density REAL*4 ZONEMARKER, EOHMARKER ZONEMARKER=?????????? 299.0EOHMARKER =?????????? 357.0 ????? open(unit=99,file=tecbin.plt,form=BINARY)c?????? I. The header section. c------1.1 Magic number, Version number write(99) #!TDV101 c-----1.2. Integer value of 1.----------------------------------------------------------????? write(99) 1 c-----1.3. Title and variable names.------------------------------------------------- c-----1.3.1. The TITLE. Title=This is my first bin file.call dumpstring(Title)c -----1.3.2 Number of variables (NumVar) in the datafile. write(99) 4 c------1.3.3 Variable names. N = L[1] + L[2] + .... L[NumVar] Varname1=Xcall dumpstring(Varname1)??Varname2=Ycall dumpstring(Varname2) Varname3=Zcall dumpstring(Varname3)??Varname4=density call dumpstring(Varname4) c-----1.4. Zones------------------------------------------------------------------- c--------Zone marker. Value = 299.0write(99) ZONEMARKER c--------Zone name. Zonename1=ZONE 001call dumpstring(Zonename1) c---------Zone Color????? write(99) -1 c---------ZoneType?? ????? write(99) 0 c--------