5

私が取り組んでいるグラフの X 軸に表示される値を次のように増やしたいと思います。

X 軸は で始まり、が0.125表示され0.250, 0.5, 1.0、数値は1.5, 2, 3,4,5,6,8,12次の画像のようになります (もちろん、グラフは正しくありませんが、X 軸の値のスケーリングを表示したかったのです)。

ここに画像の説明を入力

現在、私はこれを持っています：

ここに画像の説明を入力

これを行うには（vb.netバージョン）

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports ZedGraph

Namespace Grid
    Partial Public Class graficaControl
        Inherits Form
        Public Sub New()
            InitializeComponent()
            DrawGraph()
        End Sub


        Private Function h(ByVal x As Double) As Double
            If x = 0 Then
                Return 1
            End If

            Return Math.Sin(x) / x
        End Function

        Private Function f(ByVal x As Double) As Double
            If x = 0 Then
                Return 1
            End If

            Return Math.Sin(x)
        End Function

        Private Function g(ByVal x As Double) As Double
            If x = 1 Then
                Return 0
            End If

            Return Math.Cos(x)
        End Function



        Private Sub DrawGraph()
            Dim masterPane As ZedGraph.MasterPane = zedGraph.MasterPane
            Dim pane As New GraphPane()
            masterPane.PaneList.Clear()

            pane.XAxis.Title.Text = "X"
            pane.XAxis.Title.FontSpec.IsUnderline = False
            pane.XAxis.Title.FontSpec.IsBold = True
            pane.XAxis.Title.FontSpec.FontColor = Color.Blue
            pane.YAxis.Title.Text = "Y"
            pane.Title.Text = "Right - FF1"
            pane.Title.FontSpec.Fill.IsVisible = True
            pane.Title.FontSpec.IsBold = False

            'X AXIS UP
            pane.X2Axis.IsVisible = True
            pane.XAxis.IsVisible = False
            pane.YAxis.Scale.IsReverse = True

            'Grid
            pane.XAxis.MajorGrid.IsVisible = True
            pane.XAxis.MajorGrid.DashOn = 10
            pane.XAxis.MajorGrid.DashOff = 5
            pane.YAxis.MajorGrid.IsVisible = True
            pane.YAxis.MajorGrid.DashOn = 10
            pane.YAxis.MajorGrid.DashOff = 5
            pane.YAxis.MinorGrid.IsVisible = True
            pane.YAxis.MinorGrid.DashOn = 1
            pane.YAxis.MinorGrid.DashOff = 2
            pane.XAxis.MinorGrid.IsVisible = True
            pane.XAxis.MinorGrid.DashOn = 1
            pane.XAxis.MinorGrid.DashOff = 2


            'FOR TEXT
            pane.Legend.Position = LegendPos.Float
            pane.Legend.Location.CoordinateFrame = CoordType.ChartFraction
            pane.Legend.Location.AlignH = AlignH.Right
            pane.Legend.Location.AlignV = AlignV.Bottom
            pane.Legend.Location.TopLeft = New PointF(1.0F - 0.02F, 1.0F - 0.02F)



            iGraph(pane)

            ' Add to master 
            masterPane.Add(pane)

            'later add second graph
            Using g As Graphics = CreateGraphics()
                masterPane.SetLayout(g, PaneLayout.SquareColPreferred)
           End Using

            zedGraph.AxisChange()
            zedGraph.Invalidate()
        End Sub

        Private Sub iGraph(ByVal izq As GraphPane)
            izq.CurveList.Clear()
            Dim list As New PointPairList()
            Dim xmin As Double = -50
            Dim xmax As Double = 3
            Dim x As Double = xmin
            While x <= xmax
                list.Add(x, h(x))
                x += 0.01
            End While
            Dim myCurve As LineItem = izq.AddCurve("sen(x)/x", list, Color.ForestGreen, SymbolType.None)
        End Sub
        Private WithEvents zedGraph As ZedGraph.ZedGraphControl

        Private Sub InitializeComponent()            
        Me.zedGraph = New ZedGraph.ZedGraphControl()
        Me.SuspendLayout()
        '
        'zedGraph
        '
        Me.zedGraph.Dock = System.Windows.Forms.DockStyle.Fill
        Me.zedGraph.Location = New System.Drawing.Point(0, 0)
        Me.zedGraph.Name = "Name"
        Me.zedGraph.ScrollGrace = 0.0R
        Me.zedGraph.ScrollMaxX = 0.0R
        Me.zedGraph.ScrollMaxY = 0.0R
        Me.zedGraph.ScrollMaxY2 = 0.0R
        Me.zedGraph.ScrollMinX = 0.0R
        Me.zedGraph.ScrollMinY = 0.0R
        Me.zedGraph.ScrollMinY2 = 0.0R
        Me.zedGraph.Size = New System.Drawing.Size(732, 461)
        Me.zedGraph.TabIndex = 1
        '
        'component
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(732, 461)
        Me.Controls.Add(Me.zedGraph)
        Me.Name = "graph"
        Me.Text = "test" 
        Me.ResumeLayout(False)

    End Sub 
