 | |  |  |
分析家交易趋势源码公式:
INPUT:K1(1,0,1),K2(1,0,1),K3(3,0,3),K4(1,0,1),K5(1,0,1);
A1:=DISPSTATUS=1;
A2:=DISPSTATUS=2;
B2:=BARSSINCE(A1)+1;
HHN:=HHVBARS(HIGH,B2)+1;
LLN:=LLVBARS(LOW,B2)+1;
HH:=HHV(HIGH,B2);
LL:=LLV(LOW,B2);
ZJJ:=SUM(AMOUNT,B2)/(VOLUNIT*SUM(VOL,B2));
均:IF(CATEGORY>=1,ZJJ,MA(CLOSE,B2)),COLORFF8888,CIRCLEDOT,PRECIS2,LINETHICK2;
中:(HH+LL)/2,PRECIS2,COLORBLUE,CIRCLEDOT,LINETHICK2;
GJJ:=SUM(AMOUNT,HHN)/(VOLUNIT*SUM(VOL,HHN));
高均:IF(CATEGORY>=1,GJJ,MA(CLOSE,HHN)),PRECIS2,COLORGRAY,LINETHICK2;
DJJ:=SUM(AMOUNT,LLN)/(VOLUNIT*SUM(VOL,LLN));
低均:IF(CATEGORY>=1,DJJ,MA(CLOSE,DJJ)),PRECIS2,COLORGRAY,LINETHICK2;
{大盘相关}
TS0:=BARSSINCE(C);
TS1:=BARSLAST(BARSSINCE(BACKSET(BARSTATUS=2,60+1))=0);
TS:=IF(TS0<60,TS0,TS1);{上市时间短于参数N，调整叠加的基准日}
BL:=REF(IndexC/C,TS);{确定基准日压缩比率}
FC:=C*BL/BL;
FIndexC:=IndexC/BL;{按比率压缩大盘指数，以便跟个股收盘比较}
PARTLINE(FIndexC,K5=1),COLORWHITE;
相似度:INTPART(BETA2(FC,FIndexC,60)*100)/100,LINETHICK0;
AA:=REF(H,4)=HHV(H,2*4+1);
AAA:=FILTER(AA,4);
BB:=BACKSET(AAA,4+1);
CC1:=FILTER(BB,4);
CC:=CC1 OR BARSTATUS=2;
AA2:=REF(L,4)=LLV(L,2*4+1);
AAA2:=FILTER(AA2,4);
BB2:=BACKSET(AAA2,4+1);
CC22:=FILTER(BB2,4);
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);
QLD:=JJ>REF(JJ,1);
LD1:=QLD OR BARSTATUS=2;
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);
QHD:=hJJ>REF(hJJ,1);
{刺刀射线}
X1:=BACKSET(BARSTATUS=2,BARSLAST(QLD)+1);
X2:=X1>REF(X1,1);
Y1:=BACKSET(BARSTATUS=2,BARSLAST(QHD)+1);
Y2:=Y1>REF(Y1,1);
QZ1:=IF(BARSLAST(X2)<BARSLAST(Y2),X2,Y2);
QZ2:=IF(BARSLAST(X2)<BARSLAST(Y2),L,H);
{低点连线}
UU:=BACKSET(BARSTATUS=2,BARSLAST(QLD)+1);
QVV:=UU>REF(UU,1);
WW:=BACKSET(QVV,REF(BARSLAST(QLD),1)+2);
QXX:=WW>REF(WW,1);
{高点连线}
UU2:=BACKSET(BARSTATUS=2,BARSLAST(QHD)+1);
QVV2:=UU2>REF(UU2,1);
WW2:=BACKSET(QVV2,REF(BARSLAST(QHD),1)+2);
QXX2:=WW2>REF(WW2,1);
{稳健右侧交易}
BA1:=MA(C,13);
QZX:=REF(BA1,13/2+1);
{转向K线}
A:=(C-REF(C,1))/REF(C,1)*100;
DA1:=BARSLAST(A>3);
QA2:=IF(DA1>0,1,0);
{生命线}
QLIFE:=(EMA(CLOSE,60)+EMA(CLOSE,90))/2;
{下降阻击线}
Var1:=(2*CLOSE+HIGH+LOW)/4;
QSNOOK:=EMA(Var1,99)*0.91;
{不计K线}
QYY:=H>REF(H,1) AND L<REF(L,1);{//孕育线}
QHB:=H<REF(H,1) AND L>REF(L,1);{//怀抱线}
{趋势箱体}
DQDB:=LLV(L,4);
CQDB:=LLV(L,19);
DQGD:=HHV(H,4);
CQGD:=HHV(H,19);
{圈叉靶心}
QJC:=CROSS("MACD.DIFF#WEEK"(10,6,3),"MACD.DEA#WEEK"(10,6,3));
QHZ:=2*("MACD.DIFF#WEEK"(10,6,3)-"MACD.DEA#WEEK"(10,6,3));
QZKD:=CROSS("KDJ.K#WEEK","KDJ.D#WEEK") and "KDJ.D#WEEK"<30;
{//------【数值显示】}
{支撑压力}
H1:IF(K2=1,REF(H,BARSLAST(QVV2)),C),COLORFF66FF,POINTDOT,LINETHICK1;
H2:IF(K2=1,REF(H,BARSLAST(QXX2)),C),COLORFF66FF,POINTDOT,LINETHICK1;
L1:IF(K2=1,REF(L,BARSLAST(QVV)),C),COLOR99FF66,POINTDOT,LINETHICK1;
L2:IF(K2=1,REF(L,BARSLAST(QXX)),C),COLOR99FF66,POINTDOT,LINETHICK1;
{//------【图解模板】}
VARY:=CLOSE>OPEN;
VARY2:=CLOSE<=OPEN;
{上下影线}
STICKLINE(C>REF(C,1),L,H,0.1,0),COLORRED;
STICKLINE(C<=REF(C,1),L,H,0.1,0),COLORCYAN;
{下跌实体}
STICKLINE(C<QZX AND VARY,C,O,6.8,0 ),COLORFF00FF;
STICKLINE(C<QZX AND VARY2,C,O,6.8,0 ),COLOR009900;
{上涨实体}
STICKLINE(C>=QZX AND VARY,C,O,8,0),COLORRED;
STICKLINE(C>=QZX AND VARY2,C,O,8,0),COLORFF9900;
{三分盘整}
VPZ3:=((H>QSNOOK AND L<QSNOOK) OR (H>QLIFE AND L<QLIFE)) AND (K3=1 OR K3=3);
STICKLINE(VPZ3 AND VARY,C,O,8,0 ),COLOR006699;
STICKLINE(VPZ3 AND VARY2,C,O,8,0 ),colorblue;
{不计K线}
{//STICKLINE((QYY=1 OR QHB=1) AND (K3=2 OR K3=3),H*1.01,L*0.99,10,1),COLORDDDDDD;}
STICKLINE((QYY=1 OR QHB=1) AND (K3=2 OR K3=3) AND VARY,C,O,8,0 ),COLORDDDDDD;
STICKLINE((QYY=1 OR QHB=1) AND (K3=2 OR K3=3) AND VARY2,C,O,8,0 ),COLORGRAY;
{转向K线}
STICKLINE(C>=QZX AND QA2=0,H,L,0,0),COLOR2CB3E3;
STICKLINE(C>=QZX AND QA2=0,O,C,8,0),COLOR2CB3E3;
{趋势描写}
DRAWTEXT((DQDB-CQDB)>(CQGD-DQGD) AND K1=1 AND BARSTATUS=2,DQDB,'趋势↑'),COLORMAGENTA;
PARTLINE(DQDB,(DQDB-CQDB)>(CQGD-DQGD) AND K1=1),COLORMAGENTA;
DRAWTEXT((DQDB-CQDB)<(CQGD-DQGD) AND K1=1 AND BARSTATUS=2,DQGD,'趋势↓'),COLORCYAN;
PARTLINE(DQGD,(DQDB-CQDB)<(CQGD-DQGD) AND K1=1),COLORCYAN;
{箱体描写}
PARTLINE(CQDB,DQDB=CQDB AND CQDB=REF(CQDB,1) AND K1=1),linethick2,COLORYELLOW;
DRAWTEXT(DQDB=CQDB AND CQDB=REF(CQDB,1) AND K1=1 AND BARSTATUS=2,CQDB,'筑底↑'),COLORYELLOW;
PARTLINE(CQGD,DQGD=CQGD AND CQGD=REF(CQGD,1) AND K1=1),linethick2,COLORGREEN;
DRAWTEXT(DQGD=CQGD AND CQGD=REF(CQGD,1) AND K1=1 AND BARSTATUS=2,CQGD,'铸顶↓'),COLORGREEN;
{刺刀射线}
DRAWLINE(QZ1 AND K2=1,QZ2,BARSTATUS=2,C,0),COLORFF9900,POINTDOT;
{低点连线}
DRAWLINE(QXX AND K2=1,L,QVV,L,1),COLORYELLOW,POINTDOT;
{高点连线}
DRAWLINE(QXX2 AND K2=1,H,QVV2,H,1),COLORYELLOW,POINTDOT;
{初始原点}
DRAWICON(QHD AND QXX2 AND K2=1,H*1.006,9),ALIGN1;
DRAWICON(QLD AND QXX AND K2=1,L*1.006,10),ALIGN1;
{圈叉靶心}
DRAWICON(QJC AND QHZ>0 AND REF(QHZ,1)<0,L*0.99,4),ALIGN0;
DRAWICON(QZKD,L*0.98,6),ALIGN0;
{时间之窗}
QSSWB:=BARSLAST( REF(ZIG(3,19),1)<REF(ZIG(3,19),2));
QXDWB:=BARSLAST(ZIG(3, 19)>REF(ZIG(3,19),1));
DRAWTEXT(QSSWB=2 AND K4=1,l*0.98,'3'),COLOR0000FF;
DRAWTEXT(QSSWB=4 AND K4=1,h*1.02,'5'),COLOR9966FF;
DRAWTEXT(QSSWB=7 AND K4=1,l*0.98,'8'),COLOR00FFFF;
DRAWTEXT(QSSWB=12 AND K4=1,h*1.02,'13'),COLORFF33FF;
DRAWTEXT(QSSWB=20 AND K4=1,l*0.98,'21'),COLOR0066FF;
DRAWTEXT(QSSWB=33 AND K4=1,h*1.02,'34'),COLORFFFF00;
DRAWTEXT(QSSWB=54 AND K4=1,l*0.98,'55'),COLOR006600;
DRAWTEXT(QSSWB=88 AND K4=1,h*1.02,'89'),COLOR00FF00;
DRAWTEXT(QSSWB=143 AND K4=1,l*0.98,'144'),COLORCCFFFF;{//上升舞步}
DRAWTEXT(QXDWB=3 AND K4=1,l*0.98,'3'),COLOR0000FF;
DRAWTEXT(QXDWB=5 AND K4=1,h*1.02,'5'),COLOR9966FF;
DRAWTEXT(QXDWB=8 AND K4=1,l*0.98,'8'),COLOR00FFFF;
DRAWTEXT(QXDWB=13 AND K4=1,h*1.02,'13'),COLORFF33FF;
DRAWTEXT(QXDWB=21 AND K4=1,l*0.98,'21'),COLOR0066FF;
DRAWTEXT(QXDWB=34 AND K4=1,h*1.02,'34'),COLORFFFF00;
DRAWTEXT(QXDWB=55 AND K4=1,l*0.98,'55'),COLOR006600;
DRAWTEXT(QXDWB=89 AND K4=1,h*1.02,'89'),COLOR00FF00;
DRAWTEXT(QXDWB=144 AND K4=1,l*0.98,'144'),COLORCCFFFF;{//下跌舞步}
{明日K线}
MRZY:=INTPART((((REF(H,1)-REF(L,1))*8/10)+C)*100)/100;
MRZS:=INTPART((C-((REF(H,1)-REF(L,1))*8/20))*100)/100;{//止赢止损}
DRAWTEXT(C>O AND BARSTATUS=2,MRZY,' ￣￣'),COLORMAGENTA;
DRAWTEXT(C>O AND BARSTATUS=2,MRZS,' ￣￣'),COLORMAGENTA;
DRAWTEXT(C<=O AND BARSTATUS=2,MRZY,' ￣￣'),COLORCYAN;
DRAWTEXT(C<=O AND BARSTATUS=2,MRZS,' ￣￣'),COLORCYAN;
PARTLINE(均,均>REF(均,1),RGB(255,0,0),均<=REF(均,1),RGB(0,255,0));
PARTLINE(高均,高均>REF(高均,1),RGB(255,255,0),高均<=REF(高均,1),RGB(0,0,255));
PARTLINE(低均,低均>REF(低均,1),RGB(88,0,0),低均<=REF(低均,1),RGB(0,58,0));
DRAWTEXTREL(0,0,'机构评级:'+selfstring('评级')),coloryellow;
值:=CLOSE*FINANCE(1)/10000;{市值}
流值:=CLOSE*CAPITAL/1000000;{流通市值}
DRAWTEXTREL(180,75,'市值:'+值),color0088ff;
DRAWTEXTREL(180,150,'流通市值:'+流值),COLOR9900FF;
杠杆比:=值/流值;
DRAWTEXTREL(180,225,'杠杆比:'+杠杆比),COLORWHITE;
市盈:=IF(FINANCE(33)=0,0,CLOSE/FINANCE(33));
市净:=IF(FINANCE(35)=0,0,CLOSE/FINANCE(35));
DRAWTEXTREL(0,75,'市盈:'+市盈),color0088ff;
DRAWTEXTREL(0,150,'市净:'+市净),COLOR9900FF;
DRAWTEXTREL(0,225,'黄:阳转向 K 线'),COLOR2CB3E3;
DRAWTEXTREL(0,300,'蓝:上涨阴体'),COLORFF9900;
DRAWTEXTREL(0,375,'粉:下跌阳体'),COLORFF00FF;
DRAWTEXTREL(0,450,'棕:阳三分盘整'),COLOR006699;
DRAWTEXTREL(0,525,'蓝:阴三分盘整'),COLORBLUE;
DRAWTEXTREL(0,600,'白:阳不计 K 线'),COLORDDDDDD;
DRAWTEXTREL(0,675,'灰:阴不计 K 线'),COLORGRAY; |
| |  | |  |
|
