/* BCS-01.rexx */

say " "
say "--------------------------------------------------"
say "BCS-01.rexx zeigt den Integranden in Gl.69, S.29  "
say "            von Lecture Notes in Phys. Vol.48     "

signal ON BREAK_C
address 'Mathador.Host'
options results

/* 'MathadorToFront' */

'SetWinTitle Debug'

say "Startwert für Eps"
pull epsstart
say "Endwert   für Eps"
pull epsend
say "Inkrement für Eps"
pull epsinc

do epsv = epsstart to epsend by epsinc
   address 'Mathador.Host'
   'Calc I1('epsv')'
   I1 = result
   IRe1 = subword(I1,1,1)
   IIm1 = subword(I1,2,1)
   IIm1 = left(IIm1,length(IIm1)-2)

   'Calc I2('epsv')'
   I2 = result
   IRe2 = subword(I2,1,1)
   IIm2 = subword(I2,2,1)
   IIm2 = left(IIm2,length(IIm2)-2)

   address 'PolyMeas.Host'

   'StoreValue' epsv 1
   'StoreValue' IRe1 2
   'StoreValue' IIm1 3
   'StoreValue' IRe2 4
   'StoreValue' IIm2 5
   'SendData'
   say 'I1('epsv')=' IRe1 IIm1 ', I2('epsv')=' IRe2 IIm2
end epsv

say "Fertig!"
say "--------------------------------------------------"
/**/
exit