%%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