有一定参考价值的“降水量统计分析地理信息系统”组块(mapinfo)

hillside

        以下内容来自网络，系根据MAPINFO地理信息系统软件开发的应用软件的一个组块，可供有兴趣的网友欣赏或琢磨。本人只是介绍，并不太多了解。更多内容请看附件。

note "历史雨情分析结果在“消息”框中报告，请您查看"  
print "    根据"+zm$+a1+"-"+a2+"年"+n+"年降水量资料分析得出以下结论:"
print "多年平均降水量为"+s(2)+"毫米，"
print "最大年雨量为"+s(19)+"毫米，出现在"+s(36)+ "年,"
print "最小年雨量为"+s(53)+"毫米， 出现在"+s(70)+"年。"
print "最大年雨量是最小年雨量的"+int(s(19)/s(53)*100)/100+"倍 。"  
print "最大年雨量是多年平均年雨量的"+int(s(19)/s(2)*100)/100+"倍。"
print"多年平均降水日数为"+s(3)+"天，"

print "最多降水日数"+s(20)+"天，出现在"+s(37)+ "年,"
print "最少年降水日数"+s(54)+"天， 出现在"+s(71)+"年。"
print "最多年降水日数是最少值的"+int(s(20)/s(54)*100)/100+"倍 ."  
print "最大年雨量是多年平均年雨量的"+int(s(20)/s(3)*100)/100+"倍。"
print"汛期6-9月份平均降水量为"+s(5)+"毫米，"
print"6-9月最大降雨量为"+s(22)+"毫米，出现在"+s(39)+ "年,"
print "最小汛期6-9降雨量为"+s(56)+"毫米， 出现在"+s(73)+"年。"
print "6-9月最大降雨量是6-9月最小降雨量的"+int(s(22)/s(56)*100)/100+"倍 。"  
print "6-9月最大降雨量是多年6-9月平均降雨量的"+int(s(22)/s(5)*100)/100+"倍."
print"平均最大一日降水量为"+s(6)+"毫米，"
print"最大一日降雨量为"+s(23)+"毫米，出现在"+s(40)+ "年,"
print "最小一日降雨量为"+s(57)+"毫米， 出现在"+s(74)+"年。"
print "最大一日降雨量是最小一日降雨量的"+int(s(23)/s(57)*100)/100+"倍 ."  
print "最大一日降雨量是多年平均最大一日降雨量的"+int(s(23)/s(6)*100)/100+"倍."
print"平均最大三日降水量为"+s(8)+"毫米，"
print"最大三日降雨量为"+s(25)+"毫米，出现在"+s(42)+ "年,"
print "最小三日降雨量为"+s(59)+"毫米， 出现在"+s(76)+"年。"
print "最大三日降雨量是最小三日降雨量的"+int(s(25)/s(59)*100)/100+"倍 。"  
print "最大三日降雨量是多年平均最大三日降雨量的"+int(s(23)/s(8)*100/100)+"倍。"
print"平均最大七降水量为"+s(10)+"毫米，"
print "最大七日降雨量为"+s(27)+"毫米，出现在"+s(44)+ "年,"
print "最小七日降雨量为"+s(61)+"毫米， 出现在"+s(78)+"年。"
print "最大七日降雨量是最小三日降雨量的"+int(s(27)/s(61)*100/100)+"倍。"  
print "最大七日降雨量是多年平均最大七日降雨量的"+int(s(27)/s(10)*100)/100+"倍。"
print"平均最大十五日降水量为"+s(12)+"毫米，"
print"最大十五日降雨量为"+s(29)+"毫米，出现在"+s(46)+ "年,"
print "最小十五日降雨量为"+s(63)+"毫米， 出现在"+s(80)+"年。"
print "最大十五日降雨量是最小十五日降雨量的"+int(s(29)/s(63)*100)/100+"倍 。"  
print "最大十五日降雨量是多年平均最大十五日降雨量的"+int(s(29)/s(12)*100)/100+"倍。"
print"平均最大三十降水量为"+s(14)+"毫米，"
print"最大三十降雨量为"+s(31)+"毫米，出现在"+s(48)+ "年,"
print "最小三十降雨量为"+s(65)+"毫米， 出现在"+s(82)+"年。"
print "最大三十降雨量是最小三日降雨量的"+int(s(31)/s(65)*100)/100+"倍 。"  
print "最大三十降雨量是多年平均最大三十降雨量的"+int(s(31)/s(14)*100)/100+"倍。"
print"平均最长持续无雨日"+s(16)+"天，"
print"最大持续无雨日为"+s(33)+"天，出现在"+s(50)+ "年,"
print "最小持续无雨日为"+s(67)+"天， 出现在"+s(84)+"年。"
print "最大持续无雨日是最小持续无雨日的"+int(s(33)/s(67)*100)/100+"倍。"  
print "最大持续无雨日是多年平均持续无雨日的"+int(s(33)/s(16)*100)/100+"倍。"
if x=1 then
goto a24  
end if
a23:note "您选择了"+z$(2)  
a24:END SUB               '历史雨情分析结束

