X-Y Scatter chart -> X-Y-Z Scatter chart

[Tee Jay]

Hi,

I'm presently displaying my 3D data in an XY scatter chart but am obviously only getting a 2D "plan" view.

Does anybody know how to produce an XYZ scatter chart so that I can produce an 3D isometric view of my data. I need to display my data in an XY(Z) format and none of the 3D chart options that come with VB6 allow me to do this in a manner that is of any use.

Any help would be most appreciated

Cheers

TJ

[kedaman]

http://forums.vb-world.net/showthrea...threadid=20846

[Illuminator]

I have done this two ways. One of which allows the full rotation in x y and z.

The simple method (no rotation) can be created by simply using a function to translate 3D coordinates to 2D
For example

Screen_X = 0.5 * x + 0.5 * z
Screen_Y = -0.3 * x + 0.3 * z + y

The other method uses simple linear algebra (namely the rotion matrix.

Dim Old_X as Integer
Dim Old_Y as Integer
Dim Old_Z as integer

Dim Theta_X as single, Theta_Y as single, Theta_Z as single

Theta_X = 'x angle here
Theta_Y = 'y angle here
Theta_Z = 'z angle here

'rotate around the x=axis
Old_Y = y 
Old_Z = z 
y = Cos(Theta_X) * Old_Y + Sin(Theta_X) * Old_Z 
z = -Sin(Theta_X) * Old_Y + Cos(Theta_X) * Old_Z 

'rotate around the y=axis
Old_X = x 
Old_Z = z 
x = Cos(Theta_Y) * Old_X + Sin(Theta_Y) * Old_Z 
z = Sin(Theta_Y) * Old_X + Cos(Theta_Y) * Old_Z 

'rotate around the z=axis
Old_X = x - centerX
Old_Y = y - centerY
x = Cos(Theta_Z) * Old_X+ Sin(Theta_Z) * Old_Y 
y = Sin(Theta_Z) * Old_X + Cos(Theta_Z) * Old_Y

note that the rotations are about the origin in this case. When displaying you might need to shift the image to have it positioned nicely in a picture box.