taper_lin = caget("SARUN:TAPER-LIN") * 1e-6
taper_qua = caget("SARUN:TAPER-QUA") * 1e-6
taper_lin_start = caget("SARUN:TAPER-LIN-START.RVAL")
taper_lin_stop  = caget("SARUN:TAPER-LIN-STOP.RVAL")
taper_qua_start = caget("SARUN:TAPER-QUA-START.RVAL")
taper_qua_stop  = caget("SARUN:TAPER-QUA-STOP.RVAL")

undlist = ("SARUN03","SARUN04","SARUN05","SARUN06","SARUN07","SARUN08","SARUN09",
           "SARUN10","SARUN11","SARUN12","SARUN13","SARUN14","SARUN15")

u = 0
i, j = 0, 0
for und in undlist:
  K_taper = taper_lin * i + taper_qua * j**2
  if taper_lin_start <= u <= taper_lin_stop: i = i + 1
  if taper_qua_start <= u <= taper_qua_stop: j = j + 1
  caputq(und + "-UIND030:K_TAPER_SET", K_taper)
  u = u + 1

set_return("Success")