if ((AD>ADx[1])&&(AD<=ADx[2])) Tm = (AD*(Tx[1]-Tx[2]) - Tx[1]*ADx[2] + ADx[1]*Tx[2])/(ADx[1]-ADx[2]);
if ((AD>ADx[2])&&(AD<=ADx[3])) Tm = (AD*(Tx[2]-Tx[3]) - Tx[2]*ADx[3] + ADx[2]*Tx[3])/(ADx[2]-ADx[3]);
if ((AD>ADx[3])&&(AD<=ADx[4])) Tm = (AD*(Tx[3]-Tx[4]) - Tx[3]*ADx[4] + ADx[3]*Tx[4])/(ADx[3]-ADx[4]);
if ((AD>ADx[4])&&(AD<=ADx[5])) Tm = (AD*(Tx[4]-Tx[5]) - Tx[4]*ADx[5] + ADx[4]*Tx[5])/(ADx[4]-ADx[5]);
if ((AD>ADx[5])&&(AD<=ADx[6])) Tm = (AD*(Tx[5]-Tx[6]) - Tx[5]*ADx[6] + ADx[5]*Tx[6])/(ADx[5]-ADx[6]);
if ((AD>ADx[6])&&(AD<=ADx[7])) Tm = (AD*(Tx[6]-Tx[7]) - Tx[6]*ADx[7] + ADx[6]*Tx[7])/(ADx[6]-ADx[7]);
if ((AD>ADx[7])&&(AD<=ADx[8])) Tm = (AD*(Tx[7]-Tx[8]) - Tx[7]*ADx[8] + ADx[7]*Tx[8])/(ADx[7]-ADx[8]);
if ((AD>ADx[8])&&(AD<=ADx[9])) Tm = (AD*(Tx[8]-Tx[9]) - Tx[8]*ADx[9] + ADx[8]*Tx[9])/(ADx[8]-ADx[9]);
if ((AD>ADx[9])&&(AD<=ADx[10])) Tm = (AD*(Tx[9]-Tx[10]) - Tx[9]*ADx[10] + ADx[9]*Tx[10])/(ADx[9]-ADx[10]);
if ((AD>ADx[10])&&(AD<=ADx[11])) Tm = (AD*(Tx[10]-Tx[11]) - Tx[10]*ADx[11] + ADx[10]*Tx[11])/(ADx[10]-ADx[11]);
if ((AD>ADx[11])&&(AD<=ADx[12])) Tm = (AD*(Tx[11]-Tx[12]) - Tx[11]*ADx[12] + ADx[11]*Tx[12])/(ADx[11]-ADx[12]);
if ((AD>ADx[12])&&(AD<=ADx[13])) Tm = (AD*(Tx[12]-Tx[13]) - Tx[12]*ADx[13] + ADx[12]*Tx[13])/(ADx[12]-ADx[13]);
if ((AD>ADx[13])&&(AD<=ADx[14])) Tm = (AD*(Tx[13]-Tx[14]) - Tx[13]*ADx[14] + ADx[13]*Tx[14])/(ADx[13]-ADx[14]);
if ((AD>ADx[14])&&(AD<=ADx[15])) Tm = (AD*(Tx[14]-Tx[15]) - Tx[14]*ADx[15] + ADx[14]*Tx[15])/(ADx[14]-ADx[15]);
if ((AD>ADx[15])&&(AD<=ADx[16])) Tm = (AD*(Tx[15]-Tx[16]) - Tx[15]*ADx[16] + ADx[15]*Tx[16])/(ADx[15]-ADx[16]);
if ((AD>ADx[16])&&(AD<=ADx[17])) Tm = (AD*(Tx[16]-Tx[17]) - Tx[16]*ADx[17] + ADx[16]*Tx[17])/(ADx[16]-ADx[17]);
if ((AD>ADx[17])&&(AD<=ADx[18])) Tm = (AD*(Tx[17]-Tx[18]) - Tx[17]*ADx[18] + ADx[17]*Tx[18])/(ADx[17]-ADx[18]);
if ((AD>ADx[18])&&(AD<=ADx[19])) Tm = (AD*(Tx[18]-Tx[19]) - Tx[18]*ADx[19] + ADx[18]*Tx[19])/(ADx[18]-ADx[19]);
if ((AD>ADx[19])&&(AD<=ADx[20])) Tm = (AD*(Tx[19]-Tx[20]) - Tx[19]*ADx[20] + ADx[19]*Tx[20])/(ADx[19]-ADx[20]);
if ((AD>ADx[20])&&(AD<=ADx[21])) Tm = (AD*(Tx[20]-Tx[21]) - Tx[20]*ADx[21] + ADx[20]*Tx[21])/(ADx[20]-ADx[21]);
if ((AD>ADx[21])&&(AD<=ADx[22])) Tm = (AD*(Tx[21]-Tx[22]) - Tx[21]*ADx[22] + ADx[21]*Tx[22])/(ADx[21]-ADx[22]);
if ((AD>ADx[22])&&(AD<=ADx[23])) Tm = (AD*(Tx[22]-Tx[23]) - Tx[22]*ADx[23] + ADx[22]*Tx[23])/(ADx[22]-ADx[23]);
if ((AD>ADx[23])&&(AD<=ADx[24])) Tm = (AD*(Tx[23]-Tx[24]) - Tx[23]*ADx[24] + ADx[23]*Tx[24])/(ADx[23]-ADx[24]);
if ((AD>ADx[24])&&(AD<=ADx[25])) Tm = (AD*(Tx[24]-Tx[25]) - Tx[24]*ADx[25] + ADx[24]*Tx[25])/(ADx[24]-ADx[25]);
if ((AD>ADx[25])&&(AD<=ADx[26])) Tm = (AD*(Tx[25]-Tx[26]) - Tx[25]*ADx[26] + ADx[25]*Tx[26])/(ADx[25]-ADx[26]);
if ((AD>ADx[26])&&(AD<=ADx[27])) Tm = (AD*(Tx[26]-Tx[27]) - Tx[26]*ADx[27] + ADx[26]*Tx[27])/(ADx[26]-ADx[27]);
if ((AD>ADx[27])&&(AD<=ADx[28])) Tm = (AD*(Tx[27]-Tx[28]) - Tx[27]*ADx[28] + ADx[27]*Tx[28])/(ADx[27]-ADx[28]);
if ((AD>ADx[28])&&(AD<=ADx[29])) Tm = (AD*(Tx[28]-Tx[29]) - Tx[28]*ADx[29] + ADx[28]*Tx[29])/(ADx[28]-ADx[28]);
if ((AD>ADx[29])&&(AD<=ADx[30])) Tm = (AD*(Tx[29]-Tx[30]) - Tx[29]*ADx[30] + ADx[29]*Tx[30])/(ADx[29]-ADx[30]);
if ((AD>ADx[30])&&(AD<=ADx[31])) Tm = (AD*(Tx[30]-Tx[31]) - Tx[30]*ADx[31] + ADx[30]*Tx[31])/(ADx[30]-ADx[31]);
if ((AD>ADx[31])&&(AD<=ADx[32])) Tm = (AD*(Tx[31]-Tx[32]) - Tx[31]*ADx[32] + ADx[31]*Tx[32])/(ADx[31]-ADx[32]);
if ((AD>ADx[32])&&(AD<=ADx[33])) Tm = (AD*(Tx[32]-Tx[33]) - Tx[32]*ADx[33] + ADx[32]*Tx[33])/(ADx[32]-ADx[33]);
if ((AD>ADx[33])&&(AD<=ADx[34])) Tm = (AD*(Tx[33]-Tx[34]) - Tx[33]*ADx[34] + ADx[33]*Tx[34])/(ADx[33]-ADx[34]);
if ((AD>ADx[34])&&(AD<=ADx[35])) Tm = (AD*(Tx[34]-Tx[35]) - Tx[34]*ADx[35] + ADx[34]*Tx[35])/(ADx[34]-ADx[35]);