仿预测赢家测上升阻力，分享源码，希望前辈出手优化

仿预测赢家测上升阻力

有２个版本，

第一个是我按黄金分割来推的，好像高了点大多数涨不到的，到Ｃ１就涨不了了，要强势的才可以

第二版是根据一网友回复的仙踞制药的图仿它的数据到哪里我就设到哪里，可不是黄金分割数据了，贴上来大家优化吧！

 

第一个版本：

波１＝最小１最大１０００缺省１２或其它随便调要哪个低就调，前１０个月的都行

 

DRAWGBK(C>0, RGB(0,0,20),RGB(00,0,0),0,0,1);

DRAWKLINE(H,O,L,C);

A1:=REF(HIGH,5)=HHV(HIGH,2*6+1);

B1:=FILTER(A1,5);

C1:=BACKSET(B1,5+1);

D1:=FILTER(C1,5+1);{高点}

A2:=REF(LOW,5)=LLV(LOW,2*10+1);

B2:=FILTER(A2,5+1);

C2:=BACKSET(B2,5+1);

D2:=FILTER(C2,5);{低点}

E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;

E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;

L1:=(D2 AND NOT(D1 AND E1<E2));

H2:=D1 AND NOT(D2 AND E1>=E2);

X1:=REF(BARSLAST(H1),1)+1;

F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));

G1:=F1>REF(F1,1);

I1:=BACKSET(G1,2);

LD:=I1>REF(I1,1);{过滤后低点}

L2:=LD OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;

X2:=REF(BARSLAST(L2),1)+1;

F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));

G2:=F2>REF(F2,1);

I2:=BACKSET(G2,2);

HD:=I2>REF(I2,1);{过滤后高点}

DRAWLINE(LD,L,HD,H,0),COLORRED;

DRAWLINE(HD,H,LD,L,0),COLORGREEN;

J1:=BACKSET(BARSTATUS=2 ,MIN(BARSLAST(HD),BARSLAST(LD))+1);

J2:=J1>REF(J1,1);

DRAWLINE(J2,IF(HD,H,L),BARSTATUS=2 ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),DOTLINE,COLORWHITE;

C点:=BARSLAST(LD);

DRAWTEXT(LD AND BARSLAST(HD)<BARSLAST(REF(LD,1)) ,L-0.1,'Ａ'),COLORRED;

DRAWTEXT(HD,H+0.1,'Ｂ'),COLORGREEN;

高:=5;

低:=10;

高选:=1;

低选:=1;

波2:=1;

PURC:=CONST(FINDHIGH(H,0,高*5,高选));

PLZ:=CONST(BARSLAST(PURC=H))+1;

顶X:=CONST(IF(PLZ=1,H,REF(H,PLZ-1)));

QQT:=CONST(FINDLOW(L,0,低*10,低选));

PLL:=CONST(BARSLAST(QQT=L))+1;

低X:=CONST(IF(PLL=1,L,REF(L,PLL-1)));

DRAWKLINE(H,O,L,C);

顶点:=顶X,COLORRED;

底点:=低X,COLORRED;

波动速率:=100*((顶X-低X)/(IF(PLL>PLZ,低X,顶X)))/(PLL-PLZ),NODRAW,COLORMAGENTA;

波动幅度:=((顶X-低X)/(IF(PLL>PLZ,低X,顶X)))*100;

波动价位:=(顶X-低X)*(IF(PLL>PLZ,1,-1));

BPURC:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ<PLL,高,低)))*5,波2));

BPLZ:=CONST(BARSLAST(BPURC=H))+1;

BQQT:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ<PLL,高,低)))*5,波2));

BPLL:=CONST(BARSLAST(BQQT=L))+1;

BLC1:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ<PLL,高,低)))*5,波2));

BLC2:=CONST(BARSLAST(BPURC=H))+1;

BLC顶X:=CONST(IF(BPLZ=1,H,REF(H,BPLZ-1)));

BLC3:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ<PLL,高,低)))*5,波2));

B6C4:=CONST(BARSLAST(BQQT=L))+1;

BLC低X:=CONST(IF(BPLL=1,L,REF(L,BPLL-1)));

