- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2006-6-6
|
|
回复 #60632 jokeer 的帖子
类似于黄金分割的画法吧
方法1:
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
A:=BACKSET(nnl,hhvBARS(h,lhnh)+1);
B:=A>REF(A,1);
A2:=BACKSET(nnl,LLVBARS(L,lhnh)+1);
B2:=A2>REF(A2,1);
前高:REF(H,BARSLAST(b)),PRECIS2,COLORRED,LINETHICK2;
DRAWTEXT(nnl,前高,'前高: ¥'+前高),ALIGN2,COLORGREEN;
前低:REF(L,BARSLAST(B2)),PRECIS2,COLORGREEN,LINETHICK2;
DRAWTEXT(nnl,前低*1.009,'前低: ¥'+前低),ALIGN2,COLORGREEN;
益:FINANCE2(33),linethick0,ColorBCFF8B,PRECIS2;
F1:((前高-前低)*0.236)+前低,PRECIS0,COLORFF00FF;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and nnl,F1,'0.236: ¥'+F1),ALIGN2,COLORGREEN;
F2:((前高-前低)*0.382)+前低,PRECIS0,COLORFF00FF;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and nnl,F2,'0.382: ¥'+F2),ALIGN2,COLORGREEN;
F3:((前高-前低)*0.5)+前低,PRECIS0,COLOR00ffff;
DRAWTEXT(nnl,F3,'0.5:¥'+F3),ALIGN2,COLORGREEN;
F4:((前高-前低)*0.618)+前低,PRECIS0,COLORFF00FF;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2)and nnl,F4,'0.618: ¥'+F4),ALIGN2,COLORGREEN;
F5:((前高-前低)*0.764)+前低,PRECIS0,COLORFF00FF;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and nnl,F5,'0.764: ¥'+F5),ALIGN2,COLORGREEN;
方法2:
A1:=BARSLAST((DISPSTATUS = 1)) + 1;
A2:=(999);
A3:=HHV(HIGH,A1);
A4:=LLV(LOW,A1);
A5:=A3 - A4;
A6:=A4 + (A5 * 0.236);
A7:=A4 + (A5 * 0.382);
A8:=A4 + (A5 * 0.618);
A9:=A4 + (A5 * 0.764);
DRAWRECTREL(1,0,A2,2,0),colorWhite;
DRAWRECTREL(1,((A2 * 0.236) - 2),A2,(A2 * 0.236),0),colorYellow;
DRAWRECTREL(1,((A2 * 0.382) - 2),A2,(A2 * 0.382),0),Color00AAAA;
DRAWRECTREL(1,((A2 * 0.618) - 2),A2,(A2 * 0.618),0),colorRed;
DRAWRECTREL(1,((A2 * 0.764) - 2),A2,(A2 * 0.764),0),colorGreen;
DRAWRECTREL(1,(A2 - 2),A2,A2,0),ColorFF0000;
DRAWTEXTREL(0,0,'100% '+A3),ColorAAAAAA;
DRAWTEXTREL(0,(A2 * 0.236),'0.764% '+A9),ColorAAAAAA;
DRAWTEXTREL(0,(A2 * 0.382),'0.618% '+A8),Color00AAAA;
DRAWTEXTREL(0,(A2 * 0.618),'0.382% '+A7),Color00AAAA;
DRAWTEXTREL(0,(A2 * 0.764),'0.236% '+A6),ColorAAAAAA;
DRAWTEXTREL(0,(A2 - 30),'最低 '+A3),ColorAAAAAA;
只做参考:*P :*P :*P
[ 本帖最后由 cgw000 于 2009-4-14 21:41 编辑 ] |
|
|