GrADS: Some useful prerequisite scripts - vec.gs

Save the below script as "vec.gs" in a text editor:

The script:


function vec (args)


variable=subwrd(args,1)


autopl  = 'on'

scl = 0

strlast=''

hdsz=0.15


* examine options are set or not

n=2

while(n<10000)

idx=subwrd(args,n)

opt=subwrd(args,n+1)

if(idx='');break;endif

if(idx='-P')

 cxleft =subwrd(args,n+1)

 cylow  =subwrd(args,n+2)

 autopl ='off'

 n=n+3

endif

if(idx='-SCL')

 size=subwrd(args,n+1)

 magni=subwrd(args,n+2)

 scl=1

 n=n+3

endif

if(idx='-SL')

 strlast=subwrd(args,n+1)

 n=n+2

endif

if(idx='-HDSZ')

 hdsz=subwrd(args,n+1)

 n=n+2

endif

endwhile


*** set default arrow labeling off

'set arrlab on'

if(autopl='off');'set arrlab off';endif


*** set arrow scale

if(scl=1); 'set arrscl 'size ' 'magni;endif


*** draw the vector

'display 'variable


*** draw the vector arrow label

if(autopl='off')

 if(scl=0)

  say '!! CANNOT PLOT Arrow Label: Set allow scale with -SCL option !!'

 else

  'draw line 'cxleft' 'cylow' 'cxleft+size' 'cylow

  'draw line 'cxleft+size' 'cylow' 'cxleft+(1.0-hdsz)*size' 'cylow-0.5*hdsz*size

  'draw line 'cxleft+size' 'cylow' 'cxleft+(1.0-hdsz)*size' 'cylow+0.5*hdsz*size

  'set string 1 tc 5'

  'draw string 'cxleft+0.5*size' 'cylow-0.05' 'magni%' '%strlast

 endif

endif


*** set arrow label on

'set arrlab on'


Comments

Post a Comment

Popular posts from this blog

ഔ ന്റെ കുദരേ അൻക്ക് പിരാന്താണ്!!

Image
ഇ ക്കഴിഞ്ഞ ജൂണിലെ ഒരു നട്ടുച്ച. ഫോൺ റിങ് ചെയ്യുന്നുണ്ട്. ഞാൻ നോക്കി. മുസ്ഥഫയാണ്. ഒരുപാട് കാലത്തിനു ശേഷം വിളിക്കാണ്. ഞാൻ അങ്ങോട്ടും വിളിക്കാറില്ല. ഫോൺ അറ്റൻഡ് ചെയ്തപാടെ അപ്പറത്തീന്ന്: "ജ്ജോവ്ടെ ചെങ്ങായെ". ഒറ്റയടിക്കൊന്നും മിണ്ടാൻ പറ്റിയില്ല. പിന്നെ ഇത്തിരികഴിഞ്ഞു ഞാൻ പറഞ്ഞു: "ഇവ്ടെണ്ടൊടോ,...പിന്നെ എനിക്കന്നോട് ഒരു കാര്യം പറയാനുണ്ടായിരുന്നു മുസ്‌തോ" ഓൻ: "പറി :p". ഞാൻ: "ഞാൻ ഈയിടെയായിട്ട് എന്റെ ഇൻസ്റ്റയിൽ കൂട്ടത്തോടെ ആൾക്കാരെ ബ്ലോക്കെയ്യ്യാണ്‌, അന്നിം ബ്ലോക്കെയ്തക്ക്ണ്". കേട്ടപാടെ ഓൻ : "ഔ ന്റെ കുദരേ അൻക്ക് പിരാന്താണ്!!". അൽപ്പം വേദനിച്ചിട്ടായിരിക്കണം ഓനപ്പൊ ആ പറഞ്ഞത്. കാരണൊണ്ട്. പിജി പഠിക്കണ കാലത്ത് നാട്ടിപ്പോവുമ്പോ ഓനേ ഇണ്ടാവാറൊള്ളൂ അധികവും. ബാക്കിയുള്ളവരെയെല്ലാം അവരവരുടെ ജോലിത്തെരക്കായിട്ട്  കാണാൻ സാധിക്കുന്നത് ചുരുക്കം. അന്നൊക്കെ വെള്ളിയാഴ്ച്ചയാവുമ്പോ ഓൻ പാലക്കാട്ടീന്നും ഞാൻ കൊച്ചീന്നും വണ്ടികേറും, നാട്ടിക്ക്. പിന്നെ ശനിം ഞായറും കോയിക്കോട് ബീച്ചും ബല്യങ്ങാടി പള്ളിയിം പരിസരൊക്കെയായിട്ട് കറങ്ങലും കഥപറയലും. എന്നിട്ട് രാത്രി കാറ്...
Read more

