##hier soll ein algorithmus zum berechnen des isos des chinesischen restsatzes
##ueber Z rein...


##diese methode koennt ihr verwenden, um die s_i^j zu berechnen. sie macht 
##eigentlich nichts anderes, als den EEA verwenden.
##input: nj, ni ganze teilerfremde zahlen
##output: liste [s_j^i , s_i^j] mit s_j^i*nj + s_i^j*ni = 1

get_s := function(nj,ni)
 temp := XGCD(nj,ni);
 sji := temp.ext1;
 sij := temp.ext2;
 return [sji,sij];
end;


##hier soll der algo hin
##input: [n1,n2,...,nr] liste von paarweise teilerfremden ganzen zahlen
## [x_1,x_2,..,xr] liste von ganzen zahlen von mir aus mit 0 \leq xi < ni
##output: x mit x \equiv xi mod ni





##hier stehen ein paar beispielanwendungen von befehlen, die moeglicherweise
##nuetzlich sind. an sonsten stehen weitere infos auf der homepage

## L := [4,6,7];   erzeugt sone liste
## L[4] := 23;     bugsiert die 23 an die 4te stelle der liste L
## Length(L); gibt die anzahl der elemente in der liste zurueck
## for i in [1..Length(L)] do     iteriert ueber 1,2,3,4
##     Print(L[i]);               gibt i-ten eintrag aus
## od;                            beendet for
## x := 7 mod 3;                  weist x den wert 1 zu
## L2 := Add(L,[]);  fuegt am ende der liste L eine leere liste als element ein
## Read("crt.g"); liest die datei crt.g bei kash ein, sofern diese in dem 
##verzeichnis, in dem kash gestartet wurde, liegt.

##so ich hoffe, dass ist alles was man benoetigt. viel spass.