改文华谢谢，顺便问下有未来吗？　[文华财经]

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