deriving ts5 correction from ts4

This modification uses "a_1" function to derive
time slice 5 charge from time slice 4