#==================================================#
# Dies ist der Maple source zur                    #
# Skalierung einer Matrix a und rechter Seite b    #
# ACHTUNG: a und b werden ueberschrieben!          #
#                                                  #
# Erwartet wird, dass die Dimmension n gesetzt ist # 
#==================================================#

for i from 1 to n do
  habs:=sum(abs(a[i,jjs]), jjs=1..n):
  for j from 1 to n do
    a[i,j]:=a[i,j]/habs;
  od:
  b[i]:=b[i]/habs:
od: 

a:=evalm(a);
b:=evalm(b);

