Successione in Maple

[nick_10]

Buongiorno a tutti!! Non so se è la sezione giusta dove postare questo dubbio su questo esercizio.
Ho problemi con questo esercizio/procedura in maple che dice: "considerare la successione che parte da 50100 e ad ogni numero $x$ fa succedere il numero 1-2*(parte decimale di 1/x) + 1/x. Prendere 100000 numeri della successione e guardare quanti sono quelli compresi tra 0 e 1, quanti tra 1 e 2, quanti tra 2 e 3 e quanti tra 3 e 4".

Ho pensato a una cosa del genere per iniziare

 f:=x->1-2*(frac(1/x))+1/x;
 x:=50100;
 k:=0 : while k<100000 do x:=f(x) : k:=k+1: 

Ora prima di chiudere il ciclo con un "end do" vorrei inserire 4 variabili (ad esempio i,j,k,l) che prendano il ruolo di contatore e inserire condizioni del tipo

 piecewise(0<x<1, i:=i+1,....,)

e cosi vià... e poi stampare con un printf le 4 variabili.
potrebbe andare secondo voi?

[nick_10]

Ho provato cosi:

 f:=x->1-2*(1/x-trunc(1/x))+1/x;
   x:=50100;
   k:=0 : a:=0 : b:=0 : c:=0 : d:=0 : while k<100000 do x:=f(x): k:=k+1 : if(x>0 and x<1)   then(a=a+1)   elif (x>1 and x<2) then(b=b+1) elif(x<2 and x>3) then(c=c+1) elif (x>3 and x<4) then (d=d+1) end if : end do: printf("%d %d %d %d", a,b,c,d):

Però purtroppo stampa i valori 0,0,0,0
Non riesco a capire perchè...