GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
	GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
	GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
	GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
	A:=GJTJ3=100;
	B:=GJTJ4<90;
	ENTERLONG:COUNT(A,2) = 2 AND B;
	