分享三款黄金切割率公式2007-02-19 21:06:34| 分类: 默认分类 阅读29 评论0 字号:大中小 订阅 分享三款黄金切割率公式
-------------------------------------------------------------------------------- 一 黄金切割率_BOTTOM版: 说明: 1 在K线最后成交日的最后显示画面里自动找到最高价及最低价画出黄金切割线及值,固定显示于画面上。 2 可往后平移显示画面使取舍范围改变而达到要求。 3 反弹或反转自动改变黄金切割刻度单位。 {主图迭加} N:=SYSPARAM(3)-SYSPARAM(2); A:=BACKSET(ISLASTBAR,HHVBARS(H,N)+1); B:=COUNT(A,N)=1; 前高:REF(H,BARSLAST(B)),COLORWHITE; DRAWNUMBER(ISLASTBAR,前高,前高,2),aligno5,SHIFT3,COLORWHITE; DRAWTEXT(ISLASTBAR,前高,'(前高)'),SHIFT7,COLORWHITE; A2:=BACKSET(ISLASTBAR,LLVBARS(L,N)+1); B2:=A2>REF(A2,1); 前低:REF(L,BARSLAST(B2)),COLORWHITE; DRAWNUMBER(ISLASTBAR,前低,前低,2),aligno5,SHIFT3,COLORWHITE; DRAWTEXT(ISLASTBAR,前低,'(前低)'),SHIFT7,COLORWHITE; F1:((前高-前低)*0.236)+前低,COLORYELLOW; DRAWNUMBER(ISLASTBAR,F1,F1,2),aligno5,SHIFT3,COLORYELLOW; DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F1,'(0.236)'),SHIFT7,COLORWHITE; DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F1,'(0.764)'),SHIFT7,COLORWHITE; F2:((前高-前低)*0.382)+前低,COLORFF00FF; DRAWNUMBER(ISLASTBAR,F2,F2,2),aligno5,SHIFT3,COLORFF00FF; DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F2,'(0.382)'),SHIFT7,COLORWHITE; DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F2,'(0.618)'),SHIFT7,COLORWHITE; F3:((前高-前低)*0.5)+前低,COLORFFFF00; DRAWNUMBER(ISLASTBAR,F3,F3,2),aligno5,SHIFT3,COLORFFFF00; DRAWTEXT(ISLASTBAR,F3,'(0.5)'),SHIFT7,COLORWHITE; F4:((前高-前低)*0.618)+前低,COLORFF00FF; DRAWNUMBER(ISLASTBAR,F4,F4,2),aligno5,SHIFT3,COLORFF00FF; DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F4,'(0.618)'),SHIFT7,COLORWHITE; DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F4,'(0.382)'),SHIFT7,COLORWHITE; F5:((前高-前低)*0.764)+前低,COLORYELLOW; DRAWNUMBER(ISLASTBAR,F5,F5,2),aligno5,SHIFT3,COLORYELLOW; DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F5,'(0.764)'),SHIFT7,COLORWHITE; DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F5,'(0.236)'),SHIFT7,COLORWHITE; -------------------------------------------------------------------------------- 二 黄金切割率_MOUSE版 说明: 1 使用此功能不可钩选管理-系统选项-可选设定-十字光标不跟随光标移动,的设定。 2 在K线最后成交日的最后显示画面里鼠标右键按两下使十字光标出现,自由移动光标将自动找到从十字光标的后一日 至最后一根K线间的最高价及最低价画出黄金切割线及值,显示于画面上。 3 反弹或反转自动改变黄金切割刻度单位。 4 在K线最后成交日的最后显示画面里鼠标右键再按两下使十字光标消失,黄金切割线及值自动消失。 {主图迭加} N:=SYSPARAM(3)-SYSPARAM(1); A:=BACKSET(ISLASTBAR,HHVBARS(H,N)+1); B:=COUNT(A,N)=1; 前高:IF(N>0,REF(H,BARSLAST(B)),0),COLORWHITE; DRAWNUMBER(ISLASTBAR,前高,前高,2),aligno5,SHIFT3,COLORWHITE; DRAWTEXT(ISLASTBAR,前高,'(前高)'),SHIFT7,COLORWHITE; A2:=BACKSET(ISLASTBAR,LLVBARS(L,N)+1); B2:=A2>REF(A2,1); 前低:REF(L,BARSLAST(B2)),COLORWHITE; DRAWNUMBER(ISLASTBAR,前低,前低,2),aligno5,SHIFT3,COLORWHITE; DRAWTEXT(ISLASTBAR,前低,'(前低)'),SHIFT7,COLORWHITE; F1:((前高-前低)*0.236)+前低,COLORYELLOW; DRAWNUMBER(ISLASTBAR,F1,F1,2),aligno5,SHIFT3,COLORYELLOW; DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F1,'(0.236)'),SHIFT7,COLORWHITE; DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F1,'(0.764)'),SHIFT7,COLORWHITE; F2:((前高-前低)*0.382)+前低,COLORFF00FF; DRAWNUMBER(ISLASTBAR,F2,F2,2),aligno5,SHIFT3,COLORFF00FF; DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F2,'(0.382)'),SHIFT7,COLORWHITE; DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F2,'(0.618)'),SHIFT7,COLORWHITE; F3:((前高-前低)*0.5)+前低,COLORFFFF00; DRAWNUMBER(ISLASTBAR,F3,F3,2),aligno5,SHIFT3,COLORFFFF00; DRAWTEXT(ISLASTBAR,F3,'(0.5)'),SHIFT7,COLORWHITE; F4:((前高-前低)*0.618)+前低,COLORFF00FF; DRAWNUMBER(ISLASTBAR,F4,F4,2),aligno5,SHIFT3,COLORFF00FF; DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F4,'(0.618)'),SHIFT7,COLORWHITE; DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F4,'(0.382)'),SHIFT7,COLORWHITE; F5:((前高-前低)*0.764)+前低,COLORYELLOW; DRAWNUMBER(ISLASTBAR,F5,F5,2),aligno5,SHIFT3,COLORYELLOW; DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and ISLASTBAR,F5,'(0.764)'),SHIFT7,COLORWHITE; DRAWTEXT(BARSLAST(B)<BARSLAST(B2) and ISLASTBAR,F5,'(0.236)'),SHIFT7,COLORWHITE; -------------------------------------------------------------------------------- 三 黄金切割率_ALLTIME版 说明: 1 可自由平移任何画面在画面里自动找到最高价及最低价画出黄金切割线及值,固定显示于画面上。 2 可局部放大来变化侦测的区域范围。 3 因可移动到较早的历史K线图上使用后端没有位置可显示所以只在最后画面及最上面显示值,刻度省略。 {主图迭加} 前高:SYSPARAM(4),colorwhite; DRAWNUMBER(ISLASTBAR,前高,前高,2),aligno5,SHIFT3,COLORWHITE; DRAWTEXT(ISLASTBAR,前高,'(前高)'),SHIFT7,COLORWHITE; 前低:SYSPARAM(5),colorwhite; DRAWNUMBER(ISLASTBAR,前低,前低,2),aligno5,SHIFT3,COLORWHITE; DRAWTEXT(ISLASTBAR,前低,'(前低)'),SHIFT7,COLORWHITE; F1:((前高-前低)*0.236)+前低,COLORYELLOW; DRAWNUMBER(ISLASTBAR,F1,F1,2),aligno5,SHIFT3,COLORYELLOW; F2:((前高-前低)*0.382)+前低,COLORFF00FF; DRAWNUMBER(ISLASTBAR,F2,F2,2),aligno5,SHIFT3,COLORFF00FF; F3:((前高-前低)*0.5)+前低,COLORFFFF00; DRAWNUMBER(ISLASTBAR,F3,F3,2),aligno5,SHIFT3,COLORFFFF00; F4:((前高-前低)*0.618)+前低,COLORFF00FF; DRAWNUMBER(ISLASTBAR,F4,F4,2),aligno5,SHIFT3,COLORFF00FF; F5:((前高-前低)*0.764)+前低,COLORYELLOW; DRAWNUMBER(ISLASTBAR,F5,F5,2),aligno5,SHIFT3,COLORYELLOW; |
|