sub a25
dialog
title"欢迎您使用降水量统计分析地理信息系统"
position 200,120              '200为菜单左边界距窗口左边的距离120为距窗口的上部距离  
control statictext
title "      在分析统计计算中，系统将会"
position 20,0
control statictext
title "自动生成一些表格，您是否需要浏览："
position 20,10
control radiogroup
title "需要浏览  ;不需要浏览"
position 40,20
into  E '选择结果存入E
control okbutton
title "确定"
position 20,50
control cancelbutton
title "取消"
position 100,50
z$(1)="分区（单站）分析"
z$(2)="分区综合分析"
dialog
title"欢迎您选择工作分区"  
position 200,120              '200为菜单左边界距窗口左边的距离120为距窗口的上部距离  
control radiogroup
title "分区（单站）;分区综合分析"
position 30,8
into x '选择结果存入X
control okbutton
title "确定"
position 10,50
control cancelbutton
title "取消"
position 80,50
print "您选择了"+z$(x)
end sub
      就mapinfo软件使用方法而言，徐州市水利局罗云启、罗毅合著的《MAPINFO应用大全》无疑是其中的佼佼者，他们还联合开发了《降水量统计分析专家系统》 。
                                                                   《降水量统计分析专家系统》简介
                                                                                    罗云启 罗毅
                                                                      徐州市水利局, 徐州221002         
                                                                   《水文水资源》   2001年第22卷第2期

                                                                                      摘　　要
        本系统综合了分析，统计技术，预测科学和“3S”技术，以GIS（MapInofo)为平台，多语言集成，15个主模块，58个子模块的大型应用系统，直接读取原始资料，对海量历史数据检索，查询，分析，总结历史降水的统计规律，农业雨情，历史旱涝评价，逐日降水概率，历史数据回溯，成为指导社会基础设施，水利工程建设，防汛防旱，农业生产，城乡供水的重要依据。本系统将历史和当前降水无缝链接，并在GIS中显示原始数据，统计查询分析，预测（利用多相关分析，逐步回归，平稳时间序列，周期分析和周期叠架等模型）结果，绘制等值线，等值面，能自动划分降水（干旱）时段，完成模型与数据，模型与文本，模型与表格的结合，自动读表，以屏幕显示，打印，文件的形式输出，在实时分析降水的同时提高工效50倍，社会效益，防灾减灾明显，]对降水的成因基础理论将起到重要的作用，本系统还适应于农日观测的其它自然，社会，经济等方面的资料分析，应用范围十分广阔。

SKSY

学习了。

才仔

感谢张贴出来

怡馨

不错

宋吉

不错，我要多向大牛学习。

yanan_1018

感谢分享，学习了

主机板

感谢分享，学习了