登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
求85E 2003-12年冬季的截面的比湿平均,
gs如下:
'reinit' 'set gxout contour' 'sdfopen e:\s\2003.2.nc' 'set lon 85' 'set lev 1000 1' i=1 'a=0' while(i<=59&i>=335) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2004.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=60&i>=336) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2005.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=59&i>=335) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2006.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=59&i>=335) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2007.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=59&i>=335) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2008.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=60&i>=336) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2009.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=59&i>=335) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2010.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=59&i>=335) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2011.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=59&i>=335) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'close 1' 'sdfopen e:\s\2012.2.nc' 'set lon 85' 'set lev 1000 1' i=1 while(i<=60&i>=336) 'define a'i'=q' 'a=a+a'i'' i=i+1 endwhile 'define s=a/543' 'draw title winter-85E' 'printim e:\s\winter-85E.png white' 'disable contour' 'close 1'
|