DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1);
DRAWKLINE1(H,O,L,C);
低天:=21;
高天:=13;
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
CURR:=CURRBARSCOUNT;
高低:=TRENDLINES(CURR=高天,H,CURR=低天,L);
低高:=TRENDLINES(CURR=低天,L,CURR=高天,H);
高低線:=IF(高天>低天,高低,低高);
//DRAWBAND(高低線,RGB(225,226,199),高低線,RGB(225,226,199));
FILLRGN(高低線>=高低線,高低線,高低線,RGB(225,226,199));
FILLRGN(高低線<高低線,高低線,高低線,RGB(225,226,199));
IF(CURR=高天,H,IF(CURR=低天,L,IF(CURR=ROUND((低天+高天)/2,1),高低線,NULL))),COLORAA00AA,CROSSDOT,LINETHICK3;
SH:=REFX1(REF(H,BARSLAST(CURR=高天)),10000);
SL:=REFX1(REF(L,BARSLAST(CURR=低天)),10000);
高低距:=SH-SL;
天距:=ABS(低天-高天);
PR:=ABS(低天-高天)/2+IF(高天>低天,低天,高天);
RN:(SH+SL)/2;
Y弧:=(SH*SL);
{半徑}
BX:=2*(SH*SL)/天距;
BY:=(SH*SL)/高低距;
XW:=IF(CURR<PR,PR-CURR,CURR-PR)*BX;
SY:=IF(XW<Y弧,SQRT(Y弧*Y弧-XW*XW),0)/BY;
Y震譜1:=IF(高天<低天,RN+SY,RN-SY),COLORRED;
Y震譜2:=IF(高天<低天,RN-SY,RN+SY),COLORRED;
高點:HHV(Y震譜1,10);
XW11:IF(REF(Y震譜1,1)<高點,高點,高點),COLORYELLOW;
低點:LLV(Y震譜1,(SH*SL)*2);
XW112:IF(REF(Y震譜1,1)>Y震譜1,Y震譜1,低點);

?

?

Y弧1:=(SH*SL)/2;
{半徑}
BX1:=2*(SH*SL)/天距;
BY1:=(SH*SL)/高低距;
XW1:=IF(CURR<PR,PR-CURR,CURR-PR)*BX1;
SY1:=IF(XW<Y弧,SQRT(Y弧1*Y弧1-XW1*XW1),0)/BY1;
Y震譜3:=IF(高天<低天,RN+SY1,RN-SY1),COLORRED;
Y震譜4:=IF(高天<低天,RN-SY1,RN+SY1),COLORRED;
高點1:HHV(Y震譜3,10),COLORBLUE;
XW111:IF(REF(Y震譜3,1)<高點1,高點1,高點1);
XG:=CROSS(C,高點) OR CROSS(C,高點1) AND V/REF(MA(V,5),1)>1.2;
DRAWTEXT(CURRBARSCOUNT<10 AND XG ,低點-3,'圓弧突破',VALIGN0,COLORYELLOW;

?

?來源:程序化99

?

?來源: www.kzuj.com.cn

?

?