Changeset 557 for trunk

Timestamp:

05/21/12 09:43:05 (12 years ago)

Author:

lelod

Message:

correction erreur cresamsu

File:

• trunk/src/cresamsu.pro (modified) (2 diffs)

trunk/src/cresamsu.pro

@@ -335 +335 @@
 moytbliss=smooth(moytb,5)
 correction=moytbliss-mean(moytbliss[21:30])
-print, correction
+;print, correction
 
 
@@ -391 +391 @@
             endif
          endfor
-         ind=where(fov eq 1)
-         tb1[ind]=tbinit[ind] ;-correction[0]
-            ind=where(fov ge fovmax,bigfov)
-            if bigfov ne 0 then begin
-               tb1[ind]=tbinit[ind] ;-correction[fovmax-1]
-            endif
-            print,'effet de la correction'
-            print,'moyenne, min, max',mean(tb1-tbinit),min(tb1-tbinit),max(tb1-tbinit)
+         ind=where(fov eq 1,smallfov)
+         if smallfov ne 0 then begin
+            tb1[ind]=tbinit[ind] ;-correction[0]
+         endif
+         ind=where(fov ge fovmax,bigfov)
+         if bigfov ne 0 then begin
+            tb1[ind]=tbinit[ind] ;-correction[fovmax-1]
+         endif
+;         print,'effet de la correction'
+;         print,'moyenne, min, max',mean(tb1-tbinit),min(tb1-tbinit),max(tb1-tbinit)
 
          for i=0,nn-1 do begin