泡哥的 A交易趋势系统-----的小整理
泡哥的 A交易趋势系统-----的小整理
泡哥的 A交易趋势系统确系一个用未来写出的精辟的精品。我在学习的过程中，大胆一下，做了小整理（没动泡哥的主要思路），自我感觉不错，特请各位指正。
感谢泡哥的好指标，也敬请泡哥原谅-----海涵。大家共同提高，感谢！！
《A交易趋势系统---泡哥》
{☆背景设置}
DRAWGBK(1, COLORRGB(100,50,0), COLORRGB(100,100,0),0);
INPUT:K1(1,0,1),K2(1,0,1),K3(3,0,3),K4(1,0,1),K5(1,0,1);
{K线}
aa1:=wma(c,2);//短加权均线
bb1:=ema(aa1,2);//平滑
a:=ma(bb1,3);//平均
aa2:=wma((h+c+o)/3,18);//长加权均线
dd3:=a>=aa2 and c>aa2;//短>长,且收>长
dd4:=a<aa2 ;//短<长
dd5:=a>aa2 ;//短>长
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;//跌势阳线
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;//跌势阳线
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;//跌势阴线
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;//跌势阴线
STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;//涨势阳线
STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;//涨势阳线
STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;//涨势阴线
STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;//涨势阴线
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;//生命线
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.8,1),coloryellow;//生命线
{型态线+阻力支撑---使用了未来(BACKSET)}
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 ISLASTBAR;
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 ISLASTBAR;
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);
hGA:=IF(LD1 AND REF(H,BARSLAST(hFF1))<=REF(H,BARSLAST(hFF2)),BARSLAST(hFF2),BARSLAST(hFF1));
hG1:=IF(hJS=1 AND LD1,BARSLAST(hFF1),0);
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);
{-----------------------☆功能开关------------------------}
{低点连线---使用了未来(BACKSET)}
UU:=BACKSET(ISLASTBAR,BARSLAST(QLD)+1);
QVV:=UU>REF(UU,1);
WW:=BACKSET(QVV,REF(BARSLAST(QLD),1)+2);
QXX:=WW>REF(WW,1);
{高点连线---使用了未来(BACKSET)}
UU2:=BACKSET(ISLASTBAR,BARSLAST(QHD)+1);
QVV2:=UU2>REF(UU2,1);
WW2:=BACKSET(QVV2,REF(BARSLAST(QHD),1)+2);
QXX2:=WW2>REF(WW2,1);
{趋势箱体}
DQDB:=LLV(L,3);
CQDB:=LLV(L,11);
DQGD:=HHV(H,3);
CQGD:=HHV(H,11);
{圈叉靶心---引用了未来(#WEEK)}
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;
{时间之窗---使用了未来(ZIG)}
QSSWB:=HHVBARS( REF(ZIG(3,19),1)<REF(ZIG(3,19),2),0);
QXDWB:=HHVBARS(ZIG(3, 19)>REF(ZIG(3,19),1),0);
{-----------------【图解模板】---------------------}
{支撑压力}
H1:=IF(K2=1,REF(H,BARSLAST(QVV2)),C);
PARTLINE(c,H1),COLORFF66FF,POINTDOT;
H2:=IF(K2=1,REF(H,BARSLAST(QXX2)),C);
PARTLINE(c,H2),COLORFF66FF,POINTDOT;
L1:=IF(K2=1,REF(L,BARSLAST(QVV)),C);
PARTLINE(c,L1),COLOR99FF66,POINTDOT;
L2:=IF(K2=1,REF(L,BARSLAST(QXX)),C);
PARTLINE(c,L2),COLOR99FF66,POINTDOT;
{趋势描写}
DRAWTEXT((DQDB-CQDB)>(CQGD-DQGD) AND K1=1 AND ISLASTBAR,DQDB*1.02,"趋势↑"),ALIGN2,SHIFT,COLORMAGENTA;
PARTLINE((DQDB-CQDB)>(CQGD-DQGD) AND K1=1,DQDB),LINEDOT,COLORMAGENTA;
DRAWTEXT((DQDB-CQDB)<(CQGD-DQGD) AND K1=1 AND ISLASTBAR,DQGD*1.02,"趋势↓"),ALIGN2,SHIFT,ColorFF6500;
PARTLINE((DQDB-CQDB)<(CQGD-DQGD) AND K1=1,DQGD),LINEDOT,COLORCYAN;
{箱体描写}
PARTLINE(DQDB=CQDB AND CQDB=REF(CQDB,1) AND K1=1,CQDB),linethick2,COLORGREEN;
DRAWTEXT(DQDB=CQDB AND CQDB=REF(CQDB,1) AND K1=1 AND ISLASTBAR,CQDB,"筑底↑"),ALIGN2,SHIFT,COLORGREEN;
PARTLINE(DQGD=CQGD AND CQGD=REF(CQGD,1) AND K1=1,CQGD),linethick2,COLORYELLOW;
DRAWTEXT(DQGD=CQGD AND CQGD=REF(CQGD,1) AND K1=1 AND ISLASTBAR,CQGD,"铸顶↓"),ALIGN2,SHIFT,COLORMAGENTA;
{低点连线}
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.002,12);
DRAWICON(QLD AND QXX AND K2=1,L*1.002,10);
{圈叉靶心}
DRAWICON(QJC AND QHZ>0 AND REF(QHZ,1)<0,L,14),ALIGN5;
DRAWICON(QZKD,L,13),ALIGN5;
{时间之窗}
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=12AND K4=1,h*1.02,"13"),COLORFF33FF;
DRAWTEXT(QSSWB=20AND K4=1,l*0.98,"21"),COLOR0066FF;
DRAWTEXT(QSSWB=33AND K4=1,h*1.02,"34"),COLORFFFF00;
DRAWTEXT(QSSWB=54AND K4=1,l*0.98,"55"),COLOR006600;
DRAWTEXT(QSSWB=88AND 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=13AND K4=1,h*1.02,"13"),COLORFF33FF;
DRAWTEXT(QXDWB=21AND K4=1,l*0.98,"21"),COLOR0066FF;
DRAWTEXT(QXDWB=34AND K4=1,h*1.02,"34"),COLORFFFF00;
DRAWTEXT(QXDWB=55AND K4=1,l*0.98,"55"),COLOR006600;
DRAWTEXT(QXDWB=89AND K4=1,h*1.02,"89"),COLOR00FF00;
DRAWTEXT(QXDWB=144 AND K4=1,l*0.98,"144"),COLORCCFFFF;//下跌舞步
{大盘相关}
TS0:=BARSSINCE(C);
TS1:=BARSLAST(BARSSINCE(BACKSET(ISLASTBAR,60+1))=0);
TS:=IF(TS0<60,TS0,TS1);{上市时间短于参数N，调整叠加的基准日}
BL:=REF(IndexC/C,TS);{确定基准日压缩比率}
FC:=C*BL/BL;
FIndexC:=IndexC/BL;{按比率压缩大盘指数，以便跟个股收盘比较}
PARTLINE(K5=1,FIndexC),COLORWHITE;
相似度:ROUND(CORR(FC,FIndexC,60)*100)/100,LINETHICK,COLORWHITE;
{明日K线}
MRZY:=ROUND((((REF(H,1)-REF(L,1))*8/10)+C)*100)/100;
MRZS:=ROUND((C-((REF(H,1)-REF(L,1))*8/20))*100)/100;//止赢止损
VERTLINE(C>0 AND ISLASTBAR),POINTDOT,Color0098FF,SHIFT1;
STICKLINE(C>O AND ISLASTBAR,MRZY,MRZS,8,1),COLORRED,SHIFT2;
STICKLINE(C<=O AND ISLASTBAR,MRZY,MRZS,8,1),COLORCYAN,SHIFT2;
drawtext(sysparam(3)=Barpos ,MRZY,"\n 明\n 日\n K\n 线\n 预\n 测"),SHIFT2,ALIGN1,Color00FFFF;