BASE:=IF(波动速率<0,BLC顶X,BLC低X)COLORRED;

BLCX:=IF(波动速率<0,-1,1);

{分析家公式网www.70822.com}

BLCZ:=(顶点-底点)*(IF(PLL>PLZ,1,-1));

B12:=BASE+(BLCZ*0.775)COLORRED;

B14:=BASE+(BLCZ*0.868)COLORRED;

B200:=BASE+(BLCZ*1)COLORRED;

XZDD:=IF(PLL>PLZ,BPLL,BPLZ);

STICKLINE(CURRBARSCOUNT=XZDD ,BASE,B200,0,0),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=XZDD,B12,'---------------------------Ｃ１')COLORC0FF7F;

DRAWTEXT(CURRBARSCOUNT=XZDD,B14,'---------------------------Ｃ２')COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=XZDD,B200,'--------------------------Ｃ３')COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,B12,CON2STR(B12,2)),COLORC0FF7F;

DRAWTEXT(CURRBARSCOUNT=10,B14,CON2STR(B14,2)),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,B200,CON2STR(B200,2)),COLORGREEN;

 

 

 

第二版

DRAWGBK(C>0, RGB(0,0,20),RGB(00,0,0),0,0,1);

DRAWKLINE(H,O,L,C);

A1:=REF(HIGH,5)=HHV(HIGH,2*6+1);

B1:=FILTER(A1,5);

C1:=BACKSET(B1,5+1);

D1:=FILTER(C1,5+1);{高点}

A2:=REF(LOW,5)=LLV(LOW,2*10+1);

B2:=FILTER(A2,5+1);

C2:=BACKSET(B2,5+1);

D2:=FILTER(C2,5);{低点}

E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;

E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;

L1:=(D2 AND NOT(D1 AND E1<E2));

H2:=D1 AND NOT(D2 AND E1>=E2);

X1:=REF(BARSLAST(H1),1)+1;

F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));

G1:=F1>REF(F1,1);

I1:=BACKSET(G1,2);

LD:=I1>REF(I1,1);{过滤后低点}

L2:=LD OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;

X2:=REF(BARSLAST(L2),1)+1;

www70822com:=REF(BARSLAST(L2),1)+1;

F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));

G2:=F2>REF(F2,1);

I2:=BACKSET(G2,2);

HD:=I2>REF(I2,1);{过滤后高点}

DRAWLINE(LD,L,HD,H,0),COLORRED;

DRAWLINE(HD,H,LD,L,0),COLORGREEN;

J1:=BACKSET(BARSTATUS=2 ,MIN(BARSLAST(HD),BARSLAST(LD))+1);

J2:=J1>REF(J1,1);

DRAWLINE(J2,IF(HD,H,L),BARSTATUS=2 ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),DOTLINE,COLORWHITE;

C点:=BARSLAST(LD);

DRAWTEXT(LD AND BARSLAST(HD)<BARSLAST(REF(LD,1)) ,L-0.1,'Ａ'),COLORRED;

DRAWTEXT(HD,H+0.1,'Ｂ'),COLORGREEN;

{分析家公式网www.70822.com}

高:=5;

低:=10;

高选:=1;

低选:=1;

波2:=1;

PURC:=CONST(FINDHIGH(H,0,高*5,高选));

PLZ:=CONST(BARSLAST(PURC=H))+1;

顶X:=CONST(IF(PLZ=1,H,REF(H,PLZ-1)));

QQT:=CONST(FINDLOW(L,0,低*10,低选));

PLL:=CONST(BARSLAST(QQT=L))+1;

低X:=CONST(IF(PLL=1,L,REF(L,PLL-1)));

DRAWKLINE(H,O,L,C);

顶点:=顶X,COLORRED;

底点:=低X,COLORRED;

波动速率:=100*((顶X-低X)/(IF(PLL>PLZ,低X,顶X)))/(PLL-PLZ),NODRAW,COLORMAGENTA;

波动幅度:=((顶X-低X)/(IF(PLL>PLZ,低X,顶X)))*100;

波动价位:=(顶X-低X)*(IF(PLL>PLZ,1,-1));

BPURC:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ<PLL,高,低)))*5,波2));

