sortingvalues.pro

读入图像

PRO SortingValues
; 确定文档的路径。
file = FILEPATH('abnorm.dat', $
SUBDIRECTORY = ['examples', 'data'])
; 初始化图像大小参量。
imageSize = [64, 64]
; 从文档导入图像
image = READ_BINARY(file, DATA_DIMS = imageSize)
; 初始化显示
DEVICE, DECOMPOSED = 0
LOADCT, 0
; 创建一个窗口并显示图像。
WINDOW, 0, XSIZE = imageSize[0], YSIZE = imageSize[1], $
TITLE = 'Gated Blood Pool'
TV, image
; 排序图像数值并输出这些值的数量。
sortedValues = SORT(image)
HELP, sortedValues
; 创建另一窗口 （考虑到多引导显示）， 并显示经排序值的片段。
WINDOW, 1, TITLE = 'Sorted Images Values'
!P.MULTI = [0, 1, 2, 0, 0]
PLOT, sortedValues, /XSTYLE, PSYM = 3, $
TITLE = 'Indices of Sorted Values'
; 确定经排序的确实图像数值：
sortedImage = image[sortedValues]
; 显示经排序的图像数值。
PLOT, sortedImage, /XSTYLE, PSYM = 3, $
TITLE = 'Sorted Values of the Image'
; Reset multiple displays system variable back to its
; default. 将多显示系统变量重新设置为其缺省状态。
!P.MULTI = 0
; 仅排序独特图像数值并输出这些值的数量。
uniqueValues = UNIQ(image, SORT(image))
HELP, uniqueValues
 ; 创建另一窗口 （考虑到多引导显示）， 并显示经排序的独特值的片段。
WINDOW, 2, TITLE = 'Sorted Unique Images Values'
!P.MULTI = [0, 1, 2, 0, 0]
PLOT, uniqueValues, /XSTYLE, PSYM = 3, $
TITLE = 'Indices of Sorted Unique Values'
; 确定经排序的确实图像数值：
uniqueImage = image[uniqueValues]
; 显示经排序的图像数值。
PLOT, uniqueImage, /XSTYLE, PSYM = 3, $
TITLE = 'Sorted Unique Values of the Image'
; 将多显示系统变量重新设置为其缺省状态。
!P.MULTI = 0
END