|
以下是通达信二次回踩鹏腾2009版本源码主图（无源码的请下载附件导入）
LT:=LLVBARS(L,250);
LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
HT:=FINDHIGHBARS(H,LT+1,120,1);
EXT1:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORYELLOW,LINETHICK2;
C1:=REF(C,BARSLAST(CURRBARSCOUNT=CONST(HT)+1)+1);
TT:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1);
T:=BARSLAST(CROSS(C,REF(H,TT)));
GL:=C/REF(H,TT);
TA:=BARSLAST(GL=HHV(GL,T+1));
DF:=(C-REF(C,TA+1))/REF(C,TA+1)*100;
JL:=L/REF(H,TT);
XG:=DF<-8 AND DF>-30 AND JL<1.075 AND MIN(C,O)*1.005>=REF(H,TT);
XGT:=BARSLAST(COUNT(XG,T+1)=1 AND XG);
QF:=BACKSET(XGT=0,TA+1);
QFT:=BARSLAST(CROSS(QF=1,0.5));
C2:=REF(C,QFT);
CC2:=REF(C,QFT+1);
ZF:=(C2-C1)/C1*100;
XZF:=REFX(DF,BARSNEXT(XGT=0));
DRAWICON(CROSS(XGT=0,0.5),L*0.95,9);
DRAWLINE(T=0,REF(H,TT),QFT=0,REF(H,QFT),0),DOTLINE,COLORYELLOW;
DRAWLINE(QFT=0,REF(H,QFT),XGT=0,REF(H,TT),0),DOTLINE,COLORYELLOW;
DRAWTEXT(TT=0,REF(H,TT)*1.05,VARCAT(VARCAT('支撑价：',VAR2STR(REF(H,TT),2)),'元'))COLORYELLOW;
DRAWLINE(QFT=0,REF(H,QFT),QFT=10,REF(H,QFT),1),COLORWHITE,LINETHICK2;
DRAWTEXT(QFT=0,REF(H,QFT)*1.02,VARCAT(VARCAT('信号处跌幅：',VAR2STR(XZF,2)),'%'))COLORGREEN;
DRAWTEXT(QFT=0,REF(H,QFT)*1.08,VARCAT(VARCAT('信号处涨幅：',VAR2STR(ZF,2)),'%')),COLORRED;
TY:=BARSLAST(CROSS(C,REF(H,QFT)));
GLY:=C/REF(H,QFT);
TAA:=BARSLAST(GLY=HHV(GLY,TY+1));
DFY:=(C-REF(C,TAA+1))/REF(C,TAA+1)*100;
JLY:=L/REF(H,TY);
XGY:=DFY<-8 AND DF>-30 AND JLY>1.075 AND JLY<1.15 AND MIN(C,O)*1.005>=REF(H,TY);
XGTY:=BARSLAST(COUNT(XGY,TY+1)=1 AND XGY);
QFY:=BACKSET(XGTY=0,TAA+1);
QFTY:=BARSLAST(CROSS(QFY=1,0.5));
C3:=REF(C,QFTY);
ZF1:=(C3-CC2)/CC2*100;
XZFY:=REFX(DFY,BARSNEXT(XGTY=0));
DRAWICON(CROSS(XGTY=0,0.5),L*0.95,9);
DRAWLINE(TY=0,REF(H,TA),QFTY=0,REF(H,QFTY),0),DOTLINE,COLORYELLOW;
DRAWLINE(QFTY=0,REF(H,QFTY),XGTY=0,REF(H,QFT),0),DOTLINE,COLORYELLOW;
DRAWTEXT(QFT=0,REF(H,TY)*1.05,VARCAT(VARCAT('支撑价：',VAR2STR(REF(H,TY),2)),'元'))COLORYELLOW;
DRAWLINE(QFTY=0,REF(H,QFTY),QFTY=10,REF(H,QFTY),1),COLORRED,LINETHICK2;
DRAWTEXT(QFTY=0,REF(H,QFTY)*1.02,VARCAT(VARCAT('信号处跌幅：',VAR2STR(XZFY,2)),'%'))COLORGREEN;
DRAWTEXT(QFTY=0,REF(H,QFTY)*1.08,VARCAT(VARCAT('信号处涨幅：',VAR2STR(ZF1,2)),'%')),COLORRED;
66100787.jpg
66166631.png
65533617.rar
(3.42 KB, 下载次数: 0, 售价: 6 金钱)
|