BPLZ:=CONST(BARSLAST(BPURC=H))+1;

BQQT:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ<PLL,高,低)))*5,波2));

BPLL:=CONST(BARSLAST(BQQT=L))+1;

BLC1:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ<PLL,高,低)))*5,波2));

BLC2:=CONST(BARSLAST(BPURC=H))+1;

BLC顶X:=CONST(IF(BPLZ=1,H,REF(H,BPLZ-1)));

BLC3:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ<PLL,高,低)))*5,波2));

B6C4:=CONST(BARSLAST(BQQT=L))+1;

BLC低X:=CONST(IF(BPLL=1,L,REF(L,BPLL-1)));

BASE:=IF(波动速率<0,BLC顶X,BLC低X)COLORRED;

BLCX:=IF(波动速率<0,-1,1);

BLCZ:=(顶点-底点)*(IF(PLL>PLZ,1,-1));

B12:=BASE+(BLCZ*0.775)COLORRED;

B14:=BASE+(BLCZ*0.868)COLORRED;

B200:=BASE+(BLCZ*1)COLORRED;

XZDD:=IF(PLL>PLZ,BPLL,BPLZ);

STICKLINE(CURRBARSCOUNT=XZDD ,BASE,B200,0,0),COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=XZDD,B12,'---------------------------Ｃ１')COLORC0FF7F;

DRAWTEXT(CURRBARSCOUNT=XZDD,B14,'---------------------------Ｃ２')COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=XZDD,B200,'--------------------------Ｃ３')COLORGREEN;

DRAWTEXT(CURRBARSCOUNT=10,B12,CON2STR(B12,2)),COLORC0FF7F;

DRAWTEXT(CURRBARSCOUNT=10,B14,CON2STR(B14,2)),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=10,B200,CON2STR(B200,2)),COLORGREEN;

 

 

 

飞狐交易师格式

{-----------------------☆功能开关------------------------}

{角度}

最初:=SYSPARAM(2);       最后:=SYSPARAM(3);      最高:=SYSPARAM(4);      最低:=SYSPARAM(5);

X_1:=最后-最初;       X_2:=HHVBARS(H,X_1+1);  X_3:=LLVBARS(L,X_1+1);  X_4:=BARPOS=(最后-X_3[最后]);

ZH_1:=BARSLAST(X_4);  ZH_2:=DATACOUNT-ZH_1[DATACOUNT];  ZH_3:=IF(BARPOS=ZH_2,X_4,0);  关注:=IF(ZH_3,10,0);{只显示最后一个信号}

X_5:=(最高-最低)/(最后-最初);                            X_6:=REF(L,BARSLAST(关注));

y1:=X_6*1.191;  y2:=X_6*1.382; y3:=X_6*1.5; y4:=X_6*1.618; y5:=X_6*1.809; y6:=X_6*2; y7:=X_6*2.382; y8:=X_6*1.236; y9:=X_6*1.764;y10:=X_6*2.50;y11:=X_6*2.618;y12:=X_6*2.809;y13:=X_6*3;

y14:=X_6*3.382;

{-----------------【图解模板】---------------------}

STICKLINE(关注,X_6,if(最高>y14,最高,y14),1,0),LINETHICK2,Color0000FF;//垂直竖线

PARTLINE(X_6,X_6),LINETHICK2,COLORRED;//横

{分割} {分析家公式网www.70822.com}

PARTLINE(C,y1),LINEDOT,COLORGRAY;

PARTLINE(C,y2),COLOR7B7B00;

PARTLINE(C,y3),LINETHICK2,COLORYELLOW;

PARTLINE(C,y4),COLOR7B7B00;

PARTLINE(C,y5),LINEDOT,COLORGRAY;

PARTLINE(C,y6),LINETHICK2,ColorFF8900;

PARTLINE(C,y7),LINETHICK1,COLORGREEN;

PARTLINE(C,y8),LINEDOT,COLORGRAY;

PARTLINE(C,y9),LINEDOT,COLORGRAY;

PARTLINE(C,y11),LINEDOT,Color008000;

PARTLINE(C,y12),LINEDOT,Color008000;

