next up previous contents index
suivant: La liste des diviseurs monter: Les algorithmes donnant la précédent: Traduction Xcas   Table des matières   Index

Traduction Algorithmique

fonction ndiv2(N)
local D,L1,L2,K

$ \tt 2 -> D$
$ \tt\{1\} -> L1$
$ \tt tant que  (D \leq \sqrt N) faire$
{}->L2
$ \tt0-> K$:
tantque ((N MOD D) =0) faire
$ \tt N/D-> N$
$ \tt K+1 ->K$
$ \tt concat(L2,L1*D \circonflexe K)-> L2$
ftantque
$ \tt concat(L1,L2)-> L1$
si D<4 alors $ \tt 2*D-1 -> D$ sinon
$ \tt D+(4*D \bmod 6) -> D$ fsi
ftantque
$ \tt si N \neq 1 alors$
$ \tt concat(L1,L1*N) ->L1$
fsi
retourne(L1)

Documentation de giac écrite par Renée De Graeve