source: trunk/ToBeReviewed/MATRICE/zeroun.pro @ 31

Last change on this file since 31 was 31, checked in by pinsard, 18 years ago

upgrade of MATRICE according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME:zeroun
6;
7; PURPOSE:renvoie un vecteur ou une matrice constitue de o et de 1 en
8; alternance
9;
10; CATEGORY:function, matrices
11;
12; CALLING SEQUENCE:resultat=zeroun(n1 [,n2])
13;
14; INPUTS:
15;       n1=nombre d'elements dans la premiere dimension
16;       n2=nombre d'elements dans la deuxieme dimension
17;
18; KEYWORD PARAMETERS:
19;
20; OUTPUTS:resultat
21;
22; COMMON BLOCKS:
23;
24; SIDE EFFECTS:
25;
26; RESTRICTIONS:
27;
28; EXAMPLE:
29;
30; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
31;                       1/12/98
32;-
33;------------------------------------------------------------
34;------------------------------------------------------------
35;------------------------------------------------------------
36function zeroun, n1,n2
37   CASE N_PARAMS() OF
38      1:return, findgen(n1) mod 2
39      2:BEGIN
40         if fix(n1/2) EQ n1/2. then BEGIN ;nombre pair de colonnes
41            res = findgen(n1+1,n2) mod 2
42            return, res[0:n1-1, *]
43         ENDIF ELSE return, findgen(n1,n2) mod 2 ;nombre impair de colonnes
44      END
45      else: return,  report('Mauvais nombre de parametre dans l''appel de ZEROUN')
46   endcase           
47end
Note: See TracBrowser for help on using the repository browser.