GrADS: Some useful prerequisite scripts - basemap.gs

Save the below script as " basemap.gs " in a text editor: The script: * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * basemap.gs * * This script overlays a land or ocean mask that exactly matches  * the coastal outlines.  *  * Usage:  *   basemap L(and)/O(cean) <fill_color> <outline_color> <L(owres)/M(res)/H(ires)>' * * Example: *   ga-> set mpdset mres *   ga-> display sst *   ga-> basemap L 7 2 M *  * Usage Notes:  * * The default values for the optional arguments are:  *   fill_color 15, outline_color 0, and lowres.  * * The land and ocean masks are composed of hundreds of  * polygons that are specified in accompanying ascii files.  * The ascii files must be downloaded from the GrADS script library: *   ftp://grads.iges.org/grads/scripts/lpoly_lowres.asc *   ftp://grads.iges.org/grads/scripts/lpoly_mres.a...
Read more

ഇൻഡോർ: ഞാൻ താമസിച്ച ആദ്യ ഉത്തരേന്ത്യൻ സിറ്റിയും ഒരു എൻ.സി.സി. നാഷണൽ ക്യാമ്പും

Image
2014 ഒക്ടോബർ, കേരളം 1/29 എൻ.സി.സി - പി.എസ്.എം.ഒ. കോളേജ് യൂണിറ്റിൻറെ അമരത്ത് ഷുക്കൂർ സാർ മാറി റഹ്‌മാൻ സാർ അസ്സോസിയേറ്റ് ഓഫീസർ ആയി ചുമതലയേറ്റു തുടരുന്ന കാലം. നാഷണൽ കേഡറ്റ് കോർപ്‌സിൽ കേറി വറൈറ്റിയായ പരീക്ഷണങ്ങളും അനുഭവ പാഠങ്ങളും പഴറ്റാൻ തുടങ്ങിയിട്ട് രണ്ട് വർഷം തികയാൻ പോകുന്നു. ഇന്നേവരെ മൊത്തം മൂന്നു ക്യാമ്പുകളിൽ പങ്കാളിയാവാൻ സാധിച്ചിട്ടുണ്ട്; മാവൂർ ഗ്രാസിമിലെ ഒരു കംബൈൻഡ് അന്ന്വൽ ട്രെയിനിങ് ക്യാമ്പും അവിടത്തന്നെ വച്ചുണ്ടായിരുന്ന റിപ്പബ്ലിക്ക് ഡേ ഇന്റർബറ്റാലിയൻ പരേഡ് ക്യാമ്പും പിന്നെ കാലിക്കറ്റ് റ്റു കൊച്ചി ഒരു ഓൾ കേരളം സൈക്ലിംഗ് എക്‌സ്‌പഡീഷനും. മൂന്നും കഴിഞ്ഞു കുറച്ച് മാസങ്ങൾ പുതിയ ക്യാമ്പൊന്നുമില്ലാതെ ബോറടിച്ച് വെറുതെയിരിപ്പാണ്. ഓരോ ആഴ്ചാവസാനങ്ങളിലുമുള്ള കോളേജ് പരേഡ് ട്രെയിനിങ് ദിനങ്ങളും അന്നന്നത്തെ കോഴി ബിരിയാണിയും മാത്രമാണ് ഇച്ചിരി സമാധാനം തൂകാറുള്ളത്. അങ്ങനിരിക്കെയാണ് മധ്യപ്രദേശിലെ ഇൻഡോറിൽ വെച്ചുള്ള ഒരു നാഷണൽ ക്യാമ്പിന് എനിക്കവസരമൊരുങ്ങുന്നത്. മുമ്പത്തെ മൂന്നെണ്ണം കൂടെ ഇത് എൻ്റെ നാലാമത്തേ ക്യാമ്പാണ്. കേരളം & ലക്ഷദ്വീപ് ഡിറക്ടറേറ്റിന് കീഴിൽ മലപ്പുറം ജില്ലയുടെ സ്വന്തം ബറ്റാലിയനായ ...
Read more