Changeset 371 for trunk/SRC/Interpolation/spl_keep_mean.pro

Timestamp:

08/07/08 11:32:02 (16 years ago)

Author:

pinsard

Message:

improvements of headers (alignments of IDL prompt in examples)

File:

• trunk/SRC/Interpolation/spl_keep_mean.pro (modified) (1 diff)

trunk/SRC/Interpolation/spl_keep_mean.pro

@@ -49 +49 @@
 ;    12 monthly values of precipitations into daily values:
 ;
-; IDL> yr1 = 1990
-; IDL> yr2 = 1992
-; IDL> nyr = yr2-yr1+1
-; IDL> n1 = 12*nyr+1
-; IDL> x = julday(1+findgen(n1), replicate(1, n1) $
-; IDL>        , replicate(yr1, n1), fltarr(n1))
-; IDL> n2 = 365*nyr + total(leapyr(yr1+indgen(nyr))) + 1
-; IDL> x2 = julday(replicate(1, n2), 1+findgen(n2) $
-; IDL>            , replicate(yr1, n2), fltarr(n2))
-; IDL> y = abs(randomn(0, n1-1))
-; IDL> y2 = spl_keep_mean(x, y, x2, /ge0)
-
-; IDL> print, min(x, max = ma), ma
-; IDL> print, min(x2, max = ma), ma
-; IDL> print, vairdate([min(x, max = ma), ma])
-; IDL> print, total(y*(x[1:n1-1]-x[0:n1-2]))
-; IDL> print, total(y2*(x2[1:n2-1]-x2[0:n2-2]))
+;   IDL> yr1 = 1990
+;   IDL> yr2 = 1992
+;   IDL> nyr = yr2-yr1+1
+;   IDL> n1 = 12*nyr+1
+;   IDL> x = julday(1+findgen(n1), replicate(1, n1) $
+;   IDL>        , replicate(yr1, n1), fltarr(n1))
+;   IDL> n2 = 365*nyr + total(leapyr(yr1+indgen(nyr))) + 1
+;   IDL> x2 = julday(replicate(1, n2), 1+findgen(n2) $
+;   IDL>            , replicate(yr1, n2), fltarr(n2))
+;   IDL> y = abs(randomn(0, n1-1))
+;   IDL> y2 = spl_keep_mean(x, y, x2, /ge0)
+;
+;   IDL> print, min(x, max = ma), ma
+;   IDL> print, min(x2, max = ma), ma
+;   IDL> print, vairdate([min(x, max = ma), ma])
+;   IDL> print, total(y*(x[1:n1-1]-x[0:n1-2]))
+;   IDL> print, total(y2*(x2[1:n2-1]-x2[0:n2-2]))
 ;
 ; @history