# g-adische Zahlen

Haftendorn 2011, Hiermit habe ich vor allem die Programmierung geübt.
Dann habe ich es in TI Nspire implementiert.

## Def der Befehle  gadic(z,g)dezgadic(gli,g)

gadic(z,g):=block([x,y,li],
                     x:z, li:[],
                    while x >0 do 
                      (y:mod(x,g),
                      li:append([y],li),
                      x:(x-y)/g
                      ),
                    return(li)
            )$

dezgadic(gli,g):=block([x,y,li],
             x:0, li:gli,
                    while not(li=[]) do 
                      (y:li[1],
                      li:rest(li,1),
                      x:x*g+y
                      ),
                    return(x)
            )$

## Babylon

gadic(2011,60);

dezgadic(%,60);

mod(2011,60);

(2011-%)/60;

2011/60;float(%);

2011/60-33;

## Maya

gadic(2011,5);

dezgadic(%,5);

## Papierfaltungszahl

### Meine Version 

Umstellung der Präzision, daher später bfloat, also bigfloat

Meine Konstruktion wiederholt hinten, davor 0, 
dann hinten an diese 0 nach vorn gespiegelt.

fpprec:32;

dezgadic([1,0,0],2)/2^3;float(%);
dezgadic([1,1,0,0,1,0,0],2)/2^7;float(%);
dezgadic([1,1,0,1,1,0,0,0,1,1,0,0,1,0,0],2)/2^15;bfloat(%);
dezgadic([1,1,0,1,1,0,0,1,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,0,1,1,0,0,1,0,0],2)/2^31;bfloat(%);
dezgadic([1,1,0,1,1,0,0,1,1,1,0,0,1,0,0,1,1,1,0,1,1,0,0,0,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,1,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,0,1,1,0,0,1,0,0],2)/2^63;bfloat(%);

### Version Reimund Albers

Reimund wiederholt vorne, dann 1, dann das Vordere an dieser 1 nach hinten gespiegelt.

dezgadic([1,1,0],2)/2^3;float(%);
dezgadic([1,1,0,1,1,0,0],2)/2^7;float(%);
dezgadic([1,1,0,1,1,0,0,1,1,1,0,0,1,0,0],2)/2^15;bfloat(%);
dezgadic([1,1,0,1,1,0,0,1,1,1,0,0,1,0,0,1,1,1,0,1,1,0,0,0,1,1,0,0,1,0,0],2)/2^31;bfloat(%);

Die 9. Dezimale Ziffer stimmt schon in beiden Versionen überein.