三角形主图(通达信)

三角形主图(通达信)

源码正文：

N:=5{XG51};
A1:=BacKSET(ISLAstBAR,PEAKBARS(1,N,1)+1){XG51};
A2:=A1>REF(A1,1){XG51};
B1:=BACKSET(ISLASTBAR,PEAKBARS(1,N,2)+1){XG51};
B2:=B1>REF(B1,1){XG51};
C1:=BACKSET(ISLASTBAR,PEAKBARS(1,N,3)+1){XG51};
C2:=C1>REF(C1,1){XG51};
A11:=BACKSET(ISLASTBAR,TROUGHBARS(2,N,1)+1){XG51};
A21:=A11>REF(A11,1){XG51};
B11:=BACKSET(ISLASTBAR,TROUGHBARS(2,N,2)+1){XG51};
B21:=B11>REF(B11,1){XG51};
C11:=BACKSET(ISLASTBAR,TROUGHBARS(2,N,3)+1){XG51};
C21:=C11>REF(C11,1){XG51};
①:DRAWLINE(B2,H,A2,H,0),COLORYELLOW{XG51};
②:DRAWLINE(C2,H,B2,H,0),COLORCC6633{XG51};
③:IF(A1,PEAK(1,N,1),DRAWNULL),COLORFFAA00{XG51};
④:DRAWLINE(C2,H,A2,H,0),COLORLIGREEN{XG51};
⑤:DRAWLINE(B21,L,A21,L,0),COLORBLUE{XG51};
⑥:DRAWLINE(C21,L,B21,L,0),COLORFF00FF{XG51};
⑦:DRAWLINE(C21,L,A21,L,0),COLORGRAY{XG51};
⑧:IF(A11,TROUGH(2,N,1),DRAWNULL),COLORWHITE{X*G!5~1*C*N*{};