; IDL Version 8.0, Microsoft Windows (Win32 x86 m32)
; Journal File for nemef1am@HLX01
; Working directory: c:\temp
; Date: Wed Oct 16 17:25:35 2013
 
a = indgen(2,3,4)
help,transpose(a)
help,transpose(a,[1,2,0])
help,a
a = float([[1,2,3],[5,4,7],[9,10,20]])
help,a
print,a
;      1.00000      2.00000      3.00000
;      5.00000      4.00000      7.00000
;      9.00000      10.0000      20.0000
print,determ(a)
;     -22.0000
print,invert(a)
;    -0.454545     0.454545   -0.0909091
;      1.68182     0.318182    -0.363636
;    -0.636364    -0.363636     0.272727
x = [[0,1,2],[3,4,5]]
y = [[0,1],[2,3],[4,5]]
print,x
;       0       1       2
;       3       4       5
print,y
;       0       1
;       2       3
;       4       5
print,x # y
;           3           4           5
;           9          14          19
;          15          24          33
print,x ## y
;          10          13
;          28          40
print,invert(a) ## a
;      1.00000-2.98023e-008-5.96046e-008
; 1.49012e-007      1.00000 5.96046e-007
; 2.98023e-008-1.78814e-007      1.00000
print,5 eq 7
;   0
print,5 eq 5
;   1
print,5 ne 5
;   0
print,5 gt 3
;   1
print,5 ge 5
;   1
print,3 lt 5
;   1
print,3 le 5
;   1
print,(3 lt 5) && (3 lt 6)
;   1
print,(3 lt 5) && (3 lt 3)
;   0
print,(3 lt 5) || (3 lt 3)
;   1
print,~(3 lt 5)
;   0
print,(3 lt 5) and (3 lt 3)
;   0
print,(3 lt 5) or (3 lt 3)
;   1
print,3 or 10
;      11
print,3 < 10
;       3
print,3 > 10
;      10
a = indgen(10)
print,a
;       0       1       2       3       4       5       6       7       8       9
b = a
b(0:4) = 7
print,b
;       7       7       7       7       7       5       6       7       8       9
print,a<b
;       0       1       2       3       4       5       6       7       8       9
print,a>b
;       7       7       7       7       7       5       6       7       8       9
help,a>b
print,a
;       0       1       2       3       4       5       6       7       8       9
ind = where(a gt 4)
print,a
;       0       1       2       3       4       5       6       7       8       9
print,ind
;           5           6           7           8           9
a += 20
print,a
;      20      21      22      23      24      25      26      27      28      29
ind = where(a gt 24)
print,ind
;           5           6           7           8           9
print,a[ind]
;      25      26      27      28      29
print,a[where(a gt 24)]
;      25      26      27      28      29
ind = where(a gt 30)
print,ind
;          -1
print,a[where(a gt 30)]
;      29
print,a[-1]
;      29
ind = where(a gt 25,nind)
print,ind
;           6           7           8           9
print,nind
;           4
print,n_elements(ind)
;           4
ind = where(a gt 30,nind)
print,ind
;          -1
print,n_elements(ind)
;           1
print,nind
;           0
a = indgen(5,5)
print,a
;       0       1       2       3       4
;       5       6       7       8       9
;      10      11      12      13      14
;      15      16      17      18      19
;      20      21      22      23      24
ind = where(a gt 20)
print,ind
;          21          22          23          24
a = findgen(100)
print,median(a)
;      50.0000
a = a[sort(a)]
print,a[n_elements(a)*0.8]
;      80.0000
help,a
x = 50.1
vzdalenosti = abs(x-a)
print,min(vzdalenosti,ind)
;    0.0999985
print,a(ind)
;      50.0000
a = indgen(100)
help,a
help,reform(a,10,10)
a = indgen(5)
print,a
;       0       1       2       3       4
a = indgen(10)
print,a
;       0       1       2       3       4       5       6       7       8       9
print,rebin(a,20)
;       0       0       1       1       2       2       3       3       4       4       5       5       6       6       7
;       7       8       8       9       9
print,rebin(a,40)
;       0       0       0       0       1       1       1       1       2       2       2       2       3       3       3
;       3       4       4       4       4       5       5       5       5       6       6       6       6       7       7
;       7       7       8       8       8       8       9       9       9       9
print,rebin(a,5)
;       0       2       4       6       8
a = findgen(10)
print,rebin(a,20)
;     0.000000     0.500000      1.00000      1.50000      2.00000      2.50000      3.00000      3.50000      4.00000
;      4.50000      5.00000      5.50000      6.00000      6.50000      7.00000      7.50000      8.00000      8.50000
;      9.00000      9.00000
print,a
;     0.000000      1.00000      2.00000      3.00000      4.00000      5.00000      6.00000      7.00000      8.00000
;      9.00000
print,rebin(a,5)
;     0.500000      2.50000      4.50000      6.50000      8.50000
print,rebin(a,5,/sample)
;     0.000000      2.00000      4.00000      6.00000      8.00000
loadct,39
a = dist(100)
help,a
tv,a
device,decomposed=0
tv,a
tv,rebin(a,500,500)
a = indgen(4)
a = findgen(4)
print,a
;     0.000000      1.00000      2.00000      3.00000
print,congrid(a,10)
;     0.000000     0.000000      1.00000      1.00000      2.00000      2.00000      2.00000      3.00000      3.00000
;      3.00000
print,congrid(a,10,/interp)
;     0.000000     0.400000     0.800000      1.20000      1.60000      2.00000      2.40000      2.80000      3.00000
;      3.00000
tv,rebin(a,500,500)
a = dist(100)
tv,rebin(a,500,10)
a = findgen(4)
print,congrid(a,10)
;     0.000000     0.000000      1.00000      1.00000      2.00000      2.00000      2.00000      3.00000      3.00000
;      3.00000
print,congrid(a,10,/minus_one)
;     0.000000     0.000000      1.00000      1.00000      1.00000      2.00000      2.00000      2.00000      3.00000
;      3.00000
print,(5.-1.)/0.2
;      20.0000
print,1. + findgen(21)*0.2
;      1.00000      1.20000      1.40000      1.60000      1.80000      2.00000      2.20000      2.40000      2.60000
;      2.80000      3.00000      3.20000      3.40000      3.60000      3.80000      4.00000      4.20000      4.40000
;      4.60000      4.80000      5.00000
;      5.00000      5.00000      5.00000
print,congrid([1.,5.],21,/interp)
;      1.00000      1.38095      1.76190      2.14286      2.52381      2.90476      3.28571      3.66667      4.04762
;      4.42857      4.80952      5.00000      5.00000      5.00000      5.00000      5.00000      5.00000      5.00000
;      5.00000      5.00000      5.00000
print,congrid([1.,5.],21,/interp,/minus_one)
;      1.00000      1.20000      1.40000      1.60000      1.80000      2.00000      2.20000      2.40000      2.60000
;      2.80000      3.00000      3.20000      3.40000      3.60000      3.80000      4.00000      4.20000      4.40000
;      4.60000      4.80000      5.00000
print,congrid([1.,5.],11,/interp,/minus_one)
;      1.00000      1.40000      1.80000      2.20000      2.60000      3.00000      3.40000      3.80000      4.20000
;      4.60000      5.00000
a = findgen(10)
print,a
;     0.000000      1.00000      2.00000      3.00000      4.00000      5.00000      6.00000      7.00000      8.00000
;      9.00000
print,interpolate(a,2.7)
;      2.70000
a = findgen(10) + 10
print,a
;      10.0000      11.0000      12.0000      13.0000      14.0000      15.0000      16.0000      17.0000      18.0000
;      19.0000
print,interpolate(a,2.7)
;      12.7000
print,interpolate(a,[2.7,3.6,4.5])
;      12.7000      13.6000      14.5000
print,interpolate([1.,5.],findgen(21)/20)
;      1.00000      1.20000      1.40000      1.60000      1.80000      2.00000      2.20000      2.40000      2.60000
;      2.80000      3.00000      3.20000      3.40000      3.60000      3.80000      4.00000      4.20000      4.40000
;      4.60000      4.80000      5.00000