source: trunk/procs/add_txt_pltt.pro @ 205

Last change on this file since 205 was 205, checked in by pinsard, 14 years ago

homegenize THEN BEGIN ... ENDIF

  • Property svn:keywords set to Id
File size: 1.6 KB
RevLine 
[162]1;+
[2]2;
[173]3; define additional text for <pro>pltt</pro>
[2]4;
[205]5; TODO
6; ====
7;
8; should be a function
9;
[162]10; @version
11; $Id$
12;
13;-
[2]14            ; time/space filter ?
15               IF strpos(cmd.plt, '@f') GT 1 THEN BEGIN
16                  filter = long(strmid(cmd.plt, strpos(cmd.plt, '@f')+3, strlen(cmd.plt)-strpos(cmd.plt, '@f')-3))
17                  fildirec = strmid(cmd.plt, strpos(cmd.plt, '@f')+2, 1)
18                  filtxt = ',filter=filter,fildirec=fildirec'
19                  filleg = '  ['+fildirec+'-filter='+string(filter, format = '(I3)')+']'
[203]20               ENDIF ELSE BEGIN
[2]21                  filtxt = ''
22                  filleg = ''
[203]23               ENDELSE
[2]24            ; anomaly
25               IF strmid(cmd.trend, 0, 1) EQ '4' THEN BEGIN
[205]26                  IF strmid(cmd.trend, 1, strlen(cmd.trend)-1) EQ 12 THEN BEGIN
27                   filleg = filleg+'  [seasonal anomaly n=12]'
28                  ENDIF ELSE BEGIN
[2]29                   filleg = filleg+'  [n='+strmid(cmd.trend, 1, strlen(cmd.trend)-1)+ ' anomaly]'
[205]30                  ENDELSE
[203]31               ENDIF
[2]32            ; integral
33               IF field_int EQ 1 AND (size(fld))[0] EQ 1 THEN BEGIN
34                  filleg = filleg+' - integral'
[203]35               ENDIF
[2]36            ; inverse trend
37               IF strmid(cmd.trend, 0, 1) EQ '3' THEN BEGIN
38                  filleg = filleg+'  [n='+strmid(cmd.trend, 1, strlen(cmd.trend)-1)+ ' mean removed]'
[203]39               ENDIF
[2]40            ; running std dev
[203]41               IF run_stddev GT 0 THEN BEGIN
[2]42                  filleg = filleg+' running Std Dev ['+string(run_stddev, format = '(I3)')+']'
[203]43               ENDIF
Note: See TracBrowser for help on using the repository browser.