i want to label my polarplot in polarcoordinates. i tried it with
xyouts but its not working. the plot is a circle with a radiationfield
inside, thats with polar_contour. around of the field is the circle
with plot. the circle should be labelled with tickmarks (45, 90, 135,
180,...360 degree). can anybody help me with that? thanks for
responding.
helena
;Handle TrueColor displays:
;DEVICE, DECOMPOSED=0
;Load color table
;TEK_COLOR
set_plot, 'PS'
close,1
openr,1, 'ABB4-9_6.DAT'
readf,1, n_data
azimuth = fltarr(n_data)
zenith = fltarr(n_data)
wert = fltarr(n_data)
deg2rad = !pi/(-180.0)
rad2deg = 1.0/deg2rad
tripel = fltarr(3)
for i_data = 0, n_data - 1 do begin
readf,1, tripel
zenith(i_data) = (tripel(0)*deg2rad)
azimuth(i_data) = (tripel(1)*deg2rad)-!PI/2
wert(i_data) = tripel(2)
endfor
n_levels = 20
c_labels = fltarr(20)
for i = 0, n_levels - 1, 2 do c_labels(i) = 1
levels = min(wert) + findgen(n_levels)/(n_levels - 1)*(max(wert) -
min(wert))
c_color = findgen(n_levels)/n_levels*255
xyouts ,2,2, 'This is text',alignment=-5.0,/device ;just tried out the
example
POLAR_CONTOUR, $
wert, azimuth, zenith, $
TITLE = 'Diffuse Radiation Field', $
/ISOTROPIC, $
xstyle = 4, ystyle = 4, $ ; Achsen nicht zeigen
LEVELS = levels, C_LABELS = c_labels
;/FILL, c_color=c_color
;XYOUTS, 50, 10, 'This is text', /DEVICE
r_frame=fltarr(361) ; ##### Frame, Tickes, Labels, ...
phi_frame=fltarr(361)
for i = 0,360 do begin
r_frame(i) = !PI/2
phi_frame(i) = i*deg2rad
endfor
plot, /polar, r_frame, phi_frame, xstyle = 4, ystyle = 4, $
/noerase, linestyle = 1, /isotropic
;XYOUTS, 50, 10, 'This is text', /DEVICE
;xpos=fltarr(9)
;ypos=fltarr(9)
;for i = 0,360,45 do begin
; xpos(i/45) = !PI/2 + 0.2
; ypos(i/45) = i*deg2rad
;endfor
;plot, /polar, xpos, ypos, xstyle = 4 ,ystyle = 4, /noerase, $
; linestyle = 1, /isotropic
;oplot, [-!PI/2, !PI/2], [0,0], linestyle = 2
;oplot;Handle TrueColor displays:
device, /close_file
set_plot, 'x'
end
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
