Dim ka1, ka2, ka3, ka4, ka1t, ka2t, ka3t, ka4t As Double
  ka1t = 0 : ka1 = 0.0
  ka2t = 30 : ka2 = 0.0
  ka3t = 90 : ka3 = 0.03
  ka4t = 360 : ka4 = 0.02
Start:
  If X >= ka1t Then ka = (ka2 - ka1) / 2 * Cos(PI * (X - (ka2t - ka1t)) / (ka2t - ka1t)) + ka1 + (ka2 - ka1) / 2
  If X >= ka2t Then ka = (ka3 - ka2) / 2 * Cos(PI * (X - (ka3t - ka1t)) / (ka3t - ka2t)) + ka2 + (ka3 - ka2) / 2
  If X >= ka3t Then ka = (ka4 - ka3) / 2 * Cos(PI * (X - (ka4t - ka1t)) / (ka4t - ka3t)) + ka3 + (ka4 - ka3) / 2