[Sources/Macros] Saint Valentin

[steelspirit]

Bonjour à tous,
Si comme moi vous êtes un peu en retard pour la St Valentin, il vous reste ce code pour vous rattraper

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
proc format;
     value x  .5='e' 0='n' -.5='i' -1='M' other=' ';
      value y -1='e' 0='B' other=' ';
run;
 
DATA h;
pi = constant("PI");
  do r =  0 TO pi BY .02;
    x = cos(r)*.5+.5;y1 = sin(r);y0 = 2.5*sin(r/2+pi);output;
      x=-x;output;
      end;
run;
proc sort ;BY x;run;
 
proc sgplot DATA=h;
band x=x upper=y1 lower=y0/fillattrs=(color=CXFF0000);
format x x. y1 y0 y.;
/*xaxis valueattrs=(color=CXFF0000 weight=bold size=30 family="Brush Script MT");
yaxis valueattrs=(color=CXFF0000 weight=bold size=30 family="Brush Script MT");*/
run;

Source de l'article ici

Steel

[datametric]

Si comme moi vous êtes un peu en retard pour la St Valentin

tu vis dangeureusement

[fafabzh6]

Superbe contribution

[s_a_m]

+1