Software FX Posted September 28, 2000 Report Share Posted September 28, 2000 There are no X-Values in this chart. You are setting the X-Values as labels, so your X-Axis is going from 1 to 14 (number of points). Labels have no value. If you want these X-value to be used as numeric values, you must pass them as numbers not as strings. Here is an example: Dim x(14) As Double, y(14) As Double Dim xAxis, yAxis As Variant x(0) = 0.063 x(1) = 0.09 x(2) = 0.125 x(3) = 0.18 x(4) = 0.25 x(5) = 0.355 x(6) = 0.5 x(7) = 0.71 x(8) = 1# x(9) = 2# x(10) = 2.8 x(11) = 4# x(12) = 6# x(13) = 8# y(0) = 6.91657866948258 y(1) = 11.1404435058078 y(2) = 17.3178458289335 y(3) = 27.9831045406547 y(4) = 40.8130939809926 y(5) = 55.596620908131 y(6) = 69.5881731784583 y(7) = 79.7782470960929 y(8) = 85.6388595564942 y(9) = 93.3474128827878 y(10) = 96.3569165786695 y(11) = 98.3104540654699 y(12) = 100 y(13) = 100 Set xAxis = Chart1.Axis(AXIS_X) Set yAxis = Chart1.Axis(AXIS_Y) Chart1.OpenDataEx COD_VALUES, 1, 14 Chart1.OpenDataEx COD_XVALUES, 1, 14 For j = 0 To 13 Chart1.ValueEx(0, j) = y(j) Chart1.XValueEx(0, j) = x(j) Next j Chart1.CloseData COD_XVALUES Chart1.CloseData COD_VALUES xAxis.LogBase = 10 xAxis.Min = 0.01 xAxis.Step = 0.01 xAxis.Decimals = 2 -- Frank SFX "Per Skjondal" <skjoenda@online.no> wrote in message news:5vLe7uRKAHA.2224@sfxserver.softwarefx.com... > I've tried this before without any change. > > Here is the code I'm using within Access: > > Private Sub FillChart() > Dim x(14) As String, y(14) As Double > Dim xAxis, yAxis As Variant > > x(0) = "0,063" > x(1) = "0,090" > x(2) = "0,125" > x(3) = "0,180" > x(4) = "0,250" > x(5) = "0,355" > x(6) = "0,500" > x(7) = "0,710" > x(8) = "1,0" > x(9) = "2,0" > x(10) = "2,8" > x(11) = "4,0" > x(12) = "6,0" > x(13) = "8,0" > > y(0) = 6.91657866948258 > y(1) = 11.1404435058078 > y(2) = 17.3178458289335 > y(3) = 27.9831045406547 > y(4) = 40.8130939809926 > y(5) = 55.596620908131 > y(6) = 69.5881731784583 > y(7) = 79.7782470960929 > y(8) = 85.6388595564942 > y(9) = 93.3474128827878 > y(10) = 96.3569165786695 > y(11) = 98.3104540654699 > y(12) = 100 > y(13) = 100 > > Set xAxis = Chart1.Axis(AXIS_X) > Set yAxis = Chart1.Axis(AXIS_Y) > > Chart1.OpenDataEx COD_VALUES, 1, 14 > For j = 0 To 13 > Chart1.ValueEx(0, j) = y(j) > xAxis.Label(j) = x(j) > Next j > Chart1.CloseData COD_VALUES > xAxis.LogBase = 10 > xAxis.Min = 0.01 > xAxis.Step = 0.01 > End Sub > > And the final curve is as shown: What is the problem. I want to show the x > axis from 0.01 to 100. > > Per > > > > > > "Per Skjondal" <skjoenda@online.no> skrev i melding > news:NXBxpJFKAHA.1432@sfxserver.softwarefx.com... > > Hi, I have a huge problem. I've been trying for days now to produce a > > logarithmic curve like in the file logCurve.jpg, but I have not succeeded. > > All I'm getting is as shown in myLogCurve.jpg. I want to display the curve > > like a proper logarithmic curve. Can somone please give me a good > > instruction on how to do this, if it is possible? > > > > Regards > > > > Per Skjondal > > > > > > > > > Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.