Ah, merci pour le rappel !Marge a écrit :Bonsoir,
La Gazette n°6, c'est dans 6 semaines !
J'ai déjà reçu quelques articles, n'hésitez pas à envoyer les autres...
Et si vous manquez de lumière, sachez que 2015 est l'année de la lumière ! si si, ça aide.
archilog9919@gmail.com
Merci pour ton lien Marge !Marge a écrit :C'était là.
Code : Tout sélectionner
210 IF fm<f THEN fm=f //calcul de la fortune maximale
220 m=ms:f=f-m //mise initiale (ms est saisie par l'utilisateur)
230 IF f<0 THEN 260 //sommes-nous ruiné ?
240 t=t+1:r=INT(RAN#*37):IF r MOD 2 THEN f=f+m*2:GOTO210 //Calcul du tirage et situation si on gagne
250 m=m*2:IF m>f or m>p THEN 220 ELSE f=f-m:GOTO240 //si on perd, on double la mise, sauf si on ne peut plus
260 PRINT "n:";i;TIMER/10;"t:";t;"f:";fm:RETURN //petit affichage du résultat (n° de la simulation, le temps écoulé, le nombre de coups et la fortune maxi atteinte).
Code : Tout sélectionner
10 INPUT"Fortune";f1:INPUT"Plafond";p:INPUT"mise";ms:INPUT"tours:";n:TIMER=0:t1=0:t2=0:m2=0:c=0:mf=0:mg=0:g=0
//prise des paramètres et initialisation des variables
20 FOR i=1 TO n:t=0:f=f1:fm=0:GOSUB220:m2=m2+t:c=c+t*t:g=g+fm:IF t>t1 THEN t1=t
// on lance une simulation (il y en a n) et on cumule les résultats (m2 somme des coups, g somme des fortunes max)
21 IF t2=0 THEN t2=t ELSE IF t<t2 THEN t2=t
// t1 c'est le nombre max de coups, t2 le nombre min.
22 IF mf<fm THEN mf=fm //fortune max
23 IF mg=0 THEN mg=fm ELSE IF fm<mg THEN mg=fm //fortune min (c'est le minimum des fortunes max des différentes simul)
25 NEXT i
30 m1=m2/n:PRINT "Cps moy";INT(m1);"EcartT";INT(SQR(c/n-m1*m1)):PRINT"Cps>";t1;"Cps<";t2:
PRINT TIMER/10;"s f>";mf;"f<";mg;"f";INT(g/n)
// affichage des résultats : Coups moyens pour perdre son apport et Ecart Type
// Nombre max de coups et nombre min
// Tps écoulé et Fortune max, min et moyenne.
40 END
(taper 8 chiffres pour un caractère...)Code : Tout sélectionner
main(){
char *rm[14],res[25],i,j,k;int n,dc[13];
rm[0]="M";rm[1]="CM";rm[2]="D";
rm[3]="CD";rm[4]="C";rm[5]="XC";
rm[6]="L";rm[7]="XL";rm[8]="X";
rm[9]="IX";rm[10]="V";rm[11]="IV";rm[12]="I";
dc[0]=1e3;dc[1]=900;dc[2]=500;dc[3]=400;
dc[4]=100;dc[5]=90;dc[6]=50;dc[7]=40;
dc[8]=10;dc[9]=9;dc[10]=5;dc[11]=4;dc[12]=1;
printf ("n:");scanf ("%d",&n);
for(i=0;i<13;i++){
j=(int) n/dc[i];n=n%dc[i];
for(k=0;k<j;k++)strcat(res,rm[i]);}
printf("%s",res);}
)Code : Tout sélectionner
char *sch(m,u,c,d)
char m,u,c,d;
{
char sch[5];char i,j=0;
if(m%5==4)
{
sch[0]=u;
if(m==4)sch[1]=c;
else sch[1]=d;
sch[2]=0;
}
else
{
if(m>4)
{
sch[0]=c;m-=5;j=1;
}
for(i=0;i<m;i++)sch[i+j]=u;
sch[j+m]=0;
}
return(sch);
}
main()
{
int n;char m,i,res[25];
clrscr();printf("n:");
scanf("%d",&n);res[0]=0;
m=(int)n/1e3;n=n%1000;
if(m<10)
{
for(i=0;i<m;i++)
strcat(res,"M");
m=(int)n/100;n=n%100;
strcat(res,sch(m,67,68,77));
m=(int)n/10;n=n%10;
strcat(res,sch(m,88,76,67));
strcat(res,sch(n,73,86,88));
printf("%s",res);
}
}Code : Tout sélectionner
10 INPUT "N:";N
20 M=INT(N/1000):N=N-M*1000:IF M>9 THEN 10
30 W$=RPT$("M",M)
40 M=INT(N/100):N=N-M*100:X$="CDCM":GOSUB 80
50 M=INT(N/10):N=N-N*10:X$="XLXC":GOSUB 80
60 M=INT(N):X$="IVIX":GOSUB 80
70 PRINT W$:PAUSE:END
80 IF M=9 THEN W$=W$&SEG$(X$,3,2):RETURN
90 IF M=4 THEN W$=W$&SEG$(X$,1,2):RETURN
100 IF M>4 THEN W$=W$&SEG$(X$,2,1):M=M-5
110 W$=W$&RPT$(SEG$(X$,1,1),M):RETURN
Je confirme, j'ai fait le test sur une HP39GII en surchargeant le programme graphique statistique à une variable...bernouilli92 a écrit : Mais au final, tu as raison. Les résultats ont l'air d'être équiprobables. J'ai lancé 10000 fois la fonction avec 99 itérations -> le premier nombre autant de chances d'être un 1 ou un 2 ou ... ou un 100.
Code : Tout sélectionner
START()
BEGIN {}►D1;{}►D2;5►H1Type; END;
VIEWS "Tirage",LISTWAIT()
BEGIN
INPUT(N);
MAKELIST(0,X,1,10,1)►D1;MAKELIST(0,X,1,4,1)►D2;
FOR K FROM 1 TO N DO
1►A;1►B;
FOR L FROM 1 TO 1000 DO
IF RANDOM<A/(A+B) THEN A+1►A ELSE B+1►B END;
END;
D2(1)+A►D2(1); D2(2)+(A−1)²►D2(2);
IF A=1 THEN 2►A END; FLOOR((A−2)/100)+1►A;
D1(A)+1►D1(A);
END;
D2(1)/N►D2(3);√(D2(2)/N-D2(3)²)►D2(4);
0►Xmin;10►Xmax;0►Ymin;MAX(D1)►Ymax;
STARTVIEW(1,1);
END;Was ist ein CRIC ? (question du béotien que je suis...)pir2 a écrit : testé le CRIC
Bien vu, c'est vrai qu'il fallait caser les 4 touches du haut de la 41 (39 touches au total) sur la 15 (39 touches aussi, ouf).Marge a écrit :Pourquoi la touche bleue est-elle marquée d'un << a >> ? c'est le mode alpha après pression sur << f >> ?
Mazette, mais c'est la boite aux miracles ce machin !dprtl a écrit : La prochaine version, encore en développement, avec des caractéristiques très tentantes, s'appellera la Pyra :
http://www.dragonbox-pyra.com/
Sur le forum dédié, ils en estiment le prix à moins de 500 €... Objectif ambitieux !
)