サンプル 3D サーフェイス データ

using System;
using System.Collections.Generic;
using System.Collections.ObjectModel;
using System.ComponentModel;
using System.Linq;

namespace Infragistics.Models
{
  // TODO add data model
  // TODO add data source
}

Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports System.Linq

Namespace Infragistics.Models
   ' TODO add data model
   ' TODO add data source
End Namespace

public class ShapePoint3D
{
    public double X { get; set; }
    public double Y { get; set; }
    public double Z { get; set; }
}

Public Class ShapePoint3D
    Public Property X As Double
    Public Property Y As Double
    Public Property Z As Double
End Class

public abstract class Surface3D : ObservableCollection<ShapePoint3D>
{
    public Surface3D()
        : this(11, 11)
    {
    }
    public Surface3D(int xCount, int yCount)
        : this(-100, 100, -100, 100, xCount, yCount)
    {
    }
    public Surface3D(double xMin, double xMax,
                     double yMin, double yMax,
                     int xCount = 11, int yCount = 11)
    {
        XMin = xMin;
        XMax = xMax;
        YMin = xMin;
        YMax = yMax;
        XCount = xCount;
        YCount = yCount;
        Generate();
    }

    public double XMin { get; private set; }
    public double XMax { get; private set; }
    public double YMin { get; private set; }
    public double YMax { get; private set; }
    public double XCount { get; private set; }
    public double YCount { get; private set; }
    protected void Generate()
    {
        var xStep = (XMax - XMin) / (XCount - 1);
        var yStep = (YMax - YMin) / (YCount - 1);
        for (var x = XMin; x <= XMax; x += xStep)
        {
            for (var y = YMin; y <= YMax; y += yStep)
            {
                this.Add(new ShapePoint3D { X = x, Y = y, Z = this.Z(x, y) });
            }
        }
    }
    protected abstract new double Z(double x, double y);
}
public class CosXPlusCosY : Surface3D
{
    protected override double Z(double x, double y)
    {
        return Math.Cos(x) + Math.Cos(y);
    }
}

Public MustInherit Class Surface3D
    Inherits ObservableCollection(Of ShapePoint3D)
    Public Sub New()
    	Me.New(11, 11)
    End Sub
    Public Sub New(xCount As Integer, yCount As Integer)
    	Me.New(-100, 100, -100, 100, xCount, yCount)
    End Sub
    Public Sub New(xMin__1 As Double, xMax__2 As Double,
                   yMin__3 As Double, yMax__4 As Double,
                   Optional xCount__5 As Integer = 11,
                   Optional yCount__6 As Integer = 11)
    	XMin = xMin__1
    	XMax = xMax__2
    	YMin = xMin__1
    	YMax = yMax__4
    	XCount = xCount__5
    	YCount = yCount__6
    	Generate()
    End Sub

    Public Property XMin() As Double
    	Get
    	    Return m_XMin
    	End Get
    	Private Set
    	    m_XMin = Value
    	End Set
    End Property
    Private m_XMin As Double
    Public Property XMax() As Double
        Get
            Return m_XMax
    	End Get
    	Private Set
    	    m_XMax = Value
    	End Set
    End Property
    Private m_XMax As Double
    Public Property YMin() As Double
    	Get
    	    Return m_YMin
    	End Get
    	Private Set
    	    m_YMin = Value
    	End Set
	End Property
	Private m_YMin As Double
    Public Property YMax() As Double
        Get
            Return m_YMax
        End Get
        Private Set
            m_YMax = Value
        End Set
    End Property
    Private m_YMax As Double
    Public Property XCount() As Double
        Get
            Return m_XCount
        End Get
        Private Set
            m_XCount = Value
        End Set
    End Property
    Private m_XCount As Double
    Public Property YCount() As Double
        Get
            Return m_YCount
        End Get
        Private Set
            m_YCount = Value
        End Set
    End Property
    Private m_YCount As Double
    Protected Sub Generate()
        Dim xStep = (XMax - XMin) / (XCount - 1)
        Dim yStep = (YMax - YMin) / (YCount - 1)
        Dim x = XMin
        While x <= XMax
            Dim y = YMin
            While y <= YMax
                Me.Add(New ShapePoint3D() With { _
                    Key .X = x, _
                    Key .Y = y, _
                    Key .Z = Me.Z(x, y) _
                })
                y += yStep
            End While
            x += xStep
        End While
    End Sub
    Protected MustOverride Shadows Function Z(x As Double, y As Double) As Double
End Class

Public Class CosXPlusCosY
    Inherits Surface3D
    Protected Overrides Function Z(x As Double, y As Double) As Double
        Return Math.Cos(x) + Math.Cos(y)
    End Function
End Class