- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-4-8
|
|
原帖由 FlyKate 于 2007-8-12 12:51 发表 
我现在电脑里没软件，只能靠回忆点位了，如果从3564开始，那段是整个一个完整波型的I，随后的横盘是II，我现在标的是整段的III，III里面还有1-2-3-4-5，只要找出这个5在哪儿就OK了，因为后面还有一个陡直回撤 ...
呵呵，闲者无事，楼主的图非常的好，试用指标表达：- {形态}
- {-----------------------☆功能开关------------------------}
- {分割}
- hhh:=hhv(H,sysparam(3)-sysparam(2)+1);
- lll:=llv(L,sysparam(3)-sysparam(2)+1);
- 最高:=hhh[sysparam(3)],COLORYELLOW;
- 最低:lll[sysparam(3)];
- {形态-短}
- A1:=REF(H,M)=HHV(H,2*M+1); B1:=FILTER(A1,M); C1:=BACKSET(B1,M+1); D1:=FILTER(C1,M);
- A2:=REF(L,M)=LLV(L,2*M+1); B2:=FILTER(A2,M); C2:=BACKSET(B2,M+1); D2:=FILTER(C2,M);
- E1:=(REF(LLV(L,2*M),1)+REF(HHV(H,2*M),1))/2;
- E2:=(H+L)/2;
- H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=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,L,10000),X1));
- G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);
- L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1; X2:=REF(BARSLAST(L2),1)+1;
- F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
- G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);
- UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1); VV:=UU>REF(UU,1);
- WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2); XX:=WW>REF(WW,1);
- UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1); VV2:=UU2>REF(UU2,1);
- WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2); XX2:=WW2>REF(WW2,1);
- SZ1:=IF(BARSLAST(VV)<BARSLAST(VV2),VV,VV2);
- SZ2:=IF(BARSLAST(VV)<BARSLAST(VV2),L,H);
- tj涨:=LD and 1; s:=if(tj涨,L,0); tj跌:=HD and 1; s1:=if(tj跌,H,0);
- {形态-长}
- A3:=H; B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));
- D3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部长期高点}
- A4:=L>REF(L,REF(BARSLAST(LD),1)+1); B4:=REF(L,REF(BARSLAST(LD),1)+1);
- D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部长期低点}
- H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤，方法同前。只是不用考虑高低点出现在同一K线}
- X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
- G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1),LINETHICK0; {长期低点，也可供引用}
- L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
- X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
- G4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1),LINETHICK0;{长期高点，也可供引用}
- {划折线}
- K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1);
- K2:=K1>REF(K1,1);
- K3:=BACKSET(ISLASTBAR,MIN(BARSLAST(K2),BARSLAST(K2))+1); //控制长短期连线的显示周期
- {-----------------【图解模板】---------------------}
- {分割}
- PARTLINE(C,最高);
- PARTLINE(C ,最低),COLORred;
- PARTLINE(C,最低+(最高-最低)*0.191),LINEDOT,COLORWHITE;
- PARTLINE(C,最低+(最高-最低)*0.382),LINEDOT,COLORWHITE;
- PARTLINE(C,最低+(最高-最低)*0.5),COLORGREEN;
- PARTLINE(C,最低+(最高-最低)*0.618),LINEDOT,COLORWHITE;
- PARTLINE(C ,最低+(最高-最低)*0.809),LINEDOT,COLORWHITE;
- DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最低,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'最低↓'),ALIGN2,COLORred;
- DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),REF(最高,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'最高↑'),ALIGN2,COLORYELLOW;
- DRAWTEXT(BARPOS=SYSPARAM(2),REF((最低+(最高-最低)*0.191)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黄金 0.191↑'+NUMTOSTR(最低+(最高-最低)*0.191,2)),COLORWHITE;
- DRAWTEXT(BARPOS=SYSPARAM(2),REF((最低+(最高-最低)*0.382)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黄金 0.382↑'+NUMTOSTR(最低+(最高-最低)*0.382,2)),COLORWHITE;
- DRAWTEXT(BARPOS=SYSPARAM(2),REF((最低+(最高-最低)*0.5)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'50% ↑'+NUMTOSTR(最低+(最高-最低)*0.5,2)),COLORGREEN;
- DRAWTEXT(BARPOS=SYSPARAM(2),REF((最低+(最高-最低)*0.618)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黄金 0.618↑'+NUMTOSTR(最低+(最高-最低)*0.618,2)),COLORWHITE;
- DRAWTEXT(BARPOS=SYSPARAM(2),REF((最低+(最高-最低)*0.809)*0.996,BARSLAST(BARSCOUNT(C)=SYSPARAM(2))),'黄金 0.809↑'+NUMTOSTR(最低+(最高-最低)*0.809,2)),COLORWHITE;
- {K线}
- STICKLINE(O>=C,H,L,0,0),ColorFFA900;
- STICKLINE(O>=C,C,O,7,0),ColorFFA900;
- STICKLINE(C>=O,L,H,0,0),Color5050FF;
- STICKLINE(C>=O,C,O,7,0),Color5050FF;
- {划折线}
- DRAWLINE(LD and K3,L,HD,H,0),POINTDOT,COLORYELLOW;;//短期连线
- DRAWLINE(HD and K3,H,LD,L,0),POINTDOT,COLORYELLOW;;//短期连线
- J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1);
- J2:=J1>REF(J1,1);
- DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),POINTDOT,COLORYELLOW;//短期连线
- DRAWICON(HH and K3,H,12); //高点始点
- DRAWICON(LL and K3,L,10); //低点始点
- if datatype=6 then exit; //仅60分钟周期上图运行该指标
- DRAWLINE(K2,IF(HZ,H,L),ISLASTBAR,C,0),COLORGREEN; {最后的长期连线，连在收盘价上}
- //
[ 本帖最后由 AHFYXL1 于 2007-8-12 13:33 编辑 ] |
-
-
|
|
发表于 2007-8-12 13:02
楼主
