红客特工!!这是你要的分析家!!(发财1)
文章出处:易坚 发布时间:2005-09-08
{N:3,1,30 M:1,1,30 P;10,1,30 F:27,1,64 S:2,4,1 }
DRAWGBK(CLOSE>0, COLORRGB(17,208,238), COLORRGB(225,167,175),1);AA:=REF(H,N)=HHV(H,2*N+1);
AAA:=FILTER(AA,N);
BB:=BACKSET(AAA,N+1);
CC1:=FILTER(BB,N);
CC:=CC1 OR BARSTATUS;
AA2:=REF(L,N)=LLV(L,2*N+1);
AAA2:=FILTER(AA2,N);
BB2:=BACKSET(AAA2,N+1);
CC22:=FILTER(BB2,N);
CC2:=CC22 AND NOT(CC1);
EA:=BACKSET(CC,REF(BARSLAST(CC2),1)+1);
EB:=EA>REF(EA,1); EE:=BACKSET(EB,2);
FF1:=EE>REF(EE,1);
EE2:=BACKSET(FF1 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF2:=EE2>REF(EE2,1);
EE3:=BACKSET(FF2 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF3:=EE3>REF(EE3,1);
JS:=IF(CC,COUNT(CC2,REF(BARSLAST(CC),1)+1),0);
G1:=IF(JS=1 AND CC,BARSLAST(FF1),0);
GA:=IF(CC AND REF(L,BARSLAST(FF1))>=REF(L,BARSLAST(FF2)),BARSLAST(FF2),BARSLAST(FF1));
G2:=IF(JS=2 AND CC,GA,0);
G3:=IF(JS>=3 AND CC,IF(CC AND REF(L,GA)>=REF(L,BARSLAST(FF3)),BARSLAST(FF3),GA),0);
GG:=G1+G2+G3;
JA:=BACKSET(CC,GG); JB:=JA>REF(JA,1); JJ:=BACKSET(JB,2);
LD:=JJ>REF(JJ,1);
LD1:=LD OR BARSTATUS;
hEA:=BACKSET(LD1,REF(BARSLAST(CC),1)+1);
hEB:=hEA>REF(hEA,1); hEE:=BACKSET(hEB,2);
hFF1:=hEE>REF(hEE,1);
hEE2:=BACKSET(hFF1 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF2:=hEE2>REF(hEE2,1);
hEE3:=BACKSET(hFF2 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF3:=hEE3>REF(hEE3,1);
hJS:=IF(LD1,COUNT(CC1,REF(BARSLAST(LD1),1)+1),0);
hG1:=IF(hJS=1 AND LD1,BARSLAST(hFF1),0);
hGA:=IF(LD1 AND REF(H,BARSLAST(hFF1))<=REF(H,BARSLAST(hFF2)),BARSLAST(hFF2),BARSLAST(hFF1));
hG2:=IF(hJS=2 AND LD1,hGA,0);
hG3:=IF(hJS>=3 AND LD1,IF(LD1 AND REF(H,hGA)<=REF(H,BARSLAST(hFF3)),BARSLAST(hFF3),hGA),0);
hGG:=hG1+hG2+hG3;
hJA:=BACKSET(LD1,hGG); hJB:=hJA>REF(hJA,1); hJJ:=BACKSET(hJB,2);
HD:=hJJ>REF(hJJ,1);
{---------------------------------------------------}
DRAWICON(HD,H*1.01,9);
DRAWTEXT(HD,H+0.04,'→变卖'),Color0080FF;
DRAWICON(LD,L*0.995,14);
DRAWTEXT(lD,l+0.02,'→变买'),ColorFFFFFF;
{-------------------------------------------------------}
DRAWLINE(LD,L,HD,H,0),Color00FF00,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),ColorFFFFFF,LINETHICK1;
X1:=BACKSET(BARSTATUS,BARSLAST(LD)+1);
X2:=X1>REF(X1,1);
Y1:=BACKSET(BARSTATUS,BARSLAST(HD)+1);
Y2:=Y1>REF(Y1,1);
Z1:=IF(BARSLAST(X2)
Z2:=IF(BARSLAST(X2)
DRAWLINE(Z1,Z2,BARSTATUS,C,0),COLORFF9900,POINTDOT;
UU:=BACKSET(BARSTATUS,BARSLAST(LD)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
XX:=WW>REF(WW,1);
DRAWLINE(XX,L,VV,L,1),COLORYELLOW,POINTDOT;
UU2:=BACKSET(BARSTATUS,BARSLAST(HD)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
XX2:=WW2>REF(WW2,1);
DRAWLINE(XX2,H,VV2,H,1),COLORYELLOW,POINTDOT;
前一低:REF(L,BARSLAST(VV)),Color4444FF,{POINTDOT,}LINETHICK2;
前二低:REF(L,BARSLAST(XX)),ColorFFFFFF,{POINTDOT,}LINETHICK2;
前一高:REF(H,BARSLAST(VV2)),Color4444FF,{POINTDOT,}LINETHICK2;
前二高:REF(H,BARSLAST(XX2)),ColorFFFFFF,{POINTDOT,}LINETHICK2;
{----------------------------------------------------------------------}
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
{----------------------------------------------------------------------}
hh:=HHV(h ,lhnh);
ll:=llV(l ,lhnh);
q875:=ll+(hh-ll)*0.875;
q75:=ll+(hh-ll)*0.75;
q66:=ll+(hh-ll)*0.66;
q625:=ll+(hh-ll)*0.625;
q500:=ll+(hh-ll)*0.500;
q375:=ll+(hh-ll)*0.375;
q33:=ll+(hh-ll)*0.33;
q25:=ll+(hh-ll)*0.25;
q125:=ll+(hh-ll)*0.125;
{------------------------------------------------}
{----------------------------------------------------------------------}
DRAWTEXT(nnl,hh*0.998,'最高价:'+hh),ALIGN2,Color00FFFF,linethick2;
DRAWTEXT(nnl,q875,'32.5%:'+q875),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q75,'25%:'+q75),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q66,'甘价33%::'+q66),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q500,'50%:'+q500),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q375,'62.5%:'+q375),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q33,'甘价66%:'+q33),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q25,'75%:'+q25),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q125,'87.5%:'+q125),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,ll*1.01,'最低价:'+ll),ALIGN2,{VALIGN2,}Color00FFFF,linethick2;
DRAWGBK(CLOSE>0, COLORRGB(17,208,238), COLORRGB(225,167,175),1);AA:=REF(H,N)=HHV(H,2*N+1);
AAA:=FILTER(AA,N);
BB:=BACKSET(AAA,N+1);
CC1:=FILTER(BB,N);
CC:=CC1 OR BARSTATUS;
AA2:=REF(L,N)=LLV(L,2*N+1);
AAA2:=FILTER(AA2,N);
BB2:=BACKSET(AAA2,N+1);
CC22:=FILTER(BB2,N);
CC2:=CC22 AND NOT(CC1);
EA:=BACKSET(CC,REF(BARSLAST(CC2),1)+1);
EB:=EA>REF(EA,1); EE:=BACKSET(EB,2);
FF1:=EE>REF(EE,1);
EE2:=BACKSET(FF1 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF2:=EE2>REF(EE2,1);
EE3:=BACKSET(FF2 AND COUNT(CC,REF(BARSLAST(CC2),1)+2)=0,REF(BARSLAST(CC2),1)+2);
FF3:=EE3>REF(EE3,1);
JS:=IF(CC,COUNT(CC2,REF(BARSLAST(CC),1)+1),0);
G1:=IF(JS=1 AND CC,BARSLAST(FF1),0);
GA:=IF(CC AND REF(L,BARSLAST(FF1))>=REF(L,BARSLAST(FF2)),BARSLAST(FF2),BARSLAST(FF1));
G2:=IF(JS=2 AND CC,GA,0);
G3:=IF(JS>=3 AND CC,IF(CC AND REF(L,GA)>=REF(L,BARSLAST(FF3)),BARSLAST(FF3),GA),0);
GG:=G1+G2+G3;
JA:=BACKSET(CC,GG); JB:=JA>REF(JA,1); JJ:=BACKSET(JB,2);
LD:=JJ>REF(JJ,1);
LD1:=LD OR BARSTATUS;
hEA:=BACKSET(LD1,REF(BARSLAST(CC),1)+1);
hEB:=hEA>REF(hEA,1); hEE:=BACKSET(hEB,2);
hFF1:=hEE>REF(hEE,1);
hEE2:=BACKSET(hFF1 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF2:=hEE2>REF(hEE2,1);
hEE3:=BACKSET(hFF2 AND COUNT(LD1,REF(BARSLAST(CC),1)+2)=0,REF(BARSLAST(CC),1)+2);
hFF3:=hEE3>REF(hEE3,1);
hJS:=IF(LD1,COUNT(CC1,REF(BARSLAST(LD1),1)+1),0);
hG1:=IF(hJS=1 AND LD1,BARSLAST(hFF1),0);
hGA:=IF(LD1 AND REF(H,BARSLAST(hFF1))<=REF(H,BARSLAST(hFF2)),BARSLAST(hFF2),BARSLAST(hFF1));
hG2:=IF(hJS=2 AND LD1,hGA,0);
hG3:=IF(hJS>=3 AND LD1,IF(LD1 AND REF(H,hGA)<=REF(H,BARSLAST(hFF3)),BARSLAST(hFF3),hGA),0);
hGG:=hG1+hG2+hG3;
hJA:=BACKSET(LD1,hGG); hJB:=hJA>REF(hJA,1); hJJ:=BACKSET(hJB,2);
HD:=hJJ>REF(hJJ,1);
{---------------------------------------------------}
DRAWICON(HD,H*1.01,9);
DRAWTEXT(HD,H+0.04,'→变卖'),Color0080FF;
DRAWICON(LD,L*0.995,14);
DRAWTEXT(lD,l+0.02,'→变买'),ColorFFFFFF;
{-------------------------------------------------------}
DRAWLINE(LD,L,HD,H,0),Color00FF00,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),ColorFFFFFF,LINETHICK1;
X1:=BACKSET(BARSTATUS,BARSLAST(LD)+1);
X2:=X1>REF(X1,1);
Y1:=BACKSET(BARSTATUS,BARSLAST(HD)+1);
Y2:=Y1>REF(Y1,1);
Z1:=IF(BARSLAST(X2)
UU:=BACKSET(BARSTATUS,BARSLAST(LD)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
XX:=WW>REF(WW,1);
DRAWLINE(XX,L,VV,L,1),COLORYELLOW,POINTDOT;
UU2:=BACKSET(BARSTATUS,BARSLAST(HD)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
XX2:=WW2>REF(WW2,1);
DRAWLINE(XX2,H,VV2,H,1),COLORYELLOW,POINTDOT;
前一低:REF(L,BARSLAST(VV)),Color4444FF,{POINTDOT,}LINETHICK2;
前二低:REF(L,BARSLAST(XX)),ColorFFFFFF,{POINTDOT,}LINETHICK2;
前一高:REF(H,BARSLAST(VV2)),Color4444FF,{POINTDOT,}LINETHICK2;
前二高:REF(H,BARSLAST(XX2)),ColorFFFFFF,{POINTDOT,}LINETHICK2;
{----------------------------------------------------------------------}
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
{----------------------------------------------------------------------}
hh:=HHV(h ,lhnh);
ll:=llV(l ,lhnh);
q875:=ll+(hh-ll)*0.875;
q75:=ll+(hh-ll)*0.75;
q66:=ll+(hh-ll)*0.66;
q625:=ll+(hh-ll)*0.625;
q500:=ll+(hh-ll)*0.500;
q375:=ll+(hh-ll)*0.375;
q33:=ll+(hh-ll)*0.33;
q25:=ll+(hh-ll)*0.25;
q125:=ll+(hh-ll)*0.125;
{------------------------------------------------}
{----------------------------------------------------------------------}
DRAWTEXT(nnl,hh*0.998,'最高价:'+hh),ALIGN2,Color00FFFF,linethick2;
DRAWTEXT(nnl,q875,'32.5%:'+q875),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q75,'25%:'+q75),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q66,'甘价33%::'+q66),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q500,'50%:'+q500),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q375,'62.5%:'+q375),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q33,'甘价66%:'+q33),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q25,'75%:'+q25),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,q125,'87.5%:'+q125),ALIGN2,Color00FFFF;
DRAWTEXT(nnl,ll*1.01,'最低价:'+ll),ALIGN2,{VALIGN2,}Color00FFFF,linethick2;

编公式小技巧1