suivant: Traduction Xcas
monter: Décomposition en facteurs premiers
précédent: Décomposition en facteurs premiers
Table des matières
Index
fonction ddiv(N,D)
//ddiv renvoie [a,[d,j]] (n=a*d^j, pgcd(a,d)=1) si j!=0 sinon [n,[]]
local L,J
0->J
tantque (N mod D)=0) faire
N/D->N
J+1->J
ftantque
si (J=0) alors
{N,{}}->L
sinon
{N,{D,J}}->L
fsi
retourne(L)
ffonction
On cherche la liste des nombres premiers plus petit que
et on met
cette liste dans la variable PREM. Lorsque N>1, on teste si ces nombres
premiers sont des diviseurs de N en utilisant ddiv.
fonction criblefact(N)
//decomposition en facteurs premiers de n
//en utilisant ddiv et crible
local D,PREM,S,LD,LDIV;
PREM:=crible(floor(sqrt(N)));
S:=dim(PREM);
LDIV:={};
1->K
tantque (K<=S et N>1) faire
ddiv(N,PREM[K])->LD
concat(LDIV,ld[2])->LDIV;
LD[1]->N
K+1->K
ftantque
si (N != 1) alors
concat(LDIV,[N,1])->LDIV;
fsi
retourne(LDIV);
}
Documentation de giac écrite par Renée De Graeve