Документ взят из кэша поисковой машины. Адрес оригинального документа : http://star.arm.ac.uk/~madj/outgoing/Zhenghua/aligned_crispex_map.pro Дата изменения: Sun Jan 25 16:35:57 2015 Дата индексирования: Sun Apr 10 09:11:36 2016 Кодировка: Поисковые слова: http astrokuban.info astrokuban

PRO aligned_crispex_map
file = findfile('idlsave/crispex_ha_?????.sav')
nf = n_elements(file)
dir = 'crispex_aligned2iris'
;restore,'aia_1600_07_17.sav',/ve
file_mkdir,dir
dx = 0.058
dy = 0.0586

total_tilt = 59.1
restore,'spectfile.6563.idlsave',/ve
wvl = SPECT_POS
restore,'LOW_CADENCE_times.sav'
print,dx,dy,total_tilt
;for i=0,nf-1 do begin
i=76
restore,file[i]
sz = size(spdata) & nw = sz[3]
for j=0,nw-1 do begin
tmp = fltarr(1424,1424)
tmp[214:214+sz[1]-1,221:221+sz[2]-1]=spdata[*,*,j]
tmp = rot(tmp,TOTAL_TILT)
yc=-222.
xc=403.9
tmap = make_map(tmp,dx=dx,dy=dy,xc=xc,yc=yc,time='2014-06-10 '+time[i])
if j EQ 0 then begin
spmap = replicate(tmap,nw)
endif else spmap[j] = tmap
endfor
save,spmap,wvl,file=dir+'/'+string(i,format='(I5.5)')+'.sav'
print,i
;endfor
END