program main !sms网格转换成mike21网格
DIMENSION X(),Y(),H(),NDNN(,),ncbd()
dimension NBS(),NOBD(,),NSED(,),id0(),nbi()
dimension x0(),y0(),h0()
character* a*,b*,gnn*,demo* open(,file='./2013.8.30(after).grd',status='old')
read(,*)
read(,*)nel,nde
do i=,nde
read(,*)num,x(i),y(i),h(i)
h(i)=h(i)+2.2
enddo
do i=,nel
read(,*)num,nd,(ndnn(i,j),j=,)
enddo do i=, !
read(,*)
enddo
read(,*)kb
read(,*)
do k=,kb
read(,*)nbs(k)
do i=,nbs(k)
read(,*)nobd(i,k)
enddo
enddo
close()
c-----------------------------------------------------------
open(,file='滑道1.grd',status='old')
read(,*)
read(,*)nel0,nde0
do i=,nde0
read(,*)num,x0(i),y0(i),h0(i)
enddo
close() do i=,nde
do j=,nde0
dis=sqrt((x(i)-x0(j))**+(y(i)-y0(j))**)
if(dis.le.)then
h(i)=2.2-h0(j)
goto
endif
enddo
continue open(,file='滑道2.grd',status='old')
read(,*)
read(,*)nel0,nde0
do i=,nde0
read(,*)num,x0(i),y0(i),h0(i)
enddo
close() do i=,nde
do j=,nde0
dis=sqrt((x(i)-x0(j))**+(y(i)-y0(j))**)
if(dis.le.)then
h(i)=2.2-h0(j)
goto
endif
enddo
continue
c----------------------------------------------------------
id0= open(,file='closebd.txt',status='old')
do nn=,
read(,*,end=)nk
write(*,*)nk
read(,*)(ncbd(n),n=,nk)
do i=,nk
id0(ncbd(i))= !+nn
enddo
enddo
continue
close()
do k=,kb do i=,nbs(k)
id0(nobd(i,k))=k+
enddo
enddo write(*,*) demo=' PROJCS["Beijing_1954_3_Degree_GK_CM_111E",GEOGCS
*["GCS_Beijing_1954",DATUM["D_Beijing_1954",SPHEROID["Krasovsky
*_1940",6378245.0,298.3]],PRIMEM["Greenwich",0.0],UNIT["Degree",
*0.0174532925199433]],PROJECTION["Gauss_Kruger"],PARAMETER["False
*_Easting",500000.0],PARAMETER["False_Northing",0.0],PARAMETER
*["Central_Meridian",120.0],PARAMETER["Scale_Factor",1.0],
*PARAMETER["Latitude_Of_Origin",0.0],UNIT["Meter",1.0]]' open(,file='2013.8.30(after).mesh')
write(,'(I8,a)')nde,demo
d0=
do i=,nde
write(,'(i8,2f12.2,f10.4,I4)')i,x(i),y(i),h(i)*-,id0(i) !
enddo
write(,*)nel,' 3 21'
do i=,nel
write(,'(5I6)')i,(ndnn(i,j),j=,),d0
enddo close() end

SMS模型格网转换为MIKE21的格网源代码的更多相关文章

  1. 个人永久性免费-Excel催化剂功能第52波-相同内容批量合并单元格,取消合并单元格并填充内容

    在高级Excel用户群体中无比痛恨的合并单元格,在现实的表格中却阴魂不散的纠缠不断.今天Excel催化剂也来成为“帮凶”,制造更多的合并单元格.虽然开发出此功能,请使用过程中务必要保持节制,在可以称为 ...

  2. Swift - 实现点击UITableView单元格时自动展开单元格

    下面是一个列表单元格cell的折叠展开效果的demo.当点击单元格时会展开该单元格,便于显示一些详情什么的.点击其他单元格原来的会关闭,同时有动画效果. 效果如如下:   代码如下: 1 2 3 4 ...

  3. NPOI扩展--判断指定单元格是否为合并单元格和输出该单元格的行列跨度(维度)

    因工作需要用到跨合并单元格获取数据,所以写了个NPOI扩展类. 主要方法如下: 1.判断指定行/列索引(单元格)是否为合并单元格. 2.获取指定列索引的实际含有数据的单元格. 3.返回指定行/列索引的 ...

  4. mysql GROUP_CONCAT 函数 将相同的键的多个单元格合并到一个单元格

    mysql GROUP_CONCAT 函数 将相同的键的多个单元格合并到一个单元格 MemberID MemberName FruitName -------------- ------------- ...

  5. Oracle 11g 下载|Oracle 11g 官网下载|Oracle 11g 官网下载 带登录用户和密码

    本文转载自 Oracle 11g 下载|Oracle 11g 官网下载|Oracle 11g 官网下载 带登录用户和密码 oracle 下载还需要用户名我自己注册了个方便大家使用下载直接点击提示找不到 ...

  6. 【转】CentOS5.6下配置rsync内网同步数据到外网

    [转]CentOS5.6下配置rsync内网同步数据到外网 本文转自:http://www.linuxidc.com/Linux/2012-06/64070.htm 一.需求 卫士那边有一个需求,就是 ...

  7. 配置NAT回流导致外网解析到了内网IP

    单位有3个域名,用量很大,2014年开始本人研究部署了Bind+DLZ +Mysql的三机智能多链路DNS,非常好用,优点是: 1.使用Mysql管理记录,配置.管理.查询方便. 2.自动判断运营商, ...

  8. 城通网盘,千军万马,千脑网盘,119g网盘哪个适合做网赚?

    转载请注明文章来自 [ofiicexie] 网盘网赚已经流行了有一段时间了,国内流行的几个网盘有城通,千军万马,千脑,119g,今天小编写以此文来比较分析一下这几个网盘的优缺点. 这里,我特意做了个这 ...

  9. [PHP] 网盘搜索引擎-采集爬取百度网盘分享文件实现网盘搜索

    标题起的太大了,都是骗人的.最近使用PHP实现了简单的网盘搜索程序,并且关联了微信公众平台.用户可以通过公众号输入关键字,公众号会返回相应的网盘下载地址.就是这么一个简单的功能,类似很多的网盘搜索类网 ...

随机推荐

  1. cJSON: 一个用c写的一个简单好用的JSON解析器

    转自:http://blog.csdn.net/chenzhongjing/article/details/9188347 下载地址: http://sourceforge.net/projects/ ...

  2. struts2的标签中得到JSP脚本的变量值

    转自:http://www.cnblogs.com/modou/articles/1299024.html 大家先来看一段代码: <% int i=1; %> <s:property ...

  3. android 检测sqlite数据表中字段(列)是否存在 (转)

    原文摘自 http://www.tuicool.com/articles/jmmMnu 一般数据库升级时,需要检测表中是否已存在相应字段(列),因为列名重复会报错.方法有很多,下面列举2种常见的方式: ...

  4. MVC的处理过程

    MVC的处理过程,首先控制器接受用户的请求,并决定应该调用哪个模型来进行处理,然后模型用业务逻辑来处理用户的请求并返回数据,最后控制器用相应的视图格式化模型返回的数据,并通过表示层呈现给用户.

  5. UVA - 10891 Game of Sum 区间DP

    题目连接:http://acm.hust.edu.cn/vjudge/problem/viewProblem.action?id=19461 Game of sum Description This ...

  6. enter键实现自动登录

    将登录窗口的属性acceptbutton更改为登录按钮!

  7. Java Web应用调优线程池

    最简单的单线程 我们先从基础开始.无论使用哪种应用服务器或者框架(如Tomcat.Jetty等),他们都有类似的基础实现.Web服务的基础是套接字(socket),套接字负责监听端口,等待TCP连接, ...

  8. Log4Net 配置StmpAppender

    目录 Log4Net 配置StmpAppender    1 1.前言    1 2.详细配置    1 1.StmpAppender配置    1 2.Root 配置    2 3.更多选项     ...

  9. Lambda表达式可以被转换为委托类型

    void Main() { //向Users类中增加两人; List<Users> user=new List<Users>{ new Users{ID=1,Name=&quo ...

  10. CC150 - 11.5

    Question: Given a sorted array of strings which is interspersed with empty strings, write a method t ...