End Class
End Namespace

C#版も

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.ComponentModel;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using ZedGraph;

namespace Grid
{
    public partial class graficaControl : Form
    {
        public graficaControl()
        {
            InitializeComponent();
            DrawGraph();
        }


        private double h(double x)
        {
            if (x == 0) {
                return 1;
            }

            return Math.Sin(x) / x;
        }

        private double f(double x)
        {
            if (x == 0) {
                return 1;
            }

            return Math.Sin(x);
        }

        private double g(double x)
        {
            if (x == 1) {
                return 0;
            }

            return Math.Cos(x);
        }



        private void DrawGraph()
        {
            ZedGraph.MasterPane masterPane = zedGraph.MasterPane;
            GraphPane pane = new GraphPane();
            masterPane.PaneList.Clear();

            pane.XAxis.Title.Text = "X";
            pane.XAxis.Title.FontSpec.IsUnderline = false;
            pane.XAxis.Title.FontSpec.IsBold = true;
            pane.XAxis.Title.FontSpec.FontColor = Color.Blue;
            pane.YAxis.Title.Text = "Y";
            pane.Title.Text = "Right - FF1";
            pane.Title.FontSpec.Fill.IsVisible = true;
            pane.Title.FontSpec.IsBold = false;

            //X AXIS UP
            pane.X2Axis.IsVisible = true;
            pane.XAxis.IsVisible = false;
            pane.YAxis.Scale.IsReverse = true;

            //Grid
            pane.XAxis.MajorGrid.IsVisible = true;
            pane.XAxis.MajorGrid.DashOn = 10;
            pane.XAxis.MajorGrid.DashOff = 5;
            pane.YAxis.MajorGrid.IsVisible = true;
            pane.YAxis.MajorGrid.DashOn = 10;
            pane.YAxis.MajorGrid.DashOff = 5;
            pane.YAxis.MinorGrid.IsVisible = true;
            pane.YAxis.MinorGrid.DashOn = 1;
            pane.YAxis.MinorGrid.DashOff = 2;
            pane.XAxis.MinorGrid.IsVisible = true;
            pane.XAxis.MinorGrid.DashOn = 1;
            pane.XAxis.MinorGrid.DashOff = 2;


            //FOR TEXT
            pane.Legend.Position = LegendPos.Float;
            pane.Legend.Location.CoordinateFrame = CoordType.ChartFraction;
            pane.Legend.Location.AlignH = AlignH.Right;
            pane.Legend.Location.AlignV = AlignV.Bottom;
            pane.Legend.Location.TopLeft = new PointF(1f - 0.02f, 1f - 0.02f);



            iGraph(pane);

            // Add to master 
            masterPane.Add(pane);

            //later add second graph
            using (Graphics g = CreateGraphics()) {
                masterPane.SetLayout(g, PaneLayout.SquareColPreferred);
            }

            zedGraph.AxisChange();
            zedGraph.Invalidate();
        }

