可否帮忙改为文华财经的指标　[文华财经]

顶价:=REF(H,BARSLAST(H>REF(H,1)));
底价:=REF(L,BARSLAST(L<REF(L,1)));
分型顶0:=H>REF(顶价,1) AND L>REF(底价,1);
分型底0:=L<REF(底价,1) AND H<REF(顶价,1);

分型顶1:=分型顶0 AND H=HHV(H,BARSLAST(分型底0));
分型底1:=分型底0 AND L=LLV(L,BARSLAST(分型顶0));

分型顶:FILTER(分型顶1,BARSLAST(分型底1));
分型底:=FILTER(分型底1,BARSLAST(分型顶1));

 {二、对符合形成笔条件的分型节点进行粗选。};
 {注：符合笔条件的分型应符合缠论以下条件：
     1、力度：本笔的起点与终点之间，必须存在最高的低点与最低的高点分离（缠论无要求，可删除）
     2、包含：无包含关系的K线数量必须达到二根以上，即：右肩+左肩+本笔。
     3、数量：本笔所有K线数量，在无包含关系的情况下，除起点K线外，其余数量必须达到三以上，即：右肩+过渡+左肩+本笔。};
 {21、以分型顶底为起点形成笔的要求，进行第一次筛选，得到笔的第一类过渡期顶、底。};
UP1:=BARSLAST(分型底);
顶力度1:=HHV(L,UP1+1)>LLV(H,UP1+1);
顶包含1:=COUNT(L>REF(L,1),UP1)>2 AND COUNT(H>REF(H,1),UP1)>2;

 DN1:=BARSLAST(分型顶);
底力度1:=HHV(L,DN1+1)>LLV(H,DN1+1);
底包含1:=COUNT(H<REF(H,1),DN1)>2 AND COUNT(L<REF(L,1),DN1)>2;

笔顶10:=分型顶 AND UP1>3 AND 顶力度1 AND 顶包含1;
笔底10:=分型底 AND DN1>3 AND 底力度1 AND 底包含1;

 {211：取同一笔中的最高点或最低点为笔的分型顶、底端，并过滤};
笔顶11:=笔顶10 AND H=HHV(H,BARSLAST(笔底10));
笔底11:=笔底10 AND L=LLV(L,BARSLAST(笔顶10));

 {212：针对前述顶底再次过滤同一笔中的最高点或最低点为笔的分型顶、底端，并过滤};
笔顶12:=笔顶11 AND H=HHV(H,BARSLAST(笔底11));
笔底12:=笔底11 AND L=LLV(L,BARSLAST(笔顶11));

笔顶1:=FILTER(笔顶12,BARSLAST(笔底12));
笔底1:=FILTER(笔底12,BARSLAST(笔顶12));

 {22、以第一类过渡期顶、底分型为起点形成笔的要求，进行第二次筛选，得到笔的第二类过渡期顶、底。};
 {注：对以顶底分型不成笔的节点，但对第一类过渡顶底满足笔的条件，应选入。}
UP2:=BARSLAST(笔底1);
顶力度2:=HHV(L,UP2+1)>LLV(H,UP2+1);
顶包含2:=COUNT(L>REF(L,1),UP2)>2 AND COUNT(H>REF(H,1),UP2)>2;

 DN2:=BARSLAST(笔顶1);
底力度2:=HHV(L,DN2+1)>LLV(H,DN2+1);
底包含2:=COUNT(H<REF(H,1),DN2)>2 AND COUNT(L<REF(L,1),DN2)>2;

笔顶20:=分型顶 AND UP2>3 AND 顶力度2 AND 顶包含2;
笔底20:=分型底 AND DN2>3 AND 底力度2 AND 底包含2;

 {221：取同一笔中的最高点或最低点为笔的分型顶、底端};
笔顶21:=笔顶20 AND H=HHV(H,BARSLAST(笔底20));
笔底21:=笔底20 AND L=LLV(L,BARSLAST(笔顶20));

笔顶2:=FILTER(笔顶21,BARSLAST(笔底21));
笔底2:=FILTER(笔底21,BARSLAST(笔顶21));

 {三、合并第一类过渡期顶、底和第二类过渡期顶、底，作为后续分型的参考节点。};
笔顶3:=笔顶1 OR 笔顶2;
笔底3:=笔底1 OR 笔底2;

 {四、前述二种过渡类顶底合并后，存在持续分型、不成笔分型，对这类非笔分型节点进行以下筛选：};
 {41、第一次过滤以前述“笔顶底3”为起止点的持续性的高底点分型节点，删除非本笔最高、最低点的节点，并向前过滤。};
笔顶41:=FILTER(笔顶3 AND H=HHV(H,BARSLAST(笔底3)),BARSLAST(笔底3));

 来源:程序化99

 来源: WWW.CXH99.COM