【正文】 ysiz = subwrd(rec2,6) （ xsiz,ysiz）是圖形左上角的坐標(biāo)（英寸）。 result 代表 query gxinfo 命令產(chǎn)生的一個(gè)多行輸出結(jié)果。 39。 query/q 參數(shù) 命令是一個(gè)非常重要的命令，用它可以獲得許多圖原信息。 ? 雜項(xiàng) 輸出 line=‖Peter Pan, the flying one‖ 。 subline(string, nl) 從 string 字串中取第 nl（數(shù)字）行一整行。 語句 。 ? 控制語句 if( express) 語句 else endif if(express) 。 方式 2—— 函數(shù)過程體與 函數(shù)過程的調(diào)用不在同一文件中 定義函數(shù)過程 函數(shù)過程文件清單 50 function name(variable) 緊接函數(shù)過程體 ； （ 函數(shù)過程體結(jié)束標(biāo)志） 函數(shù)調(diào)用過程 函數(shù)調(diào)用過程文件清單： 語句 … ?函數(shù)過程文件名 ‘參數(shù) 1? ?參數(shù) 2? ? … 語句 注意單引號(hào)和強(qiáng)制加入空格 ? 運(yùn)算符和表達(dá)式 數(shù)學(xué)運(yùn)算 ： + ， ， * ， / 邏輯 運(yùn)算 ： =,!=,=,=, |, amp。 以下變量名用戶不要定義，為系統(tǒng)保留字。 endwhile 以下畫線開始的變量為 全局變量 。 while( 表達(dá)式 ) 變量名 變量間需要用空格分開時(shí) （如 GrADS 命令的參數(shù) 間 ） 文本中輸入的空格是無效的，必需用 ‘ ‘ —單 /雙引號(hào) 1 個(gè)或多個(gè)空格單 /雙引號(hào)的方式來 強(qiáng)制加入空格 。 一行寫一條語句。 GrADS 描述語言 GrADS 描述語言 不用括起來 。如何精確控制圖片大小是個(gè)難題。 49 改進(jìn)的 方法是在每個(gè)模板中對(duì)相應(yīng)項(xiàng)顯式設(shè)置其參數(shù)，而不是用其缺省值。 執(zhí)行模板 ： dosgrads –cl ―md14 sp21 sp22 sp23 sp24 sp16‖ 或在進(jìn)入 grads 后執(zhí)行 ： gamd14 sp12 sp22 sp23 sp24 sp16 sp21 sp22 sp23 sp24 sp16 即根據(jù)例 2124， 16 編寫的模板。 out_file return 。 return endif *say 39。 39。 endif 39。 out_file else 39。 ) 39。) out_file = subwrd(arg,2) if( out_file !=39。 endif return endif if (wrd = 39。 * 39。 else 39。 out_file 39。 ) 39。) out_file = subwrd(arg,2) if( out_file !=39。 return endif say enter the printim or print for print out to a file..... say OR JUST PRESS ENTER KEY FOR NOTHING...... pull arg wrd = subwrd(arg,1) if (wrd = 39。 39。 endif 39。 out_file else 39。 ) 39。 ) if( out_file !=39。 endif return endif if( pt = 39。 * 39。 else 39。 out_file 39。 ) 39。 ) 47 if( out_file !=39。 ysiz if( pt =39。xsiz 39。 ysiz 39。39。 39。 y1 y1 = y1 + ysiz/i k = k + 1 endwhile endif endif endif 39。 xsiz39。 y139。 ysiz k = 1 y1 = ysiz/i while( k i ) 39。xsiz/239。xsiz/239。 39。 endif * say y1 = y2 y2 =y2 + ysiz/i j = j 2 k = k + 1 endwhile if ( 0 ) * draw a box on each virtul page 39。run 39。y2 if( ) 。y1 39。xsiz39。 x239。y2 * say 39。y139。xsiz39。 x239。 39。y2 l = j1 39。y139。x239。 x139。y2 * say 39。y139。x239。 x139。 y1 y1 = y1 + ysiz/num i = i +1 endwhile endif else i = num/2 x1 = 0 x2 = xsiz/2 y1 = 0 y2 = ysiz/i k =0 j = num 1 while( k i ) 39。xsiz39。 y139。 i = 1 y1 = ysiz/num while( i num ) 39。 y1 =y2 y2 =y2 + ysiz/num i = i +1 endwhile if ( 0 ) * draw a box on each virtul page 46 39。y2 j = num 1 i 39。y139。x239。 x139。y2 * say 39。y139。x239。 x139。 ysiz k = k + 1 x1 = x1 + xsiz/i endwhile endif endif endif if( page=portrait ) * say page if( num 4 ) i=0 y1 = 0 y2 = ysiz/num while(i num) x1=0 x2=xsiz 39。 x139。 x139。 ysiz/2 k = 1 x1 = xsiz/i while( k i ) 39。 xsiz39。 ysiz/2 39。 39。 endif * say x1 =x2 x2 =x2 + xsiz/i k = k + 1 endwhile if( 0 ) * draw a box on each virtul page 39。run 39。y1 j = k + i if( ) 。0 39。x239。 x139。y1 * say 39。039。x239。 x139。 39。y2 39。y139。x239。 x139。y2 * say 39。y139。x239。 x139。 ysiz i = i+ 1 x1 = x1 + xsiz/num endwhile endif else i = num/2 x1 = 0 45 x2 = xsiz/i y1 = ysiz/2 y2 = ysiz k =0 while( k i ) 39。 x139。x139。 i = 1 x1 = xsiz/num while( i num ) 39。y2 x1 =x2 x2 =x2 + xsiz/num i = i +1 endwhile if ( 0 ) * draw a box on each virtul page 39。y139。x239。 x139。 say 39。y2 39。y139。x239。 x139。 ysiz = subwrd(rec2,6) *say page width= xsiz and page hiegh= ysiz if ( ysizxsiz ) page=landscape else page=portrait endif *set vpage and plot each single map in each virtual page. if( page=landscape ) * say page if( num 4 ) i=0 x1 = 0 x2 = xsiz/num while(i num) y1=0 y2=ysiz 39。 result 代表 query gxinfo 命令產(chǎn)生的一個(gè)多行輸出結(jié)果。 num = math_nint(i/2)*2 say number of templets i in num virtual pages in two collons/rows. say output option pt= pt out_file= out_file * get page information 39。 i= 39。print39。print39。printim39。printim39。39。 return。say usage1。39。39。 在每次 ”d”命令前運(yùn)行 模板。 模板 14— 設(shè)計(jì)在一頁紙上輸出多幅圖功能的模板 文件清單： Function all_in_one_page (args) * set grads off 39。 mpj=subwrd(args,2) 取 args 的第 2 個(gè)字 ln1=subwrd(args,3) ln2=subwrd(args,4) lt1=subwrd(args,5) lt2=subwrd(args,6) ?set mpdraw on‘ ?set poli off‘ ?set map auto‘ *‘set map 5 5 6‘ *?set mpvals ‘ln1? ?ln2? ?lt1? ?lt2 ?set mproj ‘mpj ?set mpdset mres‘ ?display ‘var display 可簡(jiǎn)寫為 “ d”。 args,代 表了所有參數(shù)。參數(shù)可以從后向前省略 。 ?set lat ‘lat1? ?lat2 并注意留空格的方式 。 lat1=15 。 lon1=140 。 ?set mpdraw on‘ ?set poli off‘ ?set map auto‘ *‘set map 5 5 6‘ *?set mpvals ‘ln1? ?ln2? ?lt1? ?lt2 ?set mproj ‘mpj ?set mpdset mres‘ ?display ‘vars 。 ?。?！ 函數(shù)必須在同一文件中。 zz 代表了一種新數(shù)據(jù) ， 而 var=z/ 只是字符相等。 ?set lat ‘lat1? ?lat2 并注意留空格的方式 。 lat1=15 。 lon1=140 。 draw wxsym 氣象符 （ 141） x y 大小 顏色 粗細(xì) 顏色取負(fù)值時(shí)表示將由系統(tǒng)自 定。 set strsiz 字 水平大小 垂直大小 set line 線的 顏色 線型 粗細(xì) set string 字串的 顏色 位置 粗細(xì) 角度 位置 取以下值 ： tl/tc/tr/l/c/r/bl/bc/br 41 其中， c 代表以起點(diǎn)位置居中； r 從起點(diǎn)向右，等等 。set ccolor rerain 使用反 序的彩 虹色 。但用戶也可通過以上方式自定義。 ?set rbcols 9 14 4 11 5 13 3 10