A:=H=ZIG(1,7) AND ZIG(1,7)>REF(ZIG(1,7),1);
B:=H=ZIG(1,7) AND ZIG(1,7)<REF(ZIG(1,7),1);
WAVE1:=DRAWLINE(A,H,B,L,0);
WAVE2:=DRAWLINE(B,L,A,H,0);
峰:=WAVE2=WAVE1 AND A;
峰H:=DRAWLINE(峰,WAVE1,REF(峰,1),REF(WAVE1,1),1);
CH:REF(峰H,1)>=REF(峰H,2) AND CROSS(C,REF(峰H,1));