从X,Y,Z三个方向显示CT序列

function main()
%MAIN Summary of this function goes here
%   Detailed explanation goes here
% files=dir('*.dcm');
%

clear all
clc
close all

threedarray=NaN; %Records when numbered keys are pressed
curx=1; cury=1; curz=1; %The three dimensional array given by the DICOM files
[P Q R]=size(threedarray);   %The cross sections of the current images
axvert=NaN; axhorz=NaN; sagvert=NaN; saghorz=NaN; corvert=NaN; corhorz=NaN; %For zooming funtionality
xthickness=NaN; ythickness=NaN; zthickness=NaN;
% three axes handles
axial = axes('Position',[0.02 0.1 0.3 0.9],'DataAspectRatio',[1 1 1],'XTick',[],'YTick',[],'Box','on');
sagittal = axes('Position',[0.35 0.1 0.3 0.9],'DataAspectRatio',[1 1 1],'XTick',[],'YTick',[],'Box','on');
coronal = axes('Position',[0.68 0.1 0.3 0.9],'Da