TP5 (suite)

Admin Nombre de messages : 418 Date d'inscription : 27/09/2005

13. Les boucles

Code:: Options formdlim='*' ps=100;
DATA tab;
DO x=0.01 TO 1 BY 0.01;
y=log(x);
OUTPUT tab;
END;
RUN;
PROC PRINT;
RUN;

ICI, il y a un PS=100 pour un bel affichage

Admin Nombre de messages : 418 Date d'inscription : 27/09/2005

Code:: DATA tab;
DO x=1 TO 20;
y=RAND('binomial',0.4,40);
OUTPUT tab;
END;
RUN;
PROC PRINT;
RUN;

Admin Nombre de messages : 418 Date d'inscription : 27/09/2005

14. Les cumuls : l'instruction RETAIN

Code:: DATA fra1;
DO an=1989 TO 2000 BY 1;
OUTPUT fra1;
END;
RUN;
PROC PRINT;
RUN;

DATA fra2;
INPUT prixc @@;
CARDS;
3.4 2.8 3.2 2.4 2.2 2.1 1.6 1.8 1.1 0.4 0.5 1.1
;
RUN;
PROC PRINT;
RUN;

DATA fra;
MERGE fra1 fra2;
RUN;
PROC PRINT;
RUN;

DATA tab;
set fra;
m=1+prixc/100;
RUN;

DATA tab2;
SET tab;
RETAIN cumul;
/* garde en memoire la derniere valeur calculee = */
/* celle de la ligne precedente */
IF _n_=1
THEN cumul=m;
ELSE cumul=cumul*m;
RUN;
PROC PRINT;
id an;
RUN;

Admin Nombre de messages : 418 Date d'inscription : 27/09/2005

Code:: DATA fra1;
DO an=1989 TO 2000 BY 1;
OUTPUT fra1;
END;
RUN;
PROC PRINT;
RUN;

DATA fra2;
INPUT prixc @@;
CARDS;
3.4 2.8 3.2 2.4 2.2 2.1 1.6 1.8 1.1 0.4 0.5 1.1
;
RUN;
PROC PRINT;
RUN;

DATA fra;
MERGE fra1 fra2;
RUN;
PROC PRINT;
RUN;

DATA tab;
set fra;
m=1+prixc/100;
RUN;

DATA tab3;
SET tab2;
cumul_m=cumul**(1/_n_);
taux_m =(cumul_m-1)*100;
RUN;
PROC PRINT;
id an;
RUN;

Code:: reponse1 121
17:36 Thursday, November 24, 2005

Obs an

1 1989
2 1990
3 1991
4 1992
5 1993
6 1994
7 1995
8 1996
9 1997
10 1998
11 1999
12 2000

************************************************************************

reponse1 122
17:36 Thursday, November 24, 2005

Obs prixc

1 3.4
2 2.8
3 3.2
4 2.4
5 2.2
6 2.1
7 1.6
8 1.8
9 1.1
10 0.4
11 0.5
12 1.1

************************************************************************

reponse1 123
17:36 Thursday, November 24, 2005

Obs an prixc

1 1989 3.4
2 1990 2.8
3 1991 3.2
4 1992 2.4
5 1993 2.2
6 1994 2.1
7 1995 1.6
8 1996 1.8
9 1997 1.1
10 1998 0.4
11 1999 0.5
12 2000 1.1

************************************************************************

reponse1 124
17:36 Thursday, November 24, 2005

an prixc m cumul

1989 3.4 1.034 1.03400
1990 2.8 1.028 1.06295
1991 3.2 1.032 1.09697
1992 2.4 1.024 1.12329
1993 2.2 1.022 1.14801
1994 2.1 1.021 1.17211
1995 1.6 1.016 1.19087
1996 1.8 1.018 1.21230
1997 1.1 1.011 1.22564
1998 0.4 1.004 1.23054
1999 0.5 1.005 1.23669
2000 1.1 1.011 1.25030

1990 1.03400*1.028=1.06295
1991 1.06295*1.032=1.09697
1992 1.09697*1.024=1.12329
1993 1.12329*1.022=1.14801
1994 1.14801*1.021=1.17211
1995 1.17211*1.016=1.19087
1996 1.19087*1.018=1.21230
1997 1.21230*1.011=1.22564
1998 1.22564*1.004=1.23054

************************************************************************

reponse2 125
17:36 Thursday, November 24, 2005

Obs an

1 1989
2 1990
3 1991
4 1992
5 1993
6 1994
7 1995
8 1996
9 1997
10 1998
11 1999
12 2000

************************************************************************

reponse2 126
17:36 Thursday, November 24, 2005

Obs prixc

1 3.4
2 2.8
3 3.2
4 2.4
5 2.2
6 2.1
7 1.6
8 1.8
9 1.1
10 0.4
11 0.5
12 1.1

************************************************************************

reponse2 127
17:36 Thursday, November 24, 2005

Obs an prixc

1 1989 3.4
2 1990 2.8
3 1991 3.2
4 1992 2.4
5 1993 2.2
6 1994 2.1
7 1995 1.6
8 1996 1.8
9 1997 1.1
10 1998 0.4
11 1999 0.5
12 2000 1.1

************************************************************************

reponse2 128
17:36 Thursday, November 24, 2005

an prixc m cumul cumul_m taux_m

1989 3.4 1.034 1.03400 1.03400 3.40000
1990 2.8 1.028 1.06295 1.03100 3.09956
1991 3.2 1.032 1.09697 1.03133 3.13303
1992 2.4 1.024 1.12329 1.02949 2.94928
1993 2.2 1.022 1.14801 1.02799 2.79899
1994 2.1 1.021 1.17211 1.02682 2.68216
1995 1.6 1.016 1.19087 1.02527 2.52686
1996 1.8 1.018 1.21230 1.02436 2.43572
1997 1.1 1.011 1.22564 1.02286 2.28644
1998 0.4 1.004 1.23054 1.02096 2.09621
1999 0.5 1.005 1.23669 1.01950 1.95006
2000 1.1 1.011 1.25030 1.01879 1.87895

» TP4 (suite)