- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-4-8
|
|
发表于 2009-8-23 12:29
|
原帖由 春雨冬雪 于 2009-8-23 11:25 发表 
只作出了个废品,还应加其他条件(如有大阳等),放弃了。贴出图和源码(选股的,指标可以将最后一句去掉,再去掉几个画线语句前面的“//”,去掉数值后面的等号)
n: 5 1 10
A1:=REF(HIGH,3)=HHV(HIG ...
谢谢.......学习了..........:*19*: vv b:b
探讨:下降线是否可以这样?- //n: 3 1 10
- A1:=REF(HIGH,3)=HHV(HIGH,2*n+1);
- B1:=FILTER(A1,3);
- C1:=BACKSET(B1,3+1);
- D1:=FILTER(C1,3);
- A2:=REF(LOW,3)=LLV(LOW,2*n+1);
- B2:=FILTER(A2,3);
- C2:=BACKSET(B2,3+1);
- D2:=FILTER(C2,3);
- E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
- E2:=(HIGH+LOW)/2;
- H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR 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 ISLASTBAR 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);
- 低1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
- 一低:=低1>REF(低1,1);
- 高1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
- 一高:=高1>REF(高1,1);
- 前一低:=REF(L,BARSLAST(一低)),COLORGREEN,POINTDOT,LINETHICK0;
- 前一高:=REF(H,BARSLAST(一高)),COLORRED,POINTDOT,LINETHICK0;
- 低点周期:=BARSSINCE(前一低);
- 高点周期:=BARSSINCE(前一高);
- tj:=高点周期<低点周期 and (低点周期-高点周期)>=高点周期;
- J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1);
- J2:=J1>REF(J1,1);
- STICKLINE(tj and 一高,前一高,前一低,0,0),LINEDOT,COLORWHITE;//最高竖线
- DRAWSL(tj and 一高,前一高,(前一高-前一低)/(低点周期-高点周期),低点周期-高点周期,1),LINEDOT,COLORWHITE;//左斜边
- DRAWSL(tj and 一高,前一高,(前一高-前一低)/(高点周期-低点周期),低点周期-高点周期,0),LINEDOT,COLORWHITE;//右斜边
- DRAWSL(tj and 一高,前一低,0,低点周期-高点周期,0),LINEDOT,COLORWHITE;//左底边
- DRAWSL(tj and 一高,前一低,0,低点周期-高点周期,0),LINEDOT,COLORWHITE;//右底边
- 高点:=前一高;
- 低点:=l;
- jd:=90-atan(高点周期/(高点-低点)*(180/3.1415927));
- jw:=前一低+(低点周期/tan(jd/180*3.1415927));
- 等角度升:LINEVALUE(一低,前一低,tj and ISLASTBAR,jw,0,0),ColorFFA9FF;//等角度上升斜线
- 下降线:LINEVALUE(tj and J2,H,L<=LLV(L,3),L,0,0),LINETHICK2,ColorFFB900;//实际下降线
- DRAWTEXT(CROSS(等角度升,下降线),L,'选'),ALIGN,PXDN8,COLORMAGENTA;
- //
复制代码
[ 本帖最后由 AHFYXL1 于 2009-8-23 14:35 编辑 ] |
|
|