请老师帮忙编写公式

技术009

1.“第一根 最高价小于 H1最低价的阳线”应该是这里的理解有偏差吧。代码里是相当于找到第一个小于H1最低价的K，然后判断是否是阳线。

你这里看样子你的意思是 从后面的阳线里面找到第一个满足 小于H1最低价的K。

2.H1的条件 你要改成 突破前面20个K的最高价？

103610

技术009 发表于 2021-10-26 15:59
1.“第一根 最高价小于 H1最低价的阳线”应该是这里的理解有偏差吧。代码里是相当于找到第一个小于H1最低价 ...

1. “从后面的阳线里面找到第一个满足 小于H1最低价的K”这样理解是对的
2. "H1的条件 你要改成 突破前面20个K的最高价？" 是的

技术009

[PEL] 复制代码

H1:=ISUP AND C>REF(HHV(H,20),1);
LEN1:=SUMBARS(H1,1);
H1L:=VALUEWHEN(H1,L);
YXH1:=C<REF(HHV(H,LEN1),1) AND ISDOWN AND COUNT(C<H1L AND ISDOWN,LEN1-1)=1 AND C<H1L;
   
H2:=C<REF(HHV(H,LEN1),1) AND ISUP AND  COUNT(H<H1L AND ISUP,LEN1-1)=1 AND H<H1L;
 
H2L:=VALUEWHEN(H2,L);
LEN2:=SUMBARS(H2,1);
H3:=C<REF(HHV(H,LEN1),1) AND ISUP AND  COUNT(H<H2L AND ISUP,LEN2-1)=1 AND H<H2L;
 
H3L:=VALUEWHEN(H3,L);
LEN3:=SUMBARS(H3,1);
H4:=C<REF(HHV(H,LEN1),1) AND ISUP AND  COUNT(H<H3L AND ISUP,LEN3-1)=1 AND H<H3L;
 
DRAWTEXT(H1,L-2*MINDIFF,'H1');
DRAWTEXT(YXH1,L-2*MINDIFF,'YXH1',COLORYELLOW,0);
DRAWTEXT(H2,L-2*MINDIFF,'H2');
DRAWTEXT(H3,L-2*MINDIFF,'H3');
DRAWTEXT(H4,L-2*MINDIFF,'H4');

103610

谢谢老师,没问题了,帮我把剩下的写完吧

技术009

[PEL] 复制代码

L1:=ISDOWN AND C<REF(LLV(L,20),1);
LEN4:=SUMBARS(L1,1);
L1H:=VALUEWHEN(L1,H);
YXL1:=C>REF(LLV(L,LEN4),1) AND ISUP AND COUNT(C>L1H AND ISUP,LEN4-1)=1 AND C>L1H;
    
L2:=C>REF(LLV(L,LEN4),1) AND ISDOWN AND  COUNT(L>L1H AND ISDOWN,LEN4-1)=1 AND L>L1H;
  
L2H:=VALUEWHEN(L2,H);
LEN5:=SUMBARS(L2,1);
L3:=C>REF(LLV(L,LEN4),1) AND ISDOWN AND  COUNT(L>L2H AND ISDOWN,LEN5-1)=1 AND L>L2H;
  
L3H:=VALUEWHEN(L3,H);
LEN6:=SUMBARS(L3,1);
L4:=C>REF(LLV(L,LEN4),1) AND ISDOWN AND  COUNT(L>L3H AND ISDOWN,LEN6-1)=1 AND L>L3H;

DRAWTEXT(L1,L-2*MINDIFF,'L1');
DRAWTEXT(YXL1,L-2*MINDIFF,'YXL1',COLORYELLOW,0);
DRAWTEXT(L2,L-2*MINDIFF,'L2');
DRAWTEXT(L3,L-2*MINDIFF,'L3');
DRAWTEXT(L4,L-2*MINDIFF,'L4');