曲面_彩色等值线m1.bas

这是用vb编写的源程序,是有关用数据来绘制曲面等值线的源程序.供大家参考.

Attribute VB_Name = "modParameter"
'绘彩色等值线图
Option Explicit
Public intRow As Integer            '行数
Public intRowAll As Integer         '总行数
Public intCol As Integer            '列数
Public strFileName As String        '数据文件
Public strLabelName As String       '图形标题
Public intM As Integer, intN As Integer
Public V() As Double, V1() As Double
Public M As Integer, N As Integer   '数据点的行数和列数
Public DX As Double, DY As Double   '数据点在X和Y方向上的间距
'PA是初始等值线，缺省以最小值作为初始等值线值
'PB是终止等值线，缺省以最大值作为终止等值线值
'PC是等值线间距，缺省按12条等值线计算
Public PA As Double, PB As Double, PC As Double