[求助]请帮忙将飞狐公式修改成完整的金字塔的，拜托谢谢了！ - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

A1:=REF(HIGH,2)=HHV(HIGH,2*2+1); B1:=FILTER(A1,2); C1:=BACKSET(B1,2+1); D1:=FILTER(C1,2);{高点}

A2:=REF(LOW,2)=LLV(LOW,2*2+1); B2:=FILTER(A2,2); C2:=BACKSET(B2,2+1); D2:=FILTER(C2,2);{低点}

E1:=(REF(LLV(LOW,2*2),1)+REF(HHV(HIGH,2*2),1))/2;

E2:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;

L1:=(D2 AND NOT(D1 AND E1<E2));

H2:=D1 AND NOT(D2 AND E1>=E2);

X1:=REF(BARSLAST(H1),1)+1;

F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));

G1:=F1>REF(F1,1);

I1:=BACKSET(G1,2);

LD:=I1>REF(I1,1);{过滤后低点}

L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;

X2:=REF(BARSLAST(L2),1)+1;

F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));

G2:=F2>REF(F2,1);

I2:=BACKSET(G2,2);

HD:=I2>REF(I2,1);{过滤后高点}

//DRAWLINE(LD,LOW,HD,HIGH,0),COLOR0000cc,LINEDOT,LINETHICK1;

//DRAWLINE(HD,HIGH,LD,LOW,0),COLOR0000cc,,LINEDOT,LINETHICK1;

//J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1);

//J2:=J1>REF(J1,1);

//DRAWLINE(J2,IF(HD,HIGH,LOW),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),HIGH,LOW),0),LINEDOT,COLOR0000cc,LINETHICK1;

{以上语句为新结构波浪}

A3:=HIGH<REF(HIGH,REF(BARSLAST(HD),1)+1);

B3:=REF(HIGH,REF(BARSLAST(HD),1)+1);

D3:=A3 AND B3 AND HD;

E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2);

HH:=E3>REF(E3,1);{找出全部长期高点}

A4:=LOW>REF(LOW,REF(BARSLAST(LD),1)+1);

B4:=REF(LOW,REF(BARSLAST(LD),1)+1);

D4:=A4 AND B4 AND LD;

E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2);

LL:=E4>REF(E4,1);{找出全部长期低点}

DRAWNUMBER(hh,HIGH,IF(hd,HIGH,0),2),ALIGN2;

DRAWNUMBER(ll,LOW,IF(ld,LOW,0),2),ALIGN2;

//DRAWICON(Hh,HIGH,10),ALIGN1;

//DRAWICON(ll,LOW,12),ALIGN1;

L低点数:=sum(LL,0);

p:=datacount;

LDI:=L低点数[p]-L低点数+1;

LID:=(LDI<REF(LDI,1))*LDI;

LJD1:=ref(L,BARSLAST(LDI[p]=LID));

LJD2:=ref(L,BARSLAST(1+LDI[p]=LID));

LJD3:=ref(L,BARSLAST(2+LDI[p]=LID));

LJD4:=ref(L,BARSLAST(3+LDI[p]=LID));

LJD5:=ref(L,BARSLAST(4+LDI[p]=LID));

LJD6:=ref(L,BARSLAST(5+LDI[p]=LID));

LJD7:=ref(L,BARSLAST(6+LDI[p]=LID));

LJD8:=ref(L,BARSLAST(7+LDI[p]=LID));

LJD9:=ref(L,BARSLAST(8+LDI[p]=LID));

LJD10:=ref(L,BARSLAST(9+LDI[p]=LID));

LJD11:=ref(L,BARSLAST(10+LDI[p]=LID));

LJD12:=ref(L,BARSLAST(11+LDI[p]=LID));

DRAWLINE(1+LDI[p]=LID,L,LDI[p]=LID and LJD2<LJD1,L,1),Colorcc33cc;

DRAWLINE(2+LDI[p]=LID,L,1+LDI[p]=LID and LJD3<LJD2,L,1),Colorcc33cc;

