cptmp('temp')
$index = 1
clradd
$scale = 1.0 
$int = 0.0 
repeat
   if($#>0) then 
      exp(-($index-1)*$1):$scale[$index]
   else 
      $scale[$index] = 1.0
   endif
   $int = $int + $scale[$index]

   $index = $index + 1
until ($index > nf)

$index=1
repeat
   cf = $index
   write('alpha','index = %f, scale = %f',$index,$scale[$index]/$int)
   add($scale[$index]/$int)
   $index = $index + 1
until ($index > nf)
mt(5)
jexp:$curexpnum
mf(5,$curexpnum)
