GrADS '神级'坐标轴，以后不要再抱怨GrADS的坐标轴了[清风原创]

姜勇

虽然不是很明白  但还是学习下

Paranoia

看看大神的作品

flyingbird2008

太给力了！

风儿飘飘

已经用上了，不错！感谢分享

love314

还是试一试吧，之前总想怎么改自带的

love314

使用之前不用这样设置'set xlpos -20''set ylpos -20' ，这样只是把坐标轴放到绘图区域以外，经验证'set xlab off'和'set ylab off'直接不画坐标轴，再使用axis
另外，请教一个问题，-type 设置为l/r 左侧和右侧时，经纬度能够用-suffix添加小圆圈，但是，-type 设置为b/t 底部和顶部时，却不能添加，你们是怎么弄的啊？

mofangbao

love314 发表于 2013-8-7 17:54

                               
登录/注册后可看大图

使用之前不用这样设置'set xlpos -20''set ylpos -20' ，这样只是把坐标轴放到绘图区域以外，经验证'set xl ...

你下载旧一点的版本的用吧  或者自己改改 不是什么大问题

ぁ無聲か

神级脚本啊  谢谢啊

chongzika

给力真给力

dididada

GRADS很强大，以前学的太浅了，要向各位牛人学习！
前阵问这个高级坐标发现了一个小问题，前面也提问了，可惜米有人回答，后来自己打开GS文件，认真领会了下里头的意思，小改了一下，解决了经纬度的圈圈问题和EQ问题，现在把更改的地方分享一下

1. function GetLbl(lbl,xtype,ytype,type,suff)
   
2. tmplbl=lbl
   
3. lbl=lbl%suff
   
4. if(_autosuff='off');return lbl;endif
   
5. if(type='b'|type='B'|type='t'|type='T')
   
6.   comptype = xtype
   
7. else
   
8.   comptype = ytype
   
9. endif  
   
10. if(comptype='X')
    
11.   if(tmplbl>180|tmplbl<0)
    
12.     if(tmplbl>180);tmplbl=360-tmplbl;endif
    
13.     tmplbl=math_abs(tmplbl)
    
14. if(tmplbl=0);lbl=tmplbl%suff
    
15. else
    
16.     lbl=tmplbl%suff'`1W'
    
17. endif
    
18. 
    
19. else
    
20.     if(tmplbl!=0&tmplbl!=180)
    
21.       lbl=lbl%'`1E'
    
22.     endif
    
23.   endif
    
24. endif
    
25. if(comptype='Y')
    
26.   if(tmplbl>0)
    
27.     lbl=lbl%'`1N'
    
28.     say lbl
    
29.   else
    
30.     if(tmplbl=0)
    
31.      lbl='`1EQ'
    
32. *    lbl=lbl%'`1EQ'
    
33.     else
    
34.       bl=math_abs(tmplbl)
    
35.       lbl=bl%suff'`1S'
    
36.     endif
    
37.   endif
    
38. endif
    
39. return lbl

复制代码