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

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

复制代码

tiantianyixin

grads标记坐标轴刻度 拿来学习了

carpenter3

牛人 赞一个

mofangbao

dididada 发表于 2013-8-9 15:03

                               
登录/注册后可看大图

GRADS很强大，以前学的太浅了，要向各位牛人学习！
前阵问这个高级坐标发现了一个小问题，前面也提问了，可 ...

希望更多人能多动手  老是等别人改完自己就没长进了~ 自己试着改改才能进步的

carpenter3

只想在最后一个坐标轴刻度上写上E或者N，具体怎么修改？

zhajinlin

楼主真是厉害，以后图形就可以画的好看了

me_like_wy

请问axis.gs在哪里啊？