From: Edward B. P. <phi...@ho...> - 2006-12-14 21:07:09
|
Can someone send me an examples or modification to the code below to show how to place Major and Minor Grids lines on a Log-Log plot. I can get Major, but the minors are not showing up. Also how to get the format of the numbers on the major ticks to be in 0.0E+00 format. One last item the last number on the x-axis labels is being cut-off a little how do I fix this. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim lx As NPlot.Axis = New NPlot.LogAxis Dim ly As NPlot.Axis = New NPlot.LogAxis Dim gxmj As NPlot.Grid = New NPlot.Grid Dim gymj As NPlot.Grid = New NPlot.Grid Dim gxmn As NPlot.Grid = New NPlot.Grid Dim gymn As NPlot.Grid = New NPlot.Grid Dim lp As NPlot.LinePlot = New NPlot.LinePlot Dim pp As NPlot.PointPlot = New NPlot.PointPlot Dim XDAT As ArrayList = New ArrayList Dim YDAT As ArrayList = New ArrayList XDAT.Clear() YDAT.Clear() PlotSurface2D1.Clear() PlotSurface2D1.Title = "2D PLOT" PlotSurface2D1.BackColor = Color.Empty Dim x As Integer For x = 1 To 20 XDAT.Add(x) YDAT.Add(x) Next '***LINE-TYPE-PLOT**** lp.AbscissaData = XDAT lp.DataSource = YDAT PlotSurface2D1.Add(lp) lp.Color = Color.Blue '***POINT-TYPE-PLOT**** pp.AbscissaData = XDAT pp.DataSource = YDAT PlotSurface2D1.Add(pp) ' 'Set Axis Range lx.WorldMax = 2000.0 lx.WorldMin = 20.0 ly.WorldMax = 0.1 ly.WorldMin = 0.000001 'Set Labels to Outside of Tick Marks lx.TickTextNextToAxis = False ly.TickTextNextToAxis = True 'Set Major and Minor Grids Graph gxmj.MajorGridPen = Pens.Black PlotSurface2D1.Add(gxmj) gxmn.MinorGridPen = Pens.Maroon PlotSurface2D1.Add(gxmn) gymj.MajorGridPen = Pens.Black PlotSurface2D1.Add(gymj) gymn.MinorGridPen = Pens.Maroon PlotSurface2D1.Add(gymn) 'Set Labels of Graph PlotSurface2D1.XAxis1.Label = "X-Axis" PlotSurface2D1.YAxis1.Label = "Y-Axis" ' Graph Data PlotSurface2D1.XAxis1 = lx PlotSurface2D1.YAxis1 = ly ' Force Graph area update PlotSurface2D1.Refresh() end sub <mailto:edw...@na...> |