PARTLINE(C,y13),LINEDOT,Color008000;

PARTLINE(C,y14),LINETHICK2,COLORRED;

DRAWTEXT(关注,X_6,'低点起动./0.000 '),ALIGN2,ALIGN2,COLORRED;

DRAWTEXT(关注,y1,'曙光初现/0.191% '),ALIGN2,PXUP8,Color0089FF;

DRAWTEXT(关注,y2,'初显强势/0.382% '),ALIGN2,PXUP8,ColorFF7FFF;

DRAWTEXT(关注,y3,'压力转换/0.500% '),ALIGN2,PXUP8,COLORYELLOW;

DRAWTEXT(关注,y4,'强势突破/0.618% '),ALIGN2,PXUP8,COLORWHITE;

DRAWTEXT(关注,y5,'风险渐聚/0.809% '),ALIGN2,PXUP8,COLORCYAN;

DRAWTEXT(关注,y6,'刀口舔血/2.000% '),ALIGN2,PXUP8,ColorFF8900;

DRAWTEXT(关注,y7,'疯狂搏傻/2.382% '),ALIGN2,ALIGN2,COLORGREEN;

DRAWTEXT(关注,y8,'0.236% '),ALIGN2,PXUP8,Color0089FF;

DRAWTEXT(关注,y9,'0.764% '),ALIGN2,ALIGN2,COLORCYAN;

DRAWTEXT(关注,y11,'2.618% '),ALIGN2,ALIGN2,COLORGREEN;

DRAWTEXT(关注,y12,'2.809% '),ALIGN2,ALIGN2,COLORGREEN;

DRAWTEXT(关注,y13,' 拉\n 高\n 出\n 货\n 区 '),ALIGN2,ALIGN8,COLORWHITE;

DRAWTEXT(关注,y13,'3.300% '),ALIGN2,ALIGN2,COLORGREEN;

DRAWTEXT(关注,y14,'转换倍数/3.382% '),ALIGN2,ALIGN2,COLORRED;

DRAWTEXT(关注,y14,'（机构翻倍卖出区） '),ALIGN2,ALIGN8,COLORYELLOW;

DRAWTEXT(ISLASTBAR,y1,NUMTOSTR(y1,2)),SHIFT1,PXUP8,COLORGRAY;

DRAWTEXT(ISLASTBAR,y2,NUMTOSTR(y2,2)),SHIFT1,PXUP8,COLOR7B7B00;

DRAWTEXT(ISLASTBAR,y3,NUMTOSTR(y3,2)),SHIFT1,PXUP8,COLORYELLOW;

DRAWTEXT(ISLASTBAR,y4,NUMTOSTR(y4,2)),SHIFT1,PXUP8,COLOR7B7B00;

DRAWTEXT(ISLASTBAR,y5,NUMTOSTR(y5,2)),SHIFT1,PXUP8,COLORGRAY;

DRAWTEXT(ISLASTBAR,y6,NUMTOSTR(y6,2)),SHIFT1,PXUP8,ColorFF8900;

DRAWTEXT(ISLASTBAR,y7,NUMTOSTR(y7,2)),SHIFT1,PXUP8,COLORGREEN;

DRAWTEXT(ISLASTBAR,X_6,NUMTOSTR(X_6,2)),SHIFT1,PXUP8,COLORRED;

DRAWTEXT(ISLASTBAR,y8,NUMTOSTR(y8,2)),SHIFT1,PXUP8,COLORGRAY;

DRAWTEXT(ISLASTBAR,y9,NUMTOSTR(y9,2)),SHIFT1,PXUP8,COLORGRAY;

DRAWTEXT(ISLASTBAR,y11,NUMTOSTR(y11,2)),SHIFT1,PXUP8,COLORGREEN;

DRAWTEXT(ISLASTBAR,y12,NUMTOSTR(y12,2)),SHIFT1,PXUP8,COLORGREEN;

DRAWTEXT(ISLASTBAR,y13,NUMTOSTR(y13,2)),SHIFT1,PXUP8,COLORGREEN;

DRAWTEXT(ISLASTBAR,y14,NUMTOSTR(y14,2)),SHIFT1,PXUP8,COLORRED;