DRAWRECTREL(0,0,1000,1000,RGB(153,51,0));{左外屏色彩}
DRAWRECTREL(10,10,994,990,RGB(0,100,255));{內屏色彩}

{=======測幅========};
A1:=10;
A2:=10;
A3:=ZIG(1,A1);
A4:=PEAK(1,A1,1);?
A5:=TROUGH(1,A1,1);
CC:=IF((A3 < (REF(A3,1))),A4,A5),NODRAW,LINETHICK2;
點:=CC>REF(CC,1) ORCC<REF(CC,1);
正距:=BARSLAST(點),NODRAW,LINETHICK2;
倒距:=IF(BARSNEXT(點=1)=DRAWNULL,CURRBARSCOUNT,BARSNEXT(點=1)),NODRAW;
A6:=CROSS((A4 - 0.02),A3);
A7:=CROSS(A3,(A5 + 0.02));
A8:=A2 / 100;
A9:=IF((A3 < (REF(A3,1))),A8,REVERSE(A8));
A10:=IF((A3 < (REF(A3,1))),A6,A7);
H1:=REF((CC * (1 - (A9 * 1))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H2:=REF((CC * (1 - (A9 * 2))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H3:=REF((CC * (1 - (A9 * 3))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H4:=REF((CC * (1 - (A9 * 4))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H5:=REF((CC * (1 - (A9 * 5))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H6:=REF((CC * (1 - (A9 * 6))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H7:=REF((CC * (1 - (A9 * 7))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H8:=REF((CC * (1 - (A9 * 8))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H9:=REF((CC * (1 - (A9 * 9))),BARSLAST(A10)),DOTLINE,LINETHICK0;
H10:=REF((CC * (1 - (A9 * 10))),BARSLAST(A10)),DOTLINE,LINETHICK0;
AF2:=REFX(HHV(HHV(CROSS(H,H2) OR CROSS(H2,L),正距)AND?點=0,正距)=1,倒距-1);
AF3:=REFX(HHV(HHV(CROSS(H,H3) OR CROSS(H3,L),正距)AND?點=0,正距)=1,倒距-1);
AF4:=REFX(HHV(HHV(CROSS(H,H4) OR CROSS(H4,L),正距)AND?點=0,正距)=1,倒距-1);
AF5:=REFX(HHV(HHV(CROSS(H,H5) OR CROSS(H5,L),正距)AND?點=0,正距)=1,倒距-1);
AF6:=REFX(HHV(HHV(CROSS(H,H6) OR CROSS(H6,L),正距)AND?點=0,正距)=1,倒距-1);
AF7:=REFX(HHV(HHV(CROSS(H,H7) OR CROSS(H7,L),正距)AND?點=0,正距)=1,倒距-1);
AF8:=REFX(HHV(HHV(CROSS(H,H8) OR CROSS(H8,L),正距)AND?點=0,正距)=1,倒距-1);
AF9:=REFX(HHV(HHV(CROSS(H,H9) OR CROSS(H9,L),正距)AND?點=0,正距)=1,倒距-1);
AF10:=REFX(HHV(HHV(CROSS(H,H10) OR CROSS(H10,L),正距)AND?點=0,正距)=1,倒距-1);
A11:=BARSLAST((ISLASTBAR = 1)) + 1;
A12:=HHV(HIGH,100);
A13:=LLV(LOW,100);
A14:=IF((PERIOD = 12),1.00005,(IF((PERIOD < 3),1.0005,1.002)));
STICKLINE(((CC >= A13) AND (CC <= A12)),CC,(CC * A14),10,-1000),COLORRED;
STICKLINE(((CC >= A13) AND (CC <= A12)),H1,H1,5,0),COLORWHITE;
STICKLINE(((H1 > A13) AND (H1 < A12)) AND AF2=1,H2,H2,5,0),COLORWHITE;
STICKLINE(((H2 > A13) AND (H2 < A12)) AND AF3=1,H3,H3,5,0),COLORWHITE;
STICKLINE(((H3 > A13) AND (H3 < A12)) AND AF4=1,H4,H4,5,0),COLORWHITE;
STICKLINE(((H4 > A13) AND (H4 < A12)) AND AF5=1,H5,H5,5,0),COLORWHITE;
STICKLINE(((H5 > A13) AND (H5 < A12)) AND AF6=1,H6,H6,5,0),COLORWHITE;
STICKLINE(((H6 > A13) AND (H6 < A12)) AND AF7=1,H7,H7,5,0),COLORWHITE;
STICKLINE(((H7 > A13) AND (H7 < A12)) AND AF8=1,H8,H8,5,0),COLORWHITE;
STICKLINE(((H8 > A13) AND (H8 < A12)) AND AF9=1,H9,H9,5,0),COLORWHITE;
STICKLINE(((H9 > A13) AND (H9 < A12)) AND AF10=1,H10,H10,5,0),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 ,H1,?#39 ),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF2=1 ,H2,?#39),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF3=1 ,H3,?#39),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF4=1 ,H4,?#39),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF5=1 ,H5,?#39),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF6=1 ,H6,?#39),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF7=1 ,H7,?#39),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF8=1 ,H8,?#39),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF9=1 ,H9,?#39),COLORWHITE;
DRAWTEXT(BARSLAST(A10)=1 AND AF10=1 ,H10,颼#39),COLORWHITE;
{=======K線=================}
DRAWKLINE(H,O,L,C);
{=======逃頂=================}
RSI:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100;
DRAWTEXT(CROSS(84,RSI) , HIGH*1.03,'頂!',COLORYELLOW ;
{====黃點買入標記=====}
收大于買:=(REF(H-L,1)/2+REF(L,1))*0.997,COLORYELLOW;
低移:=SMA(XMA((C+L+H)/3,15),2,1),NODRAW;
低:=REF(低移,1)*REF(低移,1)/REF(低移,2),COLORWHITE,NODRAW;
低1:低*0.97,COLORWHITE;
低2:低*0.94,COLORWHITE;
低3:低*0.89,COLORCYAN;
低4:=低*0.84,COLORBLUE;
賣價:低*1.04,COLORWHITE;
W1:=低移>REF(低移,1);
W2:=低移<REF(低移,1);
低買線:=IF(W1 AND REF(L>低1,1)AND L<低1,低1,IF(W2 AND REF(L>低2,1)AND L<低2,低2,IF(W1 AND REF(L>低2,1)AND L<低2,低2,
IF(W2 AND REF(L>低3,1)ANDL<低3,低3,IF(W1 AND L<低3,低3,IF( L<低4,低4,DRAWNULL))))));
STICKLINE(L<低買線?,L,MIN(H,低買線),1.3,0),COLORYELLOW;
{止贏}{www.goodgupiao.com}
價A:=賣價,COLORWHITE,NODRAW;
價B:=MAX(REF(C,1)*0.99,H*0.97),COLORWHITE,NODRAW;
沖高賣:=MAX(價A,價B),COLORWHITE,NODRAW;
賣點:=H>沖高賣?;
DRAWICON(BARSLASTCOUNT(賣點)=1,H*1.01,17);
{=========左翼色===========}
DRAWRECTREL(0,0,135,1000,RGB(153,51,0));{左屏色彩}
DRAWRECTREL(5,10,130,990,RGB(153,51,0));{左屏色彩}
{DRAWRECTREL(5,10,125,990,RGB(0,100,255));{左內屏色彩}
{=====板塊=======}
AA1:=STRCAT(STRCAT('?'DYBLOCK),'nbsp;】';
DRAWTEXT_FIX(C>0,0.01,0.055,0,AA1),COLORWHITE;
AA2:=STRCAT(STRCAT(''HYBLOCK), 'nbsp;】';
DRAWTEXT_FIX(C>0,0.01,0.155,0,AA2),COLORWHITE;
{====警示一?=====}
DRAWTEXT_FIX(C>0,0.01,0.255,0,'操作銘記】',COLORYELLOW;
DRAWTEXT_FIX(C>0,0.059,0.315,0,'',COLORYELLOW;
DRAWTEXT_FIX(C>0,0.01,0.38,0,'趨勢原則】',COLORGREEN;
DRAWTEXT_FIX(C>0,0.01,0.48,0,'分批原則】',COLORGREEN;
DRAWTEXT_FIX(C>0,0.01,0.58,0,'底部原則】',COLORGREEN;
DRAWTEXT_FIX(C>0,0.01,0.68,0,'風險原則】',COLORGREEN;
DRAWTEXT_FIX(C>0,0.003,0.78,0,'誘多不買入】',COLORGREEN;
DRAWTEXT_FIX(C>0,0.003,0.88,0,'出貨不買入】',COLORGREEN;

?

?來源:程序化99