任意两点的剖面

叶の幽灵

需要进行插值
lon1=121.4
lon2=122.7
lat1=30.4
lat2=30.3
*********************************
'define alfa=atan2('lat2'-'lat1','lon2'-'lon1')'

lon=lon1
'collect 1 free'
while (lon <= lon2)

  lat = lat1 + (lat2-lat1)*(lon-lon1) / (lon2-lon1)
'collect 1 gr2stn(tc(t=5),'lon','lat')'
lon=lon+0.02
endwhile

'set ccolor 2'
'set cthick 6'
'd coll2gr(1,-u)'

'collect 编号 free' 可以在同一个剖面上任意增加变量