通达信昆仑天印主图指标公式源码

　　通达信昆仑天印主图指标公式源码

　　N:=4;

　　K:=1;

　　DRAWGBK(C>0,RGB(0,150,150),RGB(0,00,100),0,' ',0);

　　VVAR1:=IF(K=1,(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,30)+MA(CLOSE,60))/4,DRAWNULL);

　　DRAWBAND(MA(C,3),RGB(120,120,00),VVAR1,RGB(30,100,200));

　　GJ:=(C+H+L+O)/4;

　　明日阻力:=L+(GJ-L)+(C-L);

　　明日支撑:=L+(C-GJ);

　　明日阻力2:=L+2*(GJ-L)+(C-L);

　　明日支撑2:=L+(C-GJ)-(GJ-L);

　　今日阻力:REF(明日阻力 , 1),NODRAW;

　　今日支撑:REF(明日支撑 , 1),NODRAW;

　　今日阻力2:REF(明日阻力2 , 1),NODRAW;

　　今日支撑2:REF(明日支撑2 , 1),NODRAW;

　　STICKLINE(ISLASTBAR,今日阻力,今日阻力2,20,0),COLOR555555;

　　{STICKLINE(ISLASTBAR,今日阻力2,今日阻力2,10,1),COLORAAAAAA;}

　　DRAWTEXT(ISLASTBAR,今日阻力,' 阻'),COLOR0000FF;

　　STICKLINE(ISLASTBAR,今日支撑,今日支撑2,20,0),COLOR555555;

　　{STICKLINE(ISLASTBAR,今日支撑2,今日支撑2,10,1),COLORAAAAAA;}

　　DRAWTEXT(ISLASTBAR,今日支撑,' 支'),COLOR00FF00;

　　JRH:=HHV(C,2);

　　JRL:=LLV(C,2);

　　MA3:=MA(CLOSE,3);

　　YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6;

　　AAAX:=(3*C+H+L+O)/6;

　　龙:IF(K=0,(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;

　　凤:=(20*YTSL+19*REF(YTSL,1)+18*REF(YTSL,2)+17*REF(YTSL,3)

　　+16*REF(YTSL,4)+15*REF(YTSL,5)+14*REF(YTSL,6)+13*REF(YTSL,7)

　　+12*REF(YTSL,8)+11*REF(YTSL,9)+10*REF(YTSL,10)+9*REF(YTSL,11)

　　+8*REF(YTSL,12)+7*REF(YTSL,13)+6*REF(YTSL,14)+5*REF(YTSL,15)

　　+4*REF(YTSL,16)+3*REF(YTSL,17)+2*REF(YTSL,18)+REF(YTSL,20))/211;

　　R1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));

