TJ5:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
TJ10:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
TJ20:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
TJ30:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
TJ5=0 and TJ10=0 and TJ20=0 and TJ30=0 ;
TJ5:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
TJ10:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
TJ20:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
TJ30:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
TJ5=0 and TJ10=0 and TJ20=0 and TJ30=0 ;