%% syntaxe : array1 array2 Mayer2 --> depose une droite de Mayer definie
%% par le tableau des abscisses array1 et le tableau des ordonnees
%% array2
/Mayer2 {
7 dict begin
/l2 exch def
/l1 exch def
/n l1 length def
/a n 2 idiv array def
/b n 2 idiv array def
/i 0 def
n 2 idiv {
a i l1 i get put
b i l2 i get put
/i i 1 add store
} repeat
a b pointmoyen
/a n 1 add 2 idiv array def
/b n 1 add 2 idiv array def
/j 0 def
n 2 idiv 1 n 1 sub {
/i exch def
a j l1 i get put
b j l2 i get put
/j j 1 add store
} for
a b pointmoyen
end
} def
%% syntaxe : array1 array2 Mayer --> depose une droite de Mayer definie
%% par le tableau des abscisses array1 et le tableau des ordonnees
%% array2. Les points sont prealablement ranges par ordre d'abscisse
%% croissante
/Mayer {
11 dict begin
/l2 exch def
/l1 exch def
/n l1 length def
/m l1 mediane def
/a n 2 idiv array def
/b n 2 idiv array def
/c n 1 add 2 idiv array def
/d n 1 add 2 idiv array def
/i 0 def
/j 0 def
/k 0 def
n {
l1 i get m le
j a length lt and {
a j l1 i get put
b j l2 i get put
/j j 1 add store
} {
c k l1 i get put
d k l2 i get put
/k k 1 add store
} ifelse
/i i 1 add store
} repeat
a b pointmoyen
c d pointmoyen
end
} def
%% %% syntaxe : array1 array2 Mayer --> depose la droite de Mayer definie
%% %% par le tableau des abscisses array1 et le tableau des ordonnees
%% %% array2
%% /Mayer {
%% 7 dict begin
%% /l2 exch def
%% /l1 exch def
%% /n l1 length def
%% /m l1 mediane def
%%
%% /a n 2 idiv array def
%% /b n 2 idiv array def
%% /c n 1 add 2 idiv array def
%% /d n 1 add 2 idiv array def
%%
%% /i 0 def
%% /j 0 def
%% /k 0 def
%% n {
%% l1 i get m lt {
%% a j l1 i get put
%% b j l2 i get put
%% /j j 1 add store
%% } {
%% c k l1 i get put
%% d k l2 i get put
%% /k k 1 add store
%% } ifelse
%% /i i 1 add store
%% } repeat
%% a b pointmoyen
%% c d pointmoyen
%% end
%% } def
%%
%%
%% %% %% syntaxe : array1 array2 Mayer --> depose la droite de Mayer definie
%% %% %% par le tableau des abscisses array1 et le tableau des ordonnees
%% %% %% array2
%% %% /Mayer {
%% %% 7 dict begin
%% %% /l2 exch def
%% %% /l1 exch def
%% %% /n l1 length def
%% %% /a n 2 idiv array def
%% %% /b n 2 idiv array def
%% %% /i 0 def
%% %% n 2 idiv {
%% %% a i l1 i get put
%% %% b i l2 i get put
%% %% /i i 1 add store
%% %% } repeat
%% %% a b pointmoyen
%% %%
%% %% /a n 1 add 2 idiv array def
%% %% /b n 1 add 2 idiv array def
%% %% /j 0 def
%% %% n 2 idiv 1 n 1 sub {
%% %% /i exch def
%% %% a j l1 i get put
%% %% b j l2 i get put
%% %% /j j 1 add store
%% %% } for
%% %% a b pointmoyen
%% %% end
%% %% } def
|