在遥感计算中一般都会用到天顶角、方位角、高度角。之前都是直接在excel中输入公式，这种方式输入公式比较麻烦，而且容易出错。后来在网上看到吉林大学汪自军博士的计算程序。链接：http://blog.sciencenet.cn/home.php?mod=space&uid=43777&do=blog&id=238552

非常好用，但是我看了一下，汪博士主要用matlab、C++、FORTRAN三种语言编写的，而且输入文件是txt格式。txt文件的操作性我认为不如excel。

说一下主要改进的地方：

1、编程语言改为python

2、输入和输出文件格式均改为excel

3、以为太阳高度角与天顶角互余，这次也加进去了。

欢迎讨论，下面附上主要代码：

table = data.sheets()[0] # 打开第一张表

nrows = table.nrows # 获取表的行数

ncols = table.ncols

station=table.col_values(0)[1:]

year=table.col_values(1)[1:]

month=table.col_values(2)[1:]

day=table.col_values(3)[1:]

hour=table.col_values(4)[1:]

min=table.col_values(5)[1:]

sec=table.col_values(6)[1:]

lon=table.col_values(7)[1:]

lat =table.col_values(8)[1:]

TimeZone =table.col_values(9)[1:]

wb = xlutils.copy.copy(data)

ws = wb.get_sheet(0)

ws.write(0, 11, 'Day of Year')

ws.write(0, 12, 'Local Time') #实际是gtdt

ws.write(0, 13, 'Sun Angle')#(sitar)

ws.write(0, 14, 'Declination Angle')

ws.write(0, 15, 'Equation of Time')

style = xlwt.easyxf('pattern: pattern solid, fore_color yellow;')

ws.write(0, 16, 'ZenithAngle(deg)',style)

ws.write(0, 17, 'HeightAngle(deg)',style)

ws.write(0, 18, 'AzimuthAngle(deg)',style)

for n in range(1,nrows):

m=n-1

#年积日的计算

#儒略日 Julian day(由通用时转换到儒略日)

JD0 = int(365.25*(year[m]-1))+int(30.6001*(1+13))+1+hour[m]/24+1720981.5

if month[m]<=2:

JD2 = int(365.25*(year[m]-1))+int(30.6001*(month[m]+13))+day[m]+hour[m]/24+1720981.5

else:

JD2 = int(365.25*year[m])+int(30.6001*(month[m]+1))+day[m]+hour[m]/24+1720981.5

#年积日 Day of year

DOY = JD2-JD0+1

#N0 sitar=θ

N0 = 79.6764 + 0.2422*(year[m]-1985) - int((year[m]-1985)/4.0)

sitar = 2*math.pi*(DOY-N0)/365.2422

ED1 = 0.3723 + 23.2567*math.sin(sitar) + 0.1149*math.sin(2*sitar) - 0.1712*math.sin(3*sitar)- 0.758*math.cos(sitar) + 0.3656*math.cos(2*sitar) + 0.0201*math.cos(3*sitar)

ED = ED1*math.pi/180 #ED本身有符号

if lon[m] >= 0:

if TimeZone == -13:

dLon = lon[m] - (math.floor((lon[m]*10-75)/150)+1)*15.0

else:

dLon = lon[m] - TimeZone[m]*15.0 #地球上某一点与其所在时区中心的经度差

else:

if TimeZone[m] == -13:

dLon = (math.floor((lon[m]*10-75)/150)+1)*15.0- lon[m]

else:

dLon = TimeZone[m]*15.0- lon[m]

#时差

Et = 0.0028 - 1.9857*math.sin(sitar) + 9.9059*math.sin(2*sitar) - 7.0924*math.cos(sitar)- 0.6882*math.cos(2*sitar)

gtdt1 = hour[m] + min[m]/60.0 + sec[m]/3600.0 + dLon/15 #地方时

gtdt = gtdt1 + Et/60.0

dTimeAngle1 = 15.0*(gtdt-12)

dTimeAngle = dTimeAngle1*math.pi/180

latitudeArc = lat[m]*math.pi/180

# 高度角计算公式

HeightAngleArc = math.asin(math.sin(latitudeArc)*math.sin(ED)+math.cos(latitudeArc)*math.cos(ED)*math.cos(dTimeAngle))

# 方位角计算公式

CosAzimuthAngle = (math.sin(HeightAngleArc)*math.sin(latitudeArc)-math.sin(ED))/math.cos(HeightAngleArc)/math.cos(latitudeArc)

AzimuthAngleArc = math.acos(CosAzimuthAngle)

HeightAngle = HeightAngleArc*180/math.pi

ZenithAngle = 90-HeightAngle

AzimuthAngle1 = AzimuthAngleArc *180/math.pi

if dTimeAngle < 0:

AzimuthAngle = 180 - AzimuthAngle1

else:

AzimuthAngle = 180 + AzimuthAngle1

print('站位：'+station[m]+' 太阳天顶角(deg)：%f 高度角(deg)：%f 方位角(deg)：%f ' % (ZenithAngle,HeightAngle,AzimuthAngle))

因为最近在研究海洋遥感，在采样的时候会有站位信息，所以程序中存在站位的问题(不过这个丝毫不影响计算)。

附上运行结果：

最后，感谢汪自军博士的思路和中国气象科学研究院王炳忠研究员编写的《太阳辐射计算讲座》。

2017年4月27日