文件名称:xinanjiangVB
下载
别用迅雷、360浏览器下载。
如迅雷强制弹出，可右键点击选“另存为”。
失败请重下，重下不扣分。
如迅雷强制弹出，可右键点击选“另存为”。
失败请重下，重下不扣分。
介绍说明－－下载内容均来自于网络，请自行研究使用
新安江模型VB代码, 新安江模型，欢迎大家提出各种宝贵意见，以完善该程序，还缺少参数率定的程序，谁写过了？可以分享一下吗？-xinanjiang vb code
Option Explicit
Private Sub Command1_Click()
Dim P(366) As Single, E(366) As Single, PE(366) As Single
Dim P1(366) As Single, P2(366) As Single, P3(366) As Single, P4(366) As Single
Dim E0(366) As Single, Ep(366) As Single
Dim EU(366) As Single, EL(366) As Single, ED(366) As Single
Dim WU(366) As Single, WL(366) As Single, WD(366) As Single, W(366) As Single
Dim Q(366) As Single, R(366) As Single, sumR As Single, sumQ As Single
Dim i As Integer, Kc As Single, WMM As Single, a(366) As Single
Const WUM 20, WLM 60, WDM 60
Const C 0.16
Option Explicit
Private Sub Command1_Click()
Dim P(366) As Single, E(366) As Single, PE(366) As Single
Dim P1(366) As Single, P2(366) As Single, P3(366) As Single, P4(366) As Single
Dim E0(366) As Single, Ep(366) As Single
Dim EU(366) As Single, EL(366) As Single, ED(366) As Single
Dim WU(366) As Single, WL(366) As Single, WD(366) As Single, W(366) As Single
Dim Q(366) As Single, R(366) As Single, sumR As Single, sumQ As Single
Dim i As Integer, Kc As Single, WMM As Single, a(366) As Single
Const WUM 20, WLM 60, WDM 60
Const C 0.16
(系统自动生成,下载前可以参看下载内容)
下载文件列表
新安江VB代码.doc