DRAWLINE(3+LDI[p]=LID,L,2+LDI[p]=LID and LJD4<LJD3,L,1),Colorcc33cc;

DRAWLINE(4+LDI[p]=LID,L,3+LDI[p]=LID and LJD5<LJD4,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(5+LDI[p]=LID,L,4+LDI[p]=LID and LJD6<LJD5,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(6+LDI[p]=LID,L,5+LDI[p]=LID and LJD7<LJD6,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(7+LDI[p]=LID,L,6+LDI[p]=LID and LJD8<LJD7,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(8+LDI[p]=LID,L,7+LDI[p]=LID and LJD9<LJD9,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(9+LDI[p]=LID,L,8+LDI[p]=LID and LJD10<LJD9,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(10+LDI[p]=LID,L,9+LDI[p]=LID and LJD11<LJD10,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(2+LDI[p]=LID,L,LDI[p]=LID and LJD3<LJD2 and LJD2>LJD1 and LJD1>LJD3,L,1),Colorcc33cc;

DRAWLINE(3+LDI[p]=LID,L,1+LDI[p]=LID and LJD4<LJD3 and LJD3>LJD2 and LJD2>LJD4,L,1),Colorcc33cc;

DRAWLINE(4+LDI[p]=LID,L,2+LDI[p]=LID and LJD5<LJD4 and LJD4>LJD3 and LJD3>LJD5,L,1),Colorcc33cc;

DRAWLINE(5+LDI[p]=LID,L,3+LDI[p]=LID and LJD6<LJD5 and LJD5>LJD4 and LJD4>LJD6,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(6+LDI[p]=LID,L,4+LDI[p]=LID and LJD7<LJD6 and LJD6>LJD5 and LJD5>LJD7,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(7+LDI[p]=LID,L,5+LDI[p]=LID and LJD8<LJD7 and LJD7>LJD6 and LJD6>LJD8,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(8+LDI[p]=LID,L,6+LDI[p]=LID and LJD9<LJD8 and LJD8>LJD7 and LJD7>LJD9,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(9+LDI[p]=LID,L,7+LDI[p]=LID and LJD10<LJD9 and LJD9>LJD8 and LJD8>LJD10,L,1),Colorcc33cc,POINTDOT;

DRAWLINE(10+LDI[p]=LID,L,8+LDI[p]=LID and LJD11<LJD10 and LJD10>LJD9 and LJD9>LJD11,L,1),Colorcc33cc,POINTDOT;

L高点数:=sum(HH,0);

LGI:=L高点数[p]-L高点数+1;

LIG:=(LGI<REF(LGI,1))*LGI;

LJG1:=ref(H,BARSLAST(LGI[p]=LIG));

LJG2:=ref(H,BARSLAST(1+LGI[p]=LIG));

LJG3:=ref(H,BARSLAST(2+LGI[p]=LIG));

LJG4:=ref(H,BARSLAST(3+LGI[p]=LIG));

LJG5:=ref(H,BARSLAST(4+LGI[p]=LIG));

LJG6:=ref(H,BARSLAST(5+LGI[p]=LIG));

LJG7:=ref(H,BARSLAST(6+LGI[p]=LIG));

LJG8:=ref(H,BARSLAST(7+LGI[p]=LIG));

LJG9:=ref(H,BARSLAST(8+LGI[p]=LIG));

LJG10:=ref(H,BARSLAST(9+LGI[p]=LIG));

LJG11:=ref(H,BARSLAST(10+LGI[p]=LIG));

LJG12:=ref(H,BARSLAST(11+LGI[p]=LIG));

DRAWLINE(1+LGI[p]=LIG,H,LGI[p]=LIG and LJG2>LJG1,H,1),Colorcc33cc;

DRAWLINE(2+LGI[p]=LIG,H,1+LGI[p]=LIG and LJG3>LJG2,H,1),Colorcc33cc;

DRAWLINE(3+LGI[p]=LIG,H,2+LGI[p]=LIG and LJG4>LJG3,H,1),Colorcc33cc;

DRAWLINE(4+LGI[p]=LIG,H,3+LGI[p]=LIG and LJG5>LJG4,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(5+LGI[p]=LIG,H,4+LGI[p]=LIG and LJG6>LJG5,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(6+LGI[p]=LIG,H,5+LGI[p]=LIG and LJG7>LJG6,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(7+LGI[p]=LIG,H,6+LGI[p]=LIG and LJG8>LJG7,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(8+LGI[p]=LIG,H,7+LGI[p]=LIG and LJG9>LJG9,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(9+LGI[p]=LIG,H,8+LGI[p]=LIG and LJG10>LJG9,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(10+LGI[p]=LIG,H,9+LGI[p]=LIG and LJG11>LJG10,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(2+LGI[p]=LIG,H,LGI[p]=LIG and LJG3>LJG2 and LJG2<LJG1 and LJG1<LJG3,H,1),Colorcc33cc;

DRAWLINE(3+LGI[p]=LIG,H,1+LGI[p]=LIG and LJG4>LJG3 and LJG3<LJG2 and LJG2<LJG4,H,1),Colorcc33cc;

DRAWLINE(4+LGI[p]=LIG,H,2+LGI[p]=LIG and LJG5>LJG4 and LJG4<LJG3 and LJG3<LJG5,H,1),Colorcc33cc;

DRAWLINE(5+LGI[p]=LIG,H,3+LGI[p]=LIG and LJG6>LJG5 and LJG5<LJG4 and LJG4<LJG6,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(6+LGI[p]=LIG,H,4+LGI[p]=LIG and LJG7>LJG6 and LJG6<LJG5 and LJG5<LJG7,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(7+LGI[p]=LIG,H,5+LGI[p]=LIG and LJG8>LJG7 and LJG7<LJG6 and LJG6<LJG8,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(8+LGI[p]=LIG,H,6+LGI[p]=LIG and LJG9>LJG8 and LJG8<LJG7 and LJG7<LJG9,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(9+LGI[p]=LIG,H,7+LGI[p]=LIG and LJG10>LJG9 and LJG9<LJG8 and LJG8<LJG10,H,1),Colorcc33cc,POINTDOT;

DRAWLINE(10+LGI[p]=LIG,H,8+LGI[p]=LIG and LJG11>LJG10 and LJG10<LJG9 and LJG9<LJG11,H,1),Colorcc33cc,POINTDOT;

{以下是两条趋势线原码}

低点数:=sum(LD,0);

di:=低点数[p]-低点数+1;

id:=(di<REF(di,1))*di;

jd1:=ref(L,BARSLAST(di[p]=id));

jd2:=ref(L,BARSLAST(1+di[p]=id));

jd3:=ref(L,BARSLAST(2+di[p]=id));

jd4:=ref(L,BARSLAST(3+di[p]=id));

jd5:=ref(L,BARSLAST(4+di[p]=id));

jd6:=ref(L,BARSLAST(5+di[p]=id));

jd7:=ref(L,BARSLAST(6+di[p]=id));

jd8:=ref(L,BARSLAST(7+di[p]=id));

jd9:=ref(L,BARSLAST(8+di[p]=id));

jd10:=ref(L,BARSLAST(9+di[p]=id));

jd11:=ref(L,BARSLAST(10+di[p]=id));

jd12:=ref(L,BARSLAST(11+di[p]=id));

DRAWLINE(1+di[p]=id,L,di[p]=id and jd2<jd1,L,1),Color5E7159,POINTDOT;

DRAWLINE(2+di[p]=id,L,1+di[p]=id and jd3<jd2,L,1),Color5E7159,POINTDOT;

DRAWLINE(3+di[p]=id,L,2+di[p]=id and jd4<jd3,L,1),Color5E7159,POINTDOT;

DRAWLINE(4+di[p]=id,L,3+di[p]=id and jd5<jd4,L,1),Color5E7159,POINTDOT;

DRAWLINE(5+di[p]=id,L,4+di[p]=id and jd6<jd5,L,1),Color5E7159,POINTDOT;

DRAWLINE(2+di[p]=id,L,di[p]=id and jd3<jd2 and jd2>jd1 and jd1>jd3,L,1),Color5E7159,POINTDOT;

DRAWLINE(3+di[p]=id,L,1+di[p]=id and jd4<jd3 and jd3>jd2 and jd2>jd4,L,1),Color5E7159,POINTDOT;

DRAWLINE(4+di[p]=id,L,2+di[p]=id and jd5<jd4 and jd4>jd3 and jd3>jd5,L,1),Color5E7159,POINTDOT;

DRAWLINE(5+di[p]=id,L,3+di[p]=id and jd6<jd5 and jd5>jd4 and jd4>jd6,L,1),Color5E7159,POINTDOT;

DRAWLINE(6+di[p]=id,L,4+di[p]=id and jd7<jd6 and jd6>jd5 and jd5>jd7,L,1),Color5E7159,POINTDOT;

高点数:=sum(HD,0);

gi:=高点数[p]-高点数+1;

ig:=(gi<REF(gi,1))*gi;

jg1:=ref(H,BARSLAST(gi[p]=ig));

jg2:=ref(H,BARSLAST(1+gi[p]=ig));

jg3:=ref(H,BARSLAST(2+gi[p]=ig));

jg4:=ref(H,BARSLAST(3+gi[p]=ig));

jg5:=ref(H,BARSLAST(4+gi[p]=ig));

jg6:=ref(H,BARSLAST(5+gi[p]=ig));

jg7:=ref(H,BARSLAST(6+gi[p]=ig));

jg8:=ref(H,BARSLAST(7+gi[p]=ig));

jg9:=ref(H,BARSLAST(8+gi[p]=ig));

jg10:=ref(H,BARSLAST(9+gi[p]=ig));

jg11:=ref(H,BARSLAST(10+gi[p]=ig));

DRAWLINE(1+gi[p]=ig,H,gi[p]=ig and jg2>jg1,H,1),Color5E7159,POINTDOT;

DRAWLINE(2+gi[p]=ig,H,1+gi[p]=ig and jg3>jg2,H,1),Color5E7159,POINTDOT;

DRAWLINE(3+gi[p]=ig,H,2+gi[p]=ig and jg4>jg3,H,1),Color5E7159,POINTDOT;

DRAWLINE(4+gi[p]=ig,H,3+gi[p]=ig and jg5>jg4,H,1),Color5E7159,POINTDOT;

DRAWLINE(5+gi[p]=ig,H,4+gi[p]=ig and jg6>jg5,H,1),Color5E7159,POINTDOT;

DRAWLINE(2+gi[p]=ig,H,gi[p]=ig and jg3>jg2 and jg2<jg1 and jg1<jg3,H,1),Color5E7159,POINTDOT;

DRAWLINE(3+gi[p]=ig,H,1+gi[p]=ig and jg4>jg3 and jg3<jg2 and jg2<jg4,H,1),Color5E7159,POINTDOT;

DRAWLINE(4+gi[p]=ig,H,2+gi[p]=ig and jg5>jg4 and jg4<jg3 and jg3<jg5,H,1),Color5E7159,POINTDOT;

DRAWLINE(5+gi[p]=ig,H,3+gi[p]=ig and jg6>jg5 and jg5<jg4 and jg4<jg6,H,1),Color5E7159,POINTDOT;

DRAWLINE(6+gi[p]=ig,H,4+gi[p]=ig and jg7>jg6 and jg6<jg5 and jg5<jg7,H,1),Color5E7159,POINTDOT;

EXPLAIN(HD OR LD OR BARSTATUS=2,STKNAME);

EXPLAINEX(HD or LD OR BARSTATUS=2,'日期=',DATE-1000000+20000000,0,0);

EXPLAINEX(HD,'区间高点=',HIGH,2,0);

EXPLAINEX(LD,'区间低点=',LOW,2,0);

EXPLAINEX(HD,'已经上涨(天)=',BARSLAST(LD ),0,0);

EXPLAINEX(LD,'已经下跌(天)=',BARSLAST(HD ),0,0);

EXPLAINEX(HD,'最大涨幅(%)=',(HIGH-TROUGH(4,7,1))/TROUGH(4,7,1)*100,2,0);

EXPLAINEX(LD,'最大跌幅(%)=',(PEAK(4,7,1)-LOW)/PEAK(4,7,1)*100*(-1),2,0);

EXPLAINEX(HD,'上涨区间金额(亿元)=',SUM(AMOUNT,BARSLAST(LD))/100000000,2,0);

EXPLAINEX(LD,'下跌区间金额(亿元)=',SUM(AMOUNT,BARSLAST(HD))/100000000,2,0);

EXPLAINEX(HD,'区间换手(%)=',SUM( VOL,BARSLAST(LD))/CAPITAL*100,2,0);

EXPLAINEX(LD,'区间换手(%)=',SUM( VOL,BARSLAST(HD))/CAPITAL*100,2,0);

EXPLAINEX(LD,'区间平均价=',SUM(AMOUNT,BARSLAST(HD))/SUM( VOL,BARSLAST(HD))/100,2,0);

EXPLAINEX(HD,'区间平均价=',SUM(AMOUNT,BARSLAST(LD))/SUM( VOL,BARSLAST(LD))/100,2,0);

{

EXPLAINEX(CLOSE>一低 AND BARSTATUS=2,'区间高点=',HHV(HIGH,3),2,0);

EXPLAINEX(CLOSE<一高 AND BARSTATUS=2,'区间低点=',LLV(LOW,3),2,0);

EXPLAINEX(CLOSE>一低 AND BARSTATUS=2,'已经上涨(天)=',BARSLAST(LD ),0,0);

EXPLAINEX(CLOSE<一高 AND BARSTATUS=2,'已经下跌(天)=',BARSLAST(HD ),0,0);

EXPLAINEX(CLOSE>一低 AND BARSTATUS=2,'最大涨幅(%)=',(HHV(HIGH,3)-TROUGH(4,7,1))/TROUGH(4,7,1)*100,2,0);

EXPLAINEX(CLOSE<一高 AND BARSTATUS=2,'最大跌幅(%)=',(PEAK(4,7,1)-LLV(LOW,3))/PEAK(4,7,1)*100*(-1),2,0);

EXPLAINEX(CLOSE>一低 AND BARSTATUS=2,'实际涨幅(%)=',(CLOSE-TROUGH(4,7,1))/TROUGH(4,7,1)*100,2,0);

EXPLAINEX(CLOSE<一高 AND BARSTATUS=2,'实际跌幅(%)=',(PEAK(4,7,1)-CLOSE)/PEAK(4,7,1)*100*(-1),2,0);

EXPLAINEX(CLOSE>一低 AND BARSTATUS=2,'上涨区间金额(亿元)=',SUM(AMOUNT,BARSLAST(LD))/100000000,2,0);

EXPLAINEX(CLOSE<一高 AND BARSTATUS=2,'下跌区间金额(亿元)=',SUM(AMOUNT,BARSLAST(HD))/100000000,2,0);

EXPLAINEX(CLOSE>一低 AND BARSTATUS=2,'区间换手(%)=',SUM( VOL,BARSLAST(一低))/CAPITAL*100,2,0);

EXPLAINEX(CLOSE<一高 AND BARSTATUS=2,'区间换手(%)=',SUM( VOL,BARSLAST(一高))/CAPITAL*100,2,0);

EXPLAINEX(CLOSE<一高 AND BARSTATUS=2,'区间平均价=',SUM(AMOUNT,BARSLAST(一高))/SUM( VOL,BARSLAST(HD))/100,2,0)

EXPLAINEX(CLOSE>一低 AND BARSTATUS=2,'区间平均价=',SUM(AMOUNT,BARSLAST(一低))/SUM( VOL,BARSLAST(LD))/100,2,0);

主题：[求助]请帮忙将飞狐公式修改成完整的金字塔的，拜托谢谢了！