Taking a vertical borehole with length of 500 m and diameter of 92 mm in some granite as the research objective,using a method combining conventional drill core logging with modern borehole imaging technology,the detailed joint investigation and statistics of the drill rock were made.At the same time,high-pressure water injecting test was done to obtain the seepage property of the borehole.Base on all these works,a seepage tensor calculation code was written by programming tool Fortran.The each components of seepage tensor,the values of three major components and their orientations can beconveniently computed by use of the written code.