next up previous contents index
suivant: Traduction Xcas monter: FPDIV précédent: FPDIV   Table des matières   Index

Traduction Algorithmique

fonction fpdiv(N)
//renvoie la liste des diviseurs de n en utilisant factprem
local L1,L2,L3,D,ex,S
factprem(N)->L3
dim(L3)->S
{1}->L1
pour  K de 1 a S-1 pas 2 faire
{}->L2
L3[K]->D
L3[K+1]->ex
pour  J de 1 a ex faire 
concat(L2,L1*(D^J))->L2
}
concat(L1,L2)->L1
}
retourne(L1)
}


Documentation de giac écrite par Renée De Graeve