        private void iGraph(GraphPane izq)
        {
            izq.CurveList.Clear();
            PointPairList list = new PointPairList();
            double xmin = -50;
            double xmax = 3;
            double x = xmin;
            while (x <= xmax) {
                list.Add(x, h(x));
                x += 0.01;
            }
            LineItem myCurve = izq.AddCurve("sen(x)/x", list, Color.ForestGreen, SymbolType.None);
        }
        private ZedGraph.ZedGraphControl zedGraph;

        private void InitializeComponent()
        {
            this.zedGraph = new ZedGraph.ZedGraphControl();
            this.SuspendLayout();
            //
            //zedGraph
            //
            this.zedGraph.Dock = System.Windows.Forms.DockStyle.Fill;
            this.zedGraph.Location = new System.Drawing.Point(0, 0);
            this.zedGraph.Name = "Name";
            this.zedGraph.ScrollGrace = 0.0;
            this.zedGraph.ScrollMaxX = 0.0;
            this.zedGraph.ScrollMaxY = 0.0;
            this.zedGraph.ScrollMaxY2 = 0.0;
            this.zedGraph.ScrollMinX = 0.0;
            this.zedGraph.ScrollMinY = 0.0;
            this.zedGraph.ScrollMinY2 = 0.0;
            this.zedGraph.Size = new System.Drawing.Size(732, 461);
            this.zedGraph.TabIndex = 1;
            //
            //component
            //
            this.AutoScaleDimensions = new System.Drawing.SizeF(6f, 13f);
            this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
            this.ClientSize = new System.Drawing.Size(732, 461);
            this.Controls.Add(this.zedGraph);
            this.Name = "graph";
            this.Text = "test";
            this.ResumeLayout(false);

        }
    }
}

アップデート

私は次のことを行い、ほぼ解決しました

    'disable old axis scale
    pane.X2Axis.Scale.IsVisible = False
    pane.X2Axis.MajorTic.IsAllTics = False

    ' new labels
    Dim x_vals = {0.125, 0.25, 0.5, 0.75, 1.0, 1.5, 2.0, 3.0, 4.0, 6.0, 8.0, 12.0, 16.0}

    ' create custom labels and custom grid-lines using LineObj
    For Each val As Double In x_vals

        'add line
        Dim line As New LineObj(pane.YAxis.Scale.Min, val, pane.YAxis.Scale.Max, val)
        line.Line.Style = System.Drawing.Drawing2D.DashStyle.Dash
        line.Line.Width = 1.0F
        pane.GraphObjList.Add(line)
        'add label
        Dim text As New TextObj(val.ToString(), pane.YAxis.Scale.Min, val)
        text.Location.AlignH = AlignH.Right
        text.FontSpec.Border.IsVisible = False
        text.FontSpec.Fill.IsVisible = False
        pane.GraphObjList.Add(text)
    Next

取得：

ここに画像の説明を入力

4

1 に答える 1

2

必要なスケールは非線形であるため、対数スケールのようなものに変更する必要があります。AxisType Enumerationをいじってみてください。一見したところ、スケーリングされた対数軸が必要になるか、それが機能しない場合は序数軸を使用するだけだと思います。データポイントを「圧迫」することはありませんが、少なくとも適切にラベル付けされます。他のすべてが失敗した場合は、string-array メソッドを使用してみてください (基本的には、ラベルを付けたいデータ ポイントを配列に入力します)。幸運を！

元：

pane.XAxis.Type = AxisType.Log;

これは、底が 10 の対数軸タイプになるため、希望どおりの数値にはならないことに注意してください。

于 2013-02-26T17:25:21.480 に答える