Converts polar, cylindrical, or spherical (mathematical or global)coordinates to rectangular coordinates (points).
vec2
vec3
If Polar is zero (or not present), then a FLOAT(3, *) array is returned with (0, *) containing the x-coordinates, (1, *) containing the y-coordinates, and (2, *) containing the z-coordinates.
Degrees
Global
Polar
Sphere
PRO vol_demo1
volx = 17 voly = 17 volz = 59
winx = 500 winy = 700
flow_axial = FLTARR(volx, voly, volz) OPENR, 1, !Data_Dir + 'cfd_axial.dat', /Xdr READU, 1, flow_axial CLOSE, 1 flow_radial = FLTARR(volx, voly, volz) OPENR, 1, !Data_Dir + 'cfd_radial.dat', /Xdr READU, 1, flow_radial CLOSE, 1 flow_tangent = FLTARR(volx, voly, volz) OPENR, 1, !Data_Dir + 'cfd_tangent.dat', /Xdr READU, 1, flow_tangent CLOSE, 1
flow_pressure = FLTARR(volx, voly, volz) OPENR, 1, !Data_Dir + 'cfd_pressure.dat', /Xdr READU, 1, flow_pressure CLOSE, 1
points = CONV_TO_RECT(flow_tangent(*), $ flow_radial(*), flow_axial(*), /Cylin, /Degrees)
flow_x = FLTARR(volx, voly, volz) flow_y = FLTARR(volx, voly, volz) flow_z = FLTARR(volx, voly, volz) flow_x(*) = points(0, *) flow_y(*) = points(1, *) flow_z(*) = points(2, *)
T3D, /Reset T3D, Translate=[-0.5, -0.5, -0.5] T3D, Scale=[0.9, 0.9, 0.9] T3D, Rotate=[0.0, 0.0, -30.0] T3D, Rotate=[-60.0, 0.0, 0.0] T3D, Translate=[0.5, 0.5, 0.5]
WINDOW, 0, XSize=winx, YSize=winy, $ XPos=256, YPos=128, Colors=128, $ Title='3D Velocity Vector Field' LOADCT, 4
VECTOR_FIELD3, flow_x, flow_y, flow_z, 1000, $ Max_Length=2.5, Vec_Color=flow_pressure, $ Min_Color=32, Max_Color=127, $ Axis_Color=100, Mark_Symbol=2, $ Mark_Color=90, Mark_Size=0.5, Thick=2
END
vec_demo2
demonstration program in
wavedir
/demo/arl
wavedir
:[DEMO.ARL]
wavedir
\demo\arl
wavedir
is the main PV-WAVE directory.
For more information, see the PV-WAVE User's Guide.