pro image_pick
print,’Please input the lines of the header:’
read,n
print,’Please input the pixels of the image:’
read,x,y
head=IntArr(80*n) ;define the header of a file
data=IntArr(x,y) ;x for x-axis and y for y-axis
abc=dialog_pickfile(file=’E:\HFI_SkyMap_100_2048_R1_nominal.fits’) ;choose a file(这一行报错了)
openr,lun,abc,/get_lun ;open the file
readu,lun,head ;read the header
print,head ;print the header
readu,lun,data ;read data
close,lun ;close the file
free_lun,lun
window,1 ;show the image
tvscl,data
window,2 ;plot the data
plot,data
end
我再吧里找到了一份这样的程序,可是第八行有错误,求大神指点