C'est Juliette & Clémence... On a besoin d'aide ^^
C'est pour la résolution de l'équadiff... Quand on fait ODE ?
Merci !!!
(%i1) clePublique:[13*19,35];
(%o1) [247,35]
(%i2) Recherche_clePrivee(cle):=block([i,n,e,p,q],
n:cle[1],e:cle[2],
p:2,
while not (floor(n/p)=n/p) do p:p+1,
q:n/p,
a:(p-1)*(q-1),
d:2,
while not (floor((d*e-1)/a)=(d*e-1)/a) do d:d+1,
[n,d]
);
(%i3) clePublique:[13*19,35];
clePrivee:Recherche_clePrivee(clePublique);
(%o3) [247,35]
(%o4) [247,179]
(%i5) codage(x,cle):=mod(x^cle[2],cle[1]);
(%i6) codage(122,clePublique);
(%o6) 164
(%i7) codage(164,clePrivee);
(%o7) 122
(%i1) p(k):=binomial(4,k)*(1/6)^k*(5/6)^(4-k);
(%i22) esperance(val,probas):=block([m,k],
m:0,
for k:1 thru length(val) do m:m+val[k]*probas[k],
m);
(%i25) variance(val,probas):=block([v,m,k],
v:0,m:esperance(val,probas),
for k:1 thru length(val) do v:v+(val[k]-m)^2*probas[k],
v);
(%i28) valX:[100,10,-2];
probasX:[p(3)+p(4),p(2),p(0)+p(1)];
valY:[600,-642];
probasY:[1-p(0),p(0)];
(%o28) [100,10,-2]
(%o29) [7/432,25/216,125/144]
(%o30) [600,-642]
(%o31) [671/1296,625/1296]
(%i32) esperance(valX,probasX);
esperance(valY,probasY);
(%o32) 25/24
(%o33) 25/24
(%i34) variance(valX,probasX);
variance(valY,probasY);
(%o34) 101375/576
(%o35) 221849375/576
[désolée
] bah je réitère ma catastrophe en posant cette belle question! Mieux vaut tard que jamais
)Retourner vers Utilisation des logiciels
Utilisateurs parcourant actuellement ce forum : Aucun utilisateur inscrit et 1 invité