%%HP: T(1)A(D)F(,);
DIR
  k 4
  s 0
  t 27,5
  m 6
  h ,078125
  t0 27,5
  h0 2,5
  n0 20
  tm 50
  o 3
  v
[[ -17,9836671929 7,21651433773 7,21609968796 7,21601097473 7,21525203156 7,22405991353 7,61687432293 7,61503778297 1,40885421448 ]
 [ -9,98086335954 -,139861018895 -,140121346919 -,140192404439 -,140036185835 -,135944779202 -,153606228589 -,152415831152 1,30900589777 ]
 [ -4,12464324955 3,43167272305E-2 3,41069908936E-2 3,40010690033E-2 3,40250605562E-2 3,30684717011E-2 -2,97360062223E-2 -2,97915412821E-2 ,559359635225 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]]
  q0
[ 7,61692825649 -,153611615801 -,029736196214 0 0 0 0 0 0 ]
  q
[ 7,61692825649 -,153611615801 -,029736196214 ,016269719003 0 0 0 0 0 ]
  b
[ ,10458 0 0 0 0 0 0 0 0 ]
  a
[ ,137913333333 ,333333333333 1,03333333333 1 0 0 0 0 0 ]
  WERTE
[ ,393471380283 ,632123033465 ,776872091267 ,864666537487 ,9179163818 ,950213936347 ,969803327527 ,981682303831 ,988888246114 ,993259464881 ]
  HVT
     3 FIX RAD
INIT 1 'n0' NUM
      FOR n 'h0'
NUM 'h' STO 1 'm'
STO SCH 'n*h0' NUM
't0' STO 0 'o-1'
NUM
        FOR i 'q0'
'i+1' NUM 'v' 'i+1
' NUM 2 2 LIST
GET PUT
        NEXT 0 'h'
STO 0 'o-1' NUM
        FOR i 'h'
NUM 'q0' 'i+1'
NUM GET 'b' 'i+1'
NUM GET 'a' 'i+1'
NUM GET 'b' 'o+1'
NUM GET * - * +
'h' STO
        NEXT 'h'
NUM 'b' 'o+1' NUM
GET + 'h' STO
"t = " 't0' NUM
STR + " " + "h = "
'h' NUM STR + + 1
DISP 10000 ,01 BEEP
'h' NUM
      NEXT 'n0'
NUM ARRY 'WERTE'
STO 3 WAIT { Vx k s
t m h t0 h0 n0 tm o
v q0 q b a } PURGE
STD DEG
    
  INIT
    
[ 0 0 0 0 0 0 0 0 0 ]
'a' STO
[ 0 0 0 0 0 0 0 0 0 ]
'b' STO
[ 0 0 0 0 0 0 0 0 0 ]
'q' STO
[ 0 0 0 0 0 0 0 0 0 ]
'q0' STO
[[ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]
 [ 0 0 0 0 0 0 0 0 0 ]]
'v' STO "Ordnung"
"" INPUT OBJ 'o'
STO "Tmax" "" INPUT
OBJ 'tm' STO
"Wieviele Werte" ""
INPUT OBJ 'n0' STO
0 'o' NUM
      FOR i 'b' 'i+
1' NUM "B(" i STR
+ ")" + "" INPUT
OBJ PUT
      NEXT 0 'o'
NUM
      FOR i 'a' 'i+
1' NUM "A(" i STR
+ ")" + "" INPUT
OBJ PUT
      NEXT NORM1
CLLCD
"t = 0 , h = " 'b'
'o+1' NUM GET STR
+ 1 DISP
    
  NORM1
     "NORM" 3 DISP
0 'o' NUM
      FOR i 'b' 'i+
1' NUM 'b' 'i+1'
NUM GET 'a' 'o+1'
NUM GET / PUT 'a'
'i+1' NUM 'a' 'i+1
' NUM GET 'a' 'o+1
' NUM GET / PUT
      NEXT 'tm/n0'
NUM 'h0' STO 0
't0' STO
    
  SCH
    
      DO 't0' NUM
't' STO 0 'o-1'
NUM
        FOR i 'q' '
i+1' NUM 'q0' 'i+1
' NUM GET PUT
        NEXT 1 '2^(
m-1)' NUM
        FOR j 0 's'
STO 0 'o-1' NUM
          FOR i 's'
NUM 'a' 'i+1' NUM
GET 'q' 'i+1' NUM
GET * + 's' STO
          NEXT 'q'
'o+1' NUM '1-s'
NUM PUT 'o-1' NUM
0
          FOR i 'q'
'i+1' NUM 'q' 'i+1
' NUM GET 'h' NUM
'q' 'i+2' NUM GET
* + PUT -1
          STEP
        NEXT 'm-1'
NUM 1
        FOR j 'm-j'
NUM 'k' STO 0 'o-1
' NUM
          FOR i 'v'
'i+1' NUM 'm+1'
NUM 2 LIST 'q' 'i
+1' NUM GET PUT
'v' 'i+1' NUM 'j+1
' NUM 2 LIST '2^k
' NUM 'v' 'i+1'
NUM 'j+2' NUM 2
LIST GET * 'v' 'i+
1' NUM 'j+1' NUM
2 LIST GET - '2^k-
1' NUM / PUT
          NEXT -1
        STEP 'h/2'
NUM 'h' STO 'm+1'
NUM 'm' STO
      UNTIL 'm>3'
NUM 'v' { 1 2 }
GET 'v' { 1 3 } GET
- ABS ,00001 < AND
      END
    
END
