A:=(HHV(H,9)-C)/(HHV(H,9)-LLV(L,9))*100-70;
B:SMA(A,9,1);{上嘴唇}
D:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
E:=SMA(D,3,1);
F:SMA(E,3,1);{下嘴唇}
A:=(HHV(H,9)-C)/(HHV(H,9)-LLV(L,9))*100-70;
B:SMA(A,9,1);{上嘴唇}
D:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
E:=SMA(D,3,1);
F:SMA(E,3,1);{下嘴唇}