　　R2:=(REF(R1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R3:=(REF(R2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　R4:=(REF(R3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R5:=(REF(R4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　R6:=(REF(R5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R7:=(REF(R6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　R8:=(REF(R7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R9:=(REF(R8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　RA:=(REF(R9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　RB:=(REF(RA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　RC:=(REF(RB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　RD:=(CLOSE

　　RE:=(REF(RD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　RF:=(REF(RE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R10:=(REF(RF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　R11:=(REF(R10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R12:=(REF(R11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　R13:=(REF(R12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R14:=(REF(R13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　R15:=(REF(R14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R16:=(REF(R15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　R17:=(REF(R16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));

　　R18:=(REF(R17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));

　　R19:=REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1) AND R1;

　　R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD);

　　VAR3:=IF(C<200 ,MA(COST(80),3),2500),NODRAW;

　　VAR4:=(((HIGH + LOW) + CLOSE) / 3);

　　VAR5:=EMA(((((OPEN + HIGH) + LOW) + CLOSE) / 4),2330);

　　VAR6:=(VAR5 + ((VAR5 * 6) / 100));

　　短买春:=R19,NODRAW,COLOR00DD00;

　　秋离场:=R1A,NODRAW,COLOR2288DD;

　　红持股:=R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,NODRAW,COLOR0000FF;

　　阴观望:=RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,NODRAW,COLOR999999;

　　急速超跌关注:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100<-14,COLORBBBBBB,NODRAW;

　　离场:=IF(红持股,JRL,DRAWNULL);

　　明离场价:=离场,COLORFF99FF,NODRAW;

　　今离场价:=REF(离场,1)COLOR0000FF,NODRAW;

　　进:=IF(阴观望,JRH,DRAWNULL);

　　明进场价:=进,COLOR33AACC,NODRAW;

　　今进场价:=REF(明进场价,1),COLOR00FF00,NODRAW;

　　Q1:=CONST(IF( 短买春,0,IF(秋离场,150,IF(红持股,150,IF(急速超跌关注,150,100))))),NODRAW;

　　Q2:=CONST(IF( 短买春,100,IF(秋离场,100,IF(红持股,0,IF( 急速超跌关注,150,100))))),NODRAW;

　　Q3:=CONST(IF( 短买春,0,IF(秋离场,20,IF(红持股,70,IF( 急速超跌关注,150,100))))),NODRAW;

　　DRAWBAND(龙,RGB(Q1,Q2,Q3),凤,DRAWNULL);

　　大雪:=MA((((HIGH + LOW) + CLOSE) / 3),8);

　　无痕:=MA((((HIGH + LOW) + CLOSE) / 3),21);

　　VAR111:=EMA(((OPEN + CLOSE) / 2),26);

　　VAR222:=IF(C<200 , MA(COST(30),3),2300),NODRAW;

　　天下有雪:=IF(C<200 ,MA(COST(50),3),2300);

　　严冬:=ISLASTBAR AND (VAR4 > 0.1),COLORFFFFFF,NODRAW;

　　早春:=ISLASTBAR AND (((((VAR4 < 天下有雪) AND (VAR4 > 无痕))

　　OR ((VAR4 < VAR5) AND (VAR4 > 无痕))) OR ((VAR4 > 无痕)

　　AND (VAR111 > 无痕)))),COLOR00FF00,NODRAW;

　　初夏:=ISLASTBAR AND ((((((VAR4 > 天下有雪) AND (VAR4 > VAR111))

　　AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1))) OR ((((VAR4 > VAR222)

　　AND (VAR4 > VAR111)) AND (VAR4 > VAR5)) AND (VAR222 > REF(VAR222,1))))),

　　COLOR0000FF,NODRAW;

　　深秋:=ISLASTBAR AND (((((VAR4 > VAR6) AND (VAR4 > VAR3)) AND (大雪 > 无痕))

　　AND (VAR111 > REF(VAR111,1)))),COLOR00FFFF,NODRAW;

　　SAAA:=(3*C+H+L+O)/6;

　　SVAR1:=(8*SAAA+7*REF(SAAA,1)+6*REF(SAAA,2)

　　+5*REF(SAAA,3)+4*REF(SAAA,4)+3*REF(SAAA,5)+2*REF(SAAA,6)+REF(SAAA,8))/36;

　　SVAR2:=(HHV(SVAR1,5)+HHV(SVAR1,10)+HHV(SVAR1,20))/3;

　　SVAR3:=(LLV(SVAR1,5)+LLV(SVAR1,10)+LLV(SVAR1,20))/3;

　　SVAR4:=(HHV(SVAR2,5)+HHV(SVAR2,10)+HHV(SVAR2,20))/3;

　　SVAR5:=(LLV(SVAR3,5)+LLV(SVAR3,10)+LLV(SVAR3,20))/3;

　　SVAR6:=(LLV(SVAR1,2)+LLV(SVAR1,4)+LLV(SVAR1,6))/3;

　　ZGD:=HHV(REF((C*2-REF(C,3)),3),30)*0.99,COLOR008888;

　　ZDD:=LLV(REF((C*2-REF(C,3)),3),30)*1.05,COLOR008888;

　　ZGD2:=IF(K=0,CONST(ZGD),DRAWNULL);

　　ZDD2:=IF(K=0,CONST(ZDD),DRAWNULL);

　　AA:=REF(H,N)=HHV(H,2*N+1); AA1:=REF(L,N)=LLV(L,2*N+1);

　　QY:=BACKSET(AA,N+1); QY1:=BACKSET(AA1,N+1);

　　CC:=FILTER(QY,N) AND H=HHV(H,N+1); CC1:=FILTER(QY1,N) AND L=LLV(L,N+1);

　　DDD:=BARSLAST(CC); DD1:=BARSLAST(CC1);

　　GDTS:=IF(CC,CURRBARSCOUNT,0); DDTS:=IF(CC1,CURRBARSCOUNT,0);

　　DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS); DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);

　　GDCS1:=CONST(DINGBUTS); DDCS1:=CONST(DDTS1);

　　GDCS13:=CONST(REF(HIGH,GDCS1-1)); DDCS13:=CONST(REF(L,DDCS1-1));

　　DINGBUTS1:=REF(DINGBUTS,DDD+1); DDTS2:=REF(DDTS1,DD1+1);

　　GDCS2:=CONST(DINGBUTS1); DDCS2:=CONST(DDTS2);

　　GDCS23:=CONST(REF(HIGH,DINGBUTS1-1)); DDCS23:=CONST(REF(L,DDTS2-1));

　　XG1:=BACKSET(ISLASTBAR,GDCS1); XD1:=BACKSET(ISLASTBAR,DDCS1);

　　XG2:=BACKSET(ISLASTBAR,DINGBUTS1); XD2:=BACKSET(ISLASTBAR,DDTS2);

　　XDD:=IF(DDCS13<=DDCS23,XD1,XD2);

　　M:=INTPART(3*N/5);

　　AAA:=REF(H,M)=HHV(H,2*M+1);

　　QYY:=BACKSET(AAA,M+1);

　　CCC:=FILTER(QYY,M) AND H=HHV(H,M+1);

　　DDDD:=BARSLAST(CCC),NODRAW;

　　GDTSS:=IF(CCC,CURRBARSCOUNT,0);

　　DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS);

　　GDCS11:=CONST(DINGBUTSS);

　　DINGBUTS11:=REF(DINGBUTSS,DDDD+1);

　　GDCS22:=CONST(DINGBUTS11);

　　AA11:=REF(L,M)=LLV(L,2*M+1);

　　QY11:=BACKSET(AA11,M+1);

　　CC11:=FILTER(QY11,M) AND L=LLV(L,M+1);

　　DD11:=BARSLAST(CC11);

　　DDTSS:=IF(CC11,CURRBARSCOUNT,0);

　　DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS);

　　DDCS11:=CONST(DDTS11);

　　DDTS22:=REF(DDTS11,DD11+1);

　　DDCS22:=CONST(DDTS22);