老蒂之黄金叠加区域
C/C++ Code复制内容到剪贴板
- {趋势主图 飞狐}
- input: k(1,1,2),n1(4,1,255),n(10,1,255),p1(3,1,255);
- wN:=p1;{原码 N:=3;}
- wA1:=REF(H,wN)=HHV(H,2*wN+1); wB1:=FILTER(wA1,wN);
- wC1:=BACKSET(wB1,wN+1);
- wD1:=FILTER(wC1,wN);{高点}
- wA2:=REF(L,wN)=LLV(L,2*wN+1);
- wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN+1);
- wD2:=FILTER(wC2,wN);{低点}
- wE1:=(REF(LLV(L,2*wN),1)+REF(HHV(H,2*wN),1))/2;
- wE2:=(H+L)/2;
- wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR BARSTATUS=2 OR BARSCOUNT(C)=1;
- wL1:=(wD2 AND NOT(wD1 AND wE1<wE2));
- wH2:=wD1 AND NOT(wD2 AND wE1>=wE2);
- wX1:=REF(BARSLAST(wH1),1)+1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,L,10000),wX1));
- wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2);
- wLD:=wI1>REF(wI1,1);{过滤后低点}
- wL2:=wLD OR BARSTATUS=2 OR BARSCOUNT(C)=1;
- wX2:=REF(BARSLAST(wL2),1)+1;
- wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,H,0),wX2));
- wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2);
- wHD:=wI2>REF(wI2,1);{过滤后高点}
- wR1:=BACKSET(BARSTATUS=2,BARSLAST(wHD)+1);
- wS1:=wR1>REF(wR1,1); {前一高}
- wT1:=BACKSET(BARSTATUS=2,BARSLAST(wLD)+1); wU1:=wT1>REF(wT1,1); {前一低}
- wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1)+2); wS2:=wR2>REF(wR2,1); {前二高}
- wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1)+2); wU2:=wT2>REF(wT2,1); {前二低}
- wT3:=BACKSET(wU2,REF(BARSLAST(wLD),1)+2); wU3:=wT3>REF(wT3,1); {前三低}
- wT4:=BACKSET(wU3,REF(BARSLAST(wLD),1)+2); wU4:=wT4>REF(wT4,1); {前四低}
- wR3:=BACKSET(wS2,REF(BARSLAST(wHD),1)+2); wS3:=wR3>REF(wR3,1); {前三高}
- wR4:=BACKSET(wS3,REF(BARSLAST(wHD),1)+2); wS4:=wR4>REF(wR4,1); {前四高}
- {DRAWLINE(wS2,H,wS1,H,1),Color008888; {★压力１:}
- DRAWLINE(wU2,L,wU1,L,1),POINTDOT,Color008888;{★支撑１:}
- DRAWLINE(wS3,H,wS2,H,1),Color888000; {★压力２:}
- DRAWLINE(wU3,L,wU2,L,1),POINTDOT,Color888000;{★支撑２:}
- DRAWLINE(wS4,H,wS3,H,1),Color0000CC;{★压力３:}
- DRAWLINE(wU4,L,wU3,L,1),POINTDOT,Color0000CC;{★支撑３:};}
- s1:=BARSSINCE(wS1)+1;
- s:=BARSSINCE(wS2)+1;
- s前:=BARSSINCE(wS3)+1;
- s后:=BARSSINCE(ws4)+1;
- if k=1 then begin
- jj:=AMOUNT/v/qq;
- {sum(jj,s)/s;}
- sum(jj,s)/s;
- sum(jj,s前)/s前;
- sum(jj,s后)/s后;
- sum(jj,s1)/s1;
- end;
- if k=2 then begin
- sum(h,s)/s;
- sum(h,s前)/s前;
- sum(h,s后)/s后;
- sum(h,s1)/s1;
- end;
- 高1:=REF(H,BARSLAST(wS1));
- 高2:=REF(H,BARSLAST(wS2));
- 高3:=REF(H,BARSLAST(wS3));
- 高4:=REF(H,BARSLAST(wS4));
- 选高1:=max(H,Max(高1,高2));
- 低1:=REF(L,BARSLAST(wU1));
- 低2:=REF(L,BARSLAST(wU2));
- 低3:=REF(L,BARSLAST(wU3));
- 低4:=REF(L,BARSLAST(wU4));
- 选低1:=min(L,min(低2,低1));
- 选低2:=min(L,min(低4,低3));
- 长高:选高1,LINETHICK2;
- 长低:选低1,LINETHICK2;
- 长比:(C-长低)/(长高-长低),LINETHICK0;
- 获利比:((长高-长低)/长低),LINETHICK0;
- //PARTLINE(1,长低+(长高-长低)/2),COLORRED;{长高到长低50%的回撤位}
- PARTLINE(1,长低+(长高-长低)*0.382),POINTDOT,COLORDDDDDD;{长高到长低1/3的回撤位}
- PARTLINE(1,长低+(长高-长低)*0.618),linedot,COLORDDDDDD;{长高到长低2/3的回撤位}
- 长高1:选高1,COLORcyan,LINETHICK2;
- 长低1:选低2,COLORcyan,LINETHICK2;
- 长比:=(C-长低1)/(长高1-长低1),LINETHICK0;
- 获利比:=((长高1-长低1)/长低1),LINETHICK0;
- PARTLINE(1,长低1+(长高1-长低1)*0.382),POINTDOT,COLORcyan;{长高到长低1/3的回撤位}
- PARTLINE(1,长低1+(长高1-长低1)*0.618),linedot,COLORcyan;{长高到长低2/3的回撤位}
- aa:=长低+(长高-长低)*0.618;
- aa1:=长低1+(长高1-长低1)*0.382;
- aa2:=长低1+(长高1-长低1)*0.618;//小
- aa3:=长低+(长高-长低)*0.382;
- 选:If(aa2<aa and aa2>aa3,1,0),linethick0;
- //FILLRGN(选=1,aa2,aa3),Color000075;
- STICKLINE(选=1 OR ISLASTBAR ,aa2,aa3,0.1,0),LINEDOT,COLOR9999DD;
- {工能开关
- sum(h,s)/s;
- sum(h,s前)/s前;
- sum(h,s后)/s后;
- sum(h,s1)/s1;}
