气象资料站 气象资料站
设为首页
加入收藏
点击这里给我发消息
首页  | 气象作图  |  气象编程  |  气象统计  |  大气科学  |  农业气象  |  大探遥感  |  防雷  |  海洋科学  |  精品课程  |  气象家园 |  Tq网盘
搜索: [高级搜索]
致各位气象人的一封信
气象家园
您的位置: 首页 > 气象编程 > Fortran
 
分类导航
 
站点广告
下载排行
最新软件
correlationmiss-求有缺省资料的两个序列x(n)和y(n)的相关系数r的fortran源代码
软件大小:6.68 KB 软件类型:国产软件
软件语言:简体中文 软件授权:共享软件
软件提交:mofangbao 更新时间:2011-04-25 13:14:54
软件作者: 软件等级:
官方网址:官方网站 程序演示:演示地址
运行环境:/all
下载统计:总下载:0,本月下载:0,本周下载:0,今日下载:0
软件介绍
correlationmiss-求有缺省资料的两个序列x(n)和y(n)的相关系数r的fortran源代码
c-----*----------------------------------------------------6---------7--
c     Correlation coefficient r between two series
c       x(i) and y(i) with missing data, where i=1,...,n.
c     input: x(n),y(n),undef
c       undef is missing data; however, if ax or sx is still undefined,
c       it will be -9.99e33 whatever the input undef is.
c     output: r and nr
c       nr is the effective number of independent and defined values
c       simultianeuosly in two series.        
c     By Dr. LI Jianping, Decmber 5, 2001.
      subroutine correlationmiss(n,x,y,undef,r,nr)
      dimension x(n),y(n)
      dimension xw(n),yw(n)  ! work array
      undef1=-9.99e33
      num=0
      do 10 i=1,n
        if(x(i).eq.undef.or.y(i).eq.undef) goto 10
        num=num+1
        xw(num)=x(i)
        yw(num)=y(i)
  10  continue
      if(num.le.5)then
        r=undef1
      else
        call correlation(num,xw(1),yw(1),r)
      endif
      nr=num
      return
      end
c-----*----------------------------------------------------6---------7--
c     For the correlation coefficient r between two series
c       x(i) and y(i), where i=1,...,n.
c     input: n,x(n),y(n)
c       n: number of time series
c       x(n): raw series

...
下载地址
 下载地址1
推荐链接
·Fortran 90 Handbook
·一本影印版的fortran教程
·Fortran95简介-全文版
·DIGITAL Visual Fortran Error Messages-----fortran编译错误信息
·Development of theFortran Module Wizardwithin DIGITAL Visual
·C语言直接操作FORTRAN数据文件的方法
·Understand for FORTRAN 程序指导书
·fortran教程 PDF
·Linux中GNU C/C++/Fortran编译器的使用教程
·HP的Fortran编译器使用
按字母检索
网站首页 | 关于我们 | 服务条款 | 广告服务 | 联系我们 | 免责声明
Powered by EmpireDown 2.5 气象资料站版权所有