以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  看图修改公式  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=182562)
--  作者：zygq
--  发布时间：2020/10/19 2:16:18
--  看图修改公式
  

 老师好，下图是我用百分比画线工具所画，我想用编写公式，替代人工画。

 

拐点画线方向与拐点右边K线方向一致。 也就是说：当前K线趋势向上，拐点底点按百分比画线（工具）比例向上画平行线，当前K线趋趋势向下，高点按百分比画线（工具）比例向下画平行线。百分比取数字1.38，1，0.5


 



图片点击可在新窗口打开查看此主题相关图片如下：k线转折处画百比线.jpg
图片点击可在新窗口打开查看

 

 

 

请老师修改的公式如下：

 

 

 

  XXX:=20;
HH:=H>=HHV(H,XXX) &&H>=REFX(HHV(H,XXX),XXX) ;
LL:=L<=LLV(L,XXX) &&L<=REFX(LLV(L,XXX),XXX) ;
HHH:=IF(HH,H,0);
LLL:=IF(LL,L,99999);

NH:=BARSLAST(HH)+1;
NL:=BARSLAST(LL)+1;

AH:BACKSET(COUNT(HH,SUMBARS(LL,2))>=1&&LL,HHVBARS(HHH,SUMBARS(LL,2))+1);//低点前第一个高点
AL:BACKSET(COUNT(LL,SUMBARS(HH,2))>=1&&HH,LLVBARS(LLL,SUMBARS(HH,2))+1);//高点前第一个低点

N1:=BACKSET(ISLASTBAR&&BARSLAST(LL)<BARSLAST(HH),LLVBARS(LLL,BARSLAST(HH))+1);
N2:=BACKSET(ISLASTBAR&&BARSLAST(LL)>BARSLAST(HH),HHVBARS(HHH,BARSLAST(LL))+1);

HHHH:=CROSS(AH=1,0.5)||CROSS(N2=1,0.5);
LLLL:=CROSS(AL=1,0.5)||CROSS(N1=1,0.5);
DRAWLINE(HHHH,H,LLLL,L,0),LINETHICK3,COLORGREEN;
DRAWLINE(LLLL,L,HHHH,H,0),LINETHICK3,COLORRED;

HH1:=REF(H,SUMBARS(HHHH,1)-1);
HH2:=REF(H,SUMBARS(HHHH,2)-1);
LL1:=REF(L,SUMBARS(LLLL,1)-1);
LL2:=REF(L,SUMBARS(LLLL,2)-1);

DRAWSL(ISLASTBAR,LL1+(HH1-LL1)*1.382,0,-SUMBARS(HHHH,1),0,COLORRED),DOT;
DRAWNUMBER(ISLASTBAR,LL1+(HH1-LL1)*1.382,LL1+(HH1-LL1)*1.382,2,COLORRED),VALIGN2;

 


 
--  作者：FireScript
--  发布时间：2020/10/19 10:09:07
--  
这种无法画出来的。画线的思路必须定义的足够明确，“当前K线趋势向上” 这种根本是不知道是什么样的逻辑的。这个依然属于肉眼观察的层面。
--  作者：zygq
--  发布时间：2020/10/19 11:45:51
--  
我从文华论坛找到最后一笔的部分公式，如下：//最后一段画线
N1:=BARSLAST(HHH)+1;
N2:=BARSLAST(LLL)+1;
DRAWLINE3(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),REF(L,N2-1),N2-1,ISLASTBAR,H,0,0),COLORRED,LINETHICK3;//红色
DRAWLINE3(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),REF(H,N1-1),N1-1,ISLASTBAR,L,0,0),COLORGREEN,LINETHICK3;//绿色

DRAWSL(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*1.38,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*1,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*0.5,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*1.38,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*1,0,100,0,COLORMAGENTA);
DRAWSL(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*0.5,0,100,0,COLORMAGENTA);
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*1.38,\'1.38\'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*1,\'1\'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N1&&H<REF(H,N1-1),L+(REF(H,N1-1)-L)*0.5,\'0.5\'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*1.38,\'1.38\'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*1,\'1\'),ALIGN2,VALIGN1;
DRAWTEXT(ISLASTBAR&&MIN(N1,N2)=N2&&L>REF(L,N2-1),H-(H-REF(L,N2-1))*0.5,\'0.5\'),ALIGN2,VALIGN1;



图如下：
图片点击可在新窗口打开查看此主题相关图片如下：snipaste_2020-10-19_11-33-39最后一笔画线.jpg
图片点击可在新窗口打开查看



请老师修改后，导入下面的公式
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:无笔高低数字无中枢主图.rar