[求助]三角形主图画线　[文华财经]

1、找到最近的高点，该天的最高价高于前一天和后一天的最高价；找到第二近的高点，该天的最高价高于前一天和后一天的最高价，且高于最近高点的最高价；
2、在这两天的最高价之间划条向右延伸的连线；
3、如果有最近的高点，与原最近高点满足条件1，去除原有划线，重新划一条新的直线；
于是乎想到干脆取这条下降趋势线开始后的最低点，但这个低点同样要是最低价小于前一天最低价和最低价小于后一天最低价和最近一个符合最低价小于前一天最低价和最低价小于后一天最低价再加上一条连线，形成一个整理三角形或者叫 **三角形的画线趋势主图，献给喜欢研究趋势的同学。



{整理三角形主图画线}
T:=BARSLAST(CROSS((H>REF(H,1) AND H>REFX(H,1)),0.5));
A:=IF(T=0,H,DRAWNULL);
HH:=ALIGNRIGHT(A);
H1:=CONST(HH);
GD:=BARSLAST(CROSS(A>H1,0.5));
DT:=BARSLAST(A=H1);
T1:=BARSLAST(CROSS((L<REF(L,1) AND L<REFX(L,1)),0.5));
LT:=BARSLAST(L=LLV(L,GD+1) AND T1=0);
LL:=CONST(REF(L,T1));
LT1:=BARSLAST(L=LL);
DRAWLINE(CURRBARSCOUNT=CONST(GD)+1,A,CURRBARSCOUNT=CONST(DT)+1,H1,1),COLORYELLOW;
DRAWLINE(CURRBARSCOUNT=CONST(LT)+1,L,CURRBARSCOUNT=CONST(LT1)+1,L,1),COLORYELLOW;

 来源:程序化99

 来源: WWW.CXH99.COM

A线:=HHV(H,3);
B线:=LLV(L,4);
C线:=(A线+B线)/2;
传奇私家指标:IF(C线,C线,NULL),COLORYELLOW,LINETHICK3;

UR:=6;
LR:=6;
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
TC1:=IF(H=HHV(H,8*UR),H,NULL);
TC2:=REFX1(BARSLAST(TC1=H),10000)+1;
UP:=REFX1(IF(TC2=1,H,REF(H,TC2-1)),10000);
BC1:=IF(L=LLV(L,8*LR),L,NULL);
BC2:=REFX1(BARSLAST(BC1=L),10000)+1;
HP:=CURRBARSCOUNT<=TC2 AND H=UP;
NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));
LR1:=FORCAST(C,NOD+1);
NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC2),REFX1(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1)),10000),NULL),POINTDOT,COLOR93BDA8;
LR2:=SLOPE(C,NOD+1);
LR3:=REFX1(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)),10000);
FP:NP-LR3*(NOD),POINTDOT,COLOR93BDA8;
EQU:(NP+FP)/2,POINTDOT,COLOR93BDA8;
AD:=ABS(NP-FP);
DBL:=BARSLAST(ISNULL(BC1)=0)+1;
DBH:=BARSLAST(ISNULL(TC1)=0)+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=REFX1(BARSLAST(AT1-LRL=AT2),10000);
AT4:=REFX1(IF(AT3=0,H,REF(H,AT3)),10000);
AT5:=REFX1(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)),10000);
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=REFX1(BARSLAST(LRL-UT1=UT2),10000);
UT4:=REFX1(IF(UT3=0,H,REF(H,UT3)),10000);
UT5:=REFX1(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)),10000);
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,REFX1(REF(ATL,MIN(BC2,TC2)-11),10000));
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,REFX1(REF(UTL,MIN(BC2,TC2)-11),10000));

中轨:IF(NP>FP,IF(LRL<=RH,LRL,NULL),IF(LRL>=RL,LRL,NULL)),COLORGREEN,LINETHICK1,ALIGN2;
上轨:IF(NP>FP,IF(ATL<=RH,ATL,NULL),IF(ATL>=RL,ATL,NULL)),COLORRED,LINETHICK1,ALIGN2;
下轨:IF(NP>FP,IF(UTL<=RH,UTL,NULL),IF(UTL>=RL,UTL,NULL)),COLORYELLOW,LINETHICK1,ALIGN2;

