source: trunk/MATRICE/zeroun.pro @ 2

Last change on this file since 2 was 2, checked in by opalod, 22 years ago

Initial revision
  • 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.