气象常用程序包-相当给力！

mofangbao · 发表于 2011-9-1 18:39:34

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

一套很好的东西，每一章的每一部分都附带有源程序和中文的使用方法，下面贴出一个文件里面的示意一下，有的程序还有示例来参考，最难得的是这些都是气象上能用到的东西。

1.1 拉格朗日插值
1.1.1 FORTRAN程序
LAGINT.F
!
!根据给定点的函数值，应用拉格朗日插值公式，计算指定插值点处的
！函数值。
！在指定点的前后各取四个结点，用七次拉格朗日插值公式。
！X，Y为输入参数，各有N个点
！T为指定插入点
！Z为输出参数，是插值点T处的近似值。
SUBROUTIONE LAGINT（X，Y，N ，T，Z）
DIMENSION X（N），Y（N）
DOUBLE PRECISION X，Y，T，X，S
Z=0.0
IF (N.LE.0) RETURN
IF(N.EQ.1) THEN
Z=Y(1)
ENDIF
IF(N.EQ.2) THEN
Z=(Y(1)*(T-X(2))-Y(2)*(T-X(1)))/(X(1)-X(2))
RETURN
ENDIF
I=1
10 IF(X(1) .LT. T)
I=I+1
IF(I .LE. N) GOTO 10
ENDIF
K=I-4
IF(K .LT. 1) K=1
M=I+3
IF( M .GT. N) M=N
DO 30 I=K,M
S=1.0
DO 20 J=K,M
IF(J .NE. I) THEN
S=S*(T-X(J))/(X(I)-X(J))
ENDIF
20 CONTINUE
Z=Z+S*Y(I)
30 CONTINUE
RETURN
END

复制代码

==================================
下面的附件有几个是无需任何权限即可下载，有些是需要用户达到一定的贡献才可以下载（只有比较珍贵的资料才会这么做），这样做也是促进大家能够分享出自己的资源，只获取不分享，是不能长久的。
请不要使用迅雷等下载工具下载，以免浪费您的积分，您可以使用IE右键另存为来下载
如果您分享的资源够好，可以直接找我要这套东东。
==================================

第10章气象绘图软件.doc (122 KB, 下载次数: 1300)

言深深 · 发表于 2011-9-1 20:10:33

@mofangbao好，果断分享了啊

mofangbao · 发表于 2011-9-1 20:23:01

言深深发表于 2011-9-1 20:10

登录/注册后可看大图

@mofangbao好，果断分享了啊

谢谢言版支持~

zsmnantong · 发表于 2011-9-1 21:11:14

好东西，不过很多还不了解，慢慢学，感谢分享

athlon8048 · 发表于 2011-9-1 21:15:00

老大，你太强了

fancy-NUIST · 发表于 2011-9-1 21:45:46

mofangbao 发表于 2011-9-1 20:23

登录/注册后可看大图

谢谢言版支持~

唉，言版
曹工，岳工。。。

rency · 发表于 2011-9-2 08:06:48

好东西，先收藏了哈～

topmad · 发表于 2011-9-2 08:31:36

电脑一好，就看到清风分享的给力大作哎。。。。

这么好的东西，我也去分享

言深深 · 发表于 2011-9-2 09:20:01

fancy-NUIST 发表于 2011-9-1 21:45

登录/注册后可看大图

唉，言版
曹工，岳工。。。

F有什么要发表了呗？嘿嘿

喜上眉梢 · 发表于 2011-9-2 13:30:28

好东西，在怀化论坛上有，就是个死链接，下死了也下不下来，现在终于有了，都来谢老大啊。

		自动登录	找回密码
密码			立即注册

[源代码] 气象常用程序包-相当给力！

登录后查看更多精彩内容~

点评

评分

本帖被以下淘专辑推荐:

相关帖子

浏览过的版块