通达信四季变天主图源码

L14:=REFDATE(HHV(LH14,DA),DATE);
L15:=REFDATE(HHV(LH15,DA),DATE);
L16:=REFDATE(HHV(LH16,DA),DATE);
L17:=REFDATE(HHV(LH17,DA),DATE);
L18:=REFDATE(HHV(LH18,DA),DATE);
L19:=REFDATE(HHV(LH19,DA),DATE);
L20:=REFDATE(HHV(LH20,DA),DATE);
L21:=REFDATE(HHV(LH21,DA),DATE),LINETHICK0;
L22:=REFDATE(HHV(LH22,DA),DATE),LINETHICK0;
L23:=REFDATE(HHV(LH23,DA),DATE),LINETHICK0;
L24:=REFDATE(HHV(LH24,DA),DATE);
L25:=REFDATE(HHV(LH25,DA),DATE);
L26:=REFDATE(HHV(LH26,DA),DATE);
L27:=REFDATE(HHV(LH27,DA),DATE);
L28:=REFDATE(HHV(LH28,DA),DATE);
L29:=REFDATE(HHV(LH29,DA),DATE);
L30:=REFDATE(HHV(LH30,DA),DATE);
SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10+L11+L12+L13+L14+L15+L16+L17+L18+L19+L20+L21+L22+L23+L24+L25+L26+L27+L28+L29+L30);
STICKLINE(CEILING(DA*L1/SS)*4>=CURRBARSCOUNT,HI*299/300,HI/POW(GZ,1),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L2/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,1)*299/300,HI/POW(GZ,2),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L3/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,2)*299/300,HI/POW(GZ,3),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L4/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,3)*299/300,HI/POW(GZ,4),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L5/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,4)*299/300,HI/POW(GZ,5),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L6/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,5)*299/300,HI/POW(GZ,6),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L7/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,6)*299/300,HI/POW(GZ,7),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L8/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,7)*299/300,HI/POW(GZ,8),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L9/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,8)*299/300,HI/POW(GZ,9),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L10/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,9)*299/300,HI/POW(GZ,10),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L11/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,10)*299/300,HI/POW(GZ,11),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L12/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,11)*299/300,HI/POW(GZ,12),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L13/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,12)*299/300,HI/POW(GZ,13),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L14/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,13)*299/300,HI/POW(GZ,14),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L15/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,14)*299/300,HI/POW(GZ,15),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L16/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,15)*299/300,HI/POW(GZ,16),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L17/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,16)*299/300,HI/POW(GZ,17),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L18/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,17)*299/300,HI/POW(GZ,18),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L19/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,18)*299/300,HI/POW(GZ,19),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L20/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,19)*299/300,HI/POW(GZ,20),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L21/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,20)*299/300,HI/POW(GZ,21),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L22/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,21)*299/300,HI/POW(GZ,22),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L23/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,22)*299/300,HI/POW(GZ,23),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L24/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,23)*299/300,HI/POW(GZ,24),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L25/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,24)*299/300,HI/POW(GZ,25),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L26/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,25)*299/300,HI/POW(GZ,26),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L27/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,26)*299/300,HI/POW(GZ,27),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L28/SS)*4>=CURRBARSCOUNT,HI/POW(GZ,27)*299/300,HI/POW(GZ,28),9,0)COLOR7C7C7A,LINETHICK3;
STICKLINE(CEILING(DA*L29/SS)*4>=CURRBARSCOUNT,LO,LO*POW(GZ,1)*299/300,9,0)COLOR7C7C7A,LINETHICK3;
IF(BETWEEN(高点压力M,高点,低点),高点压力M,DRAWNULL),COLORYELLOW,LINETHICK1;
IF(BETWEEN(低点支撑M,高点,低点),低点支撑M,DRAWNULL),COLORYELLOW,LINETHICK1;
IF(BETWEEN(高点压力1,高点,低点),高点压力1,DRAWNULL),COLORGREEN,LINETHICK1;
IF(BETWEEN(低点支撑1,高点,低点),低点支撑1,DRAWNULL),COLORGREEN,LINETHICK1;
中:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
DRAWTEXT(ISLASTBAR,MT2,' ●'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,MT1,' ●'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,MT3,' ●'),COLORYELLOW;

AAAX:=(3*C+H+L+O)/6;
中长:IF(C,(8*AAAX+7*REF(AAAX,1)+6*REF(AAAX,2)+5*REF(AAAX,3)
+4*REF(AAAX,4)+3*REF(AAAX,5)+2*REF(AAAX,6)+REF(AAAX,8))/36,DRAWNULL),COLOR00FF00;
IF(中长> REF(中长,1),中长,DRAWNULL),COLORMAGENTA,LINETHICK2;

下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
RRRSV:=SMA(下档线,3,1);
KKK:=SMA(RRRSV,3,1);

上一页  [1] [2] [3] [4] [5]  下一页