通达信 34日上升三角形主图源码

请先看效果图。

以下是编程源码，可以参考学习一下：

N:=34;{三角背景}
趋势下:DRAWLINE(H=HHV(H,N),H,L=LLV(L,N),L,0),LINETHICK2,COLORMAGENTA;

SX:=REF(趋势下,1)<趋势下;
SS:=DRAWLINE(SX,趋势下,REF(SX,1),REF(趋势下,1),1);
DRAWBAND(SS,RGB(0,0,160),趋势下,RGB(0,0,0));
趋势上:DRAWLINE(L=LLV(L,N),L,H=HHV(H,N),H,0),LINETHICK2,COLORRED;
JX:=REF(趋势上,1)>趋势上;
JJ:=DRAWLINE(JX,趋势上,REF(JX,1),REF(趋势上,1),1);
DRAWBAND(JJ,RGB(0,0,0),趋势上,RGB(88,8,0));
三K线:=IF(C,1,DRAWNULL);

DG1:=MAX(MAX(REFX(L,1),REFX(L,2)),REFX(L,3));GD1:=MIN(MIN(REFX(H,1),REFX(H,2)),REFX(H,3));

AA11:=(DG1+GD1)/2;

A11:=AA11>REFX(L,3) AND REFX(L,2)< AA11 AND REFX(L,1) <AA11 ;

A21:=FILTER(A11,BARSLAST(A11)+2);A41:=A11 AND A21;

A51:=IF(REF(A41,1),H,0),NODRAW;

STICKLINE(三K线=1 AND REF(A41,2),REF(GD1,2),REF(DG1,2),12,1),COLORGRAY;

DRAWKLINE(H,O,L,C);
{1、波浪高低点}
TY:=H;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(H,BARSLAST(HD));
B:=REF(H,BARSLAST(LD));
T1:=BARSLAST(HD);
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波浪顶:IF(T1,A,A),COLORGREEN,POINTDOT;
DRAWNUMBER(波浪顶!=REF(波浪顶,1),H,波浪顶),COLORF00FF0;
波浪底:IF(T2,B,B),COLORGREEN,POINTDOT;
DRAWNUMBER(波浪底!=REF(波浪底,1),L,L),COLORF00FF0;

{2、支撑部分1}
QA12:=REF(CLOSE,6)=LLV(CLOSE,2*6+1);QB12:=BACKSET(QA12,6+1);
QC12:=FILTER(QB12,6) AND CLOSE=LLV(CLOSE,6+1);
QD12:=BARSLAST(QC12);
QE12:=IF(QC12,CURRBARSCOUNT,0);
QF12:=IF(QD12,REF(QE12,QD12),QE12);QG12:=CONST(QF12);

支撑1:DRAWLINE(CURRBARSCOUNT=QG12,CLOSE,ISLASTBAR,REF(CLOSE,QG12-1),1),COLOR00FF00,LINETHICK1;
{DRAWNUMBER(支撑1!=REF(支撑1,1),L,支撑1),COLOR00FF00;}
{DRAWNUMBER(ISLASTBAR,支撑1,支撑1),COLOR00FF00;};
XU:=PEAK(C,IF(PERIOD<5,5,10),1)*0.999,COLORFFCC99,LINETHICK1;{箱顶}
XD:=TROUGH(C,IF(PERIOD<5,5,10),1)*0.998,COLORFF99CC,LINETHICK1;{箱底}
XH:=(XU-XD)/XD*100;
XDU:=IF(EMA(EMA(EMA(C,2),2),2)>REF(EMA(EMA(EMA(C,2),2),2),1),XD,XU);
XR:=(C-XDU)/XDU*100;
XTB:=XD!=REF(XD,2) && XD=REF(XD,1);
XTS:=XU!=REF(XU,2) && XU=REF(XU,1);
DRAWICON(XTB,MIN(XD,L)*0.991,1);
DRAWTEXT(XTB,MIN(XD,L)*0.995,'升点!满仓'),COLORWHITE;
DRAWICON(XTS,MAX(XU,H)*1.006,2);
DRAWTEXT(XTS,MIN(XU,H)*1.008,'跌点!清仓'),COLORWHITE;