It seems that the polarseries.XValues and Y values are sorted by the angle and thats why i am not getting the correct values at the point numbers. Please see below and suggest what I should do to get the correct X, Y values
Original Data (format: pointNumber, Angle, Radius) Fed to the series
0, 94.3397294086504, 669.885032955879
1, 92.5803229309372, 671.323047463525
2, 90.244226055005, 673.135195953333
3, 87.6419978143848, 669.487712814105
4, 85.655112286161, 671.616132062456
5, 83.7030693894012, 671.441473729933
6, 82.1567442746308, 670.024164944736
7, 80.0814377656614, 667.419309978234
8, 78.0233807483206, 667.380247752663
9, 76.1190940312841, 667.369090613031
Code generated the following output is:
Code: Select all
Dim mywriter As New StreamWriter("C:\PolarContents.txt")
For mm As Integer = 0 To seriesCnt-1
mywriter.WriteLine(mm & "," & myPolarSeries.XValues(mm) & "," & myPolarSeries.YValues(mm))
Next
mywriter.Close()
Print of PolarSeries (format: pointNumber, Angle, Radius)
0,76.1190940312841,667.369090613031
1,78.0233807483206,667.380247752663
2,80.0814377656614,667.419309978234
3,82.1567442746308,670.024164944736
4,83.7030693894012,671.441473729933
5,85.655112286161,671.616132062456
6,87.6419978143848,669.487712814105
7,90.244226055005,673.135195953333
8,92.5803229309372,671.323047463525
9,94.3397294086504,669.885032955879
Simiar output is produced by the following code as well
Code: Select all
Dim mywriter As New StreamWriter("C:\PolarContents.txt")
For mm As Integer = 0 To seriesCnt-1
mywriter.WriteLine(mm & "," & myPolarSeries.Item(mm).X & "," & myPolarSeries.Item(mm).Y
Next
mywriter.Close()
I uploaded a project that implements the above scenario. Please provide a solution ASAP. My module is delaying the schedule now and under a ton of pressure. The uploaded file name PolarChart-test-17Feb09.zip. It writes the output from the .XValues and .YValues into a file located at Application.StartUpPath folder (Where the application starts).
Thanks,