高:=REF(HHV(H,80),3),COLORWHITE,LINETHICK1;
低:=REF(LLV(L,80),3),COLORWHITE,LINETHICK1;
H19:=高-(高-低)*0.191,COLORWHITE;
H38:=高-(高-低)*0.382,COLORCYAN;
H中:=高-(高-低)*0.5,COLORGREEN;
H61:=高-(高-低)*0.618,COLORYELLOW;
H80:=高-(高-低)*0.809,COLORYELLOW;
顶点:REFX1(高,10000),COLORWHITE,LINETHICK1;
%19.8:REFX1(H19,10000),COLORWHITE,LINETHICK1;
%38.2:REFX1(H38,10000),COLORWHITE,LINETHICK1;
%50:REFX1(H中,10000),COLORWHITE,LINETHICK1;
%61.8:REFX1(H61,10000),COLORWHITE,LINETHICK1;
%80.9:REFX1(H80,10000),COLORWHITE,LINETHICK1;
低点:REFX1(低,10000),COLORBLUE,LINETHICK1;

DRAWTEXT(ISLASTBAR,顶点,'',COLORGREEN,DOT,VALIGN1,FONTSIZE20,DOT;
DRAWTEXT(ISLASTBAR,低点,'',COLORRED,DOT,VALIGN1,FONTSIZE20,DOT;
G11:=ZIGZAG(C,1,1)>REF(ZIGZAG(C,1,1),1) AND REF(ZIGZAG(C,1,1),1)<=REF(ZIGZAG(C,1,1),2) AND REF(ZIGZAG(C,1,1),2)<=REF(ZIGZAG(C,1,1),3) AND REF(ZIGZAG(C,1,1),3)<=REF(ZIGZAG(C,1,1),4) AND REF(ZIGZAG(C,1,1),4)<=REF(ZIGZAG(C,1,1),5);
X11:=ZIGZAG(C,1,1)<REF(ZIGZAG(C,1,1),1) AND REF(ZIGZAG(C,1,1),1)>=REF(ZIGZAG(C,1,1),2) AND REF(ZIGZAG(C,1,1),2)>=REF(ZIGZAG(C,1,1),3) AND REF(ZIGZAG(C,1,1),3)>=REF(ZIGZAG(C,1,1),4) AND REF(ZIGZAG(C,1,1),4)>=REF(ZIGZAG(C,1,1),5);
DRAWTEXT(G11,L,'#39),COLORRED,DOT,VALIGN1,FONTSIZE20;
DRAWTEXT(X11,H,'#39),COLORGREEN,DOT,VALIGN1,FONTSIZE20;

DRAWCOLORKLINE(G11>0 AND G11>X11,COLORWHITE,0);
DRAWCOLORKLINE(X11>0 AND X11>G11,COLORGREEN,0);

HJZ:=(3*C+H+L+O)/6;
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36;
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;
赚钱旅游:FILTER(HJZ3,5),COLORRED,LINETHICK4,NODRAW;
STICKLINE(赚钱旅游,O,C,3.3,0),COLORRED;
STICKLINE(赚钱旅游,H,L,0.1,0),COLORYELLOW;
DRAWTEXT(赚钱旅游,L*0.98,'#39),COLORWHITE,FONTSIZE20;
XG:=SUMBARS(FILTER(赚钱旅游,2),1);
STICKLINE(XG,REF(H,XG-1),REF(H,XG-1),10,0),COLORGREEN;
XG1:=SUMBARS(FILTER(赚钱旅游,2),1);
STICKLINE(XG1,REF(L,XG1-1),REF(L,XG1-1),10,0),COLORAA00FF;
CC:=VALUEWHEN(赚钱旅游,C);
LL:=VALUEWHEN(赚钱旅游,L);
HH:=VALUEWHEN(赚钱旅游,H);
CROSS(C,CC),SOUND('#39);
CROSSDOWN(C,LL),SOUND('';
CROSS(C,HH),SOUND('#39);
DRAWTEXT(CROSS(C,HH),HH,'',VALIGN2,FONTSIZE20;
STICKLINE(赚钱旅游,O,C,3.3,0),COLORRED;
STICKLINE(赚钱旅游,H,L,0.1,0),COLORYELLOW;
DRAWTEXT(赚钱旅游,H*0.98,'#39 ),COLORYELLOW;
STICKLINE(XG,REF(C,XG-1),REF(C,XG-1),10,0),COLORGREEN;
STICKLINE(XG1,REF(L,XG1-1),REF(L,XG1-1),10,0),COLORAA00FF;
STICKLINE(XG,REF(O,XG-1),REF(O,XG-1),10,0),COLORAA00FF;
CROSS(C,CC),SOUND('';
CROSSDOWN(C,LL),SOUND('';
黄金柱:=C>REF(C,1) AND REF(C,1) > REF(C,2) AND REF(C,2) > REF(C,3) AND REF(V,3)>REF(C,2) AND REF(V,2)>REF(V,1) AND REF(V,1)>V;
XX1:=REFX1(黄金柱,3);
DRAWCOLORKLINE(XX1,COLORRED,0);
黄金柱1:=C<REF(C,1) AND REF(C,1) < REF(C,2) AND REF(C,2) < REF(C,3) AND REF(V,3)<REF(C,2) AND REF(V,2)<REF(V,1) AND REF(V,1)>V;
XX2:=REFX1(黄金柱1,3);
芝麻开门:FILTER(HJZ3,5),COLORRED,LINETHICK4,NODRAW;
STICKLINE(芝麻开门,O,C,3.3,0),COLORRED;
STICKLINE(芝麻开门,H,L,0.1,0),COLORYELLOW;
DRAWTEXT(芝麻开门,L*0.98,'#39),COLORYELLOW,FONTSIZE20;
STICKLINE(XG,REF(H,XG-1),REF(H,XG-1),10,0),COLORGREEN;
STICKLINE(XG1,REF(L,XG1-1),REF(L,XG1-1),10,0),COLORAA00FF;
CROSS(C,CC),SOUND('#39);
CROSSDOWN(C,LL),SOUND('';
CROSS(C,HH),SOUND('#39);
DRAWTEXT(CROSS(C,HH),HH,'#39),VALIGN2,FONTSIZE19;
STICKLINE(芝麻开门,O,C,3.3,0),COLORYELLOW;
STICKLINE(芝麻开门,H,L,0.1,0),COLORYELLOW;
STICKLINE(XG,REF(C,XG-1),REF(C,XG-1),10,0),COLORGREEN;
STICKLINE(XG1,REF(L,XG1-1),REF(L,XG1-1),10,0),COLORAA00FF;
STICKLINE(XG,REF(O,XG-1),REF(O,XG-1),10,0),COLORAA00FF;
CROSS(C,CC),SOUND('';
CROSSDOWN(C,LL),SOUND('';

DRAWTEXT(ISLASTBAR,顶点,'#39),COLORWHITE;
DRAWTEXT(ISLASTBAR,%19.8,'19.8',COLORYELLOW;
DRAWTEXT(ISLASTBAR,%38.2,'38.2',COLORMAGENTA,LINETHICK2;
DRAWTEXT(ISLASTBAR,%50,'50',COLORRED;
DRAWTEXT(ISLASTBAR,%61.8,'61.8',COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%80.9,'80.9',COLORYELLOW,LINETHICK2;
DRAWTEXT(ISLASTBAR,低点,'#39),COLORWHITE;

T:=BARSLAST(CROSS((H>REF(H,1) AND H>REFX(H,1)),0.5));
A:=IF(T=0,H,0);
HH:=VALUEWHEN(T=0,H);
H1:=REFX1(HH,10000);
GD:=BARSLAST(CROSS(A>H1,0.5));
DT:=BARSLAST(A=H1);
T1:=BARSLAST(CROSS((L<REF(L,1) AND L<REFX(L,1)),0.5));
LT:=BARSLAST(L=LLV(L,GD+1) AND T1=0);
LL:=REFX1(REF(L,T1),10000);
LT1:=BARSLAST(L=LL);
CURRBARSCOUNT:=REFX1(BARPOS,10000)-BARPOS+1;
DRAWLINE1(CURRBARSCOUNT=REFX1(GD,10000)+1,A,CURRBARSCOUNT=REFX1(DT,10000)+1,H1,1),COLORYELLOW;
DRAWLINE1(CURRBARSCOUNT=REFX1(LT,10000)+1,L,CURRBARSCOUNT=REFX1(LT1,10000)+1,L,1),COLORYELLOW;

老师 给看看  主图
 

修改